Hallo,
ich suche schnelle Hilfe.
Habe eine Tabelle mit 3000 Nrn in der 1. Spalte
In der 2. Spalte sind 1000 Nrn, welche zum Teil identisch sind mit denen in der 1. Spalte.
Nun soll mir die 3. Spalte nur diejenigen Nrn anzeigen, welche in der 2.Spalte fehlen.
Dies soll angeblich mit der Funktion sverweis klappen. Aber nicht bei mir.
Wer kann mir irgendwie helfen. Gruß Rosa
Entspann dich bitte 
ich suche schnelle Hilfe.
Habe eine Tabelle mit 3000 Nrn in der 1. Spalte
In der 2. Spalte sind 1000 Nrn, welche zum Teil identisch sind
mit denen in der 1. Spalte.
Nun soll mir die 3. Spalte nur diejenigen Nrn anzeigen, welche
in der 2.Spalte fehlen.
Dies soll angeblich mit der Funktion sverweis klappen. Aber
nicht bei mir.
Wer kann mir irgendwie helfen. Gruß Rosa
Hi Rosa,
klingt alles sehr gehetzt, keine Zeit um Nummern auszuschreiben sondern Nrn zu benutzen, aber das ist normal wenn man in einem z.B. Excel Problem steckt und du hast da irgendwie Druck das schnell zu lösen.
Von daher entspann dich, Problem ist locker lösbar
Entweder
a) http://www.excelformeln.de
b) jmd hier findet eine Excelllösung für dich
c) Vba
Gruß
Reinhard
Hallo Rosa,
falls es noch nicht zu spät ist
Kopiere die Daten in eine leere Arbeitsmappe, die 1. Spalte in
Tabelle1 Spalte A und die 2. Spalte in Tabelle2 Spalte A. Füge
dann den folgenden Code in ein Modul ein und starte das Makro.
Übrig bleiben in Tabelle1 alle Daten, die nicht in Tabelle2
enthalten sind. Diese übrigen aus Tabelle1 kopierst du dann in
deine ursprüngliche.
PS Bitte testen mit ein paar Zahlen, da ich in vba noch nicht
erfahren bin.
Wenn der Cursor beim Starten des Makros in Tabelle1 steht
bleibt der erste Datensatz stehen, das passiert nicht, wenn
der Cursor in Tabelle2 steht, wenn du das Makro startest. Hab
es auf die Schnelle nicht besser hingekriegt.
Gruß Maria
Sub DoppelteRaus()
Dim shBlatt1 As Worksheet, shBlatt2 As Worksheet
Dim rngTarget As Range
Dim intRow As Integer
Set shBlatt1 = Worksheets(„Tabelle1“)
Set shBlatt2 = Worksheets(„Tabelle2“)
intRow = 1
Do Until IsEmpty(shBlatt1.Cells(intRow, 1))
Set rngTarget = shBlatt2.Columns(1).Find(shBlatt1.Cells(intRow, 1))
If Not rngTarget Is Nothing Then
shBlatt1.Rows(intRow).Delete
shBlatt2.Rows(rngTarget.Row).Delete
End If
intRow = intRow + 1
Loop
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi Rosa,
Habe eine Tabelle mit 3000 Nrn in der 1. Spalte
In der 2. Spalte sind 1000 Nrn, welche zum Teil identisch sind
mit denen in der 1. Spalte.
Nun soll mir die 3. Spalte nur diejenigen Nrn anzeigen, welche
in der 2.Spalte fehlen.
Alt+F11, Einfügen Modul, Code reinkopieren, Editor schliessen.In Excel Extras–Makro–Makro und tt ausführen.
Option Explicit
Sub tt()
Dim ZeiA As Long, ZeiC As Long
Columns(3).ClearContents
For ZeiA = 1 To Range("A65536").End(xlUp).Row
If Application.WorksheetFunction.CountIf(Columns(2), Range("A" & ZeiA))
> Dies soll angeblich mit der Funktion sverweis klappen. Aber
> nicht bei mir.
Nicht nur bei dir nicht, außer man ist so ein Formelcrack wie bei excelformeln.de.
Gruß
Reinhard
Hallo Reinhard,
melde mich erst jetzt. Danke für deinen Trost und Danke für deine Hilfe. Klappte auf Anhieb.
Gruß Rosa