Hallo, ich mal wieder mit einem besonderen Excel Problem…
Ich habe zwei Exceldateien
In der Mappe1 stehen in der Spalte C (1:n) mehrere Meldungsnummern
In der Mappe2 stehen in der Spalte E (1:n) mehrere Meldungsnummern
Ich möchte von beiden Mappen die Meldungsnummern vergleichen,
alle Meldungsnummern die in Mappe2 stehen, sollen auch in Mappe 1 stehen bleiben, alle Meldungsnummern die in Mappe1 stehen aber in Mappe2 nicht, sollen gelöscht werden, hier kann die ganze Zeile gelöscht werden, nicht nur der Text.
Also sagen wir alle nichtdoppelte sollen in Mappe1 gelöscht werden.
Ich habe Foren usw durchsucht wo ich gefunden habe, wie doppelte gelöscht werden, nach einem Vergleich, aber wie nichtdoppelte gelöscht werden, geht mal wieder über meinen weiblichen Horizont.
Wäre schön wenn mir jemand hierauf eine Antwort geben könnte.
Vielen Dank im Voraus.
In der Mappe1 stehen in der Spalte C (1:n) mehrere
Meldungsnummern
In der Mappe2 stehen in der Spalte E (1:n) mehrere
Meldungsnummern
Ich möchte von beiden Mappen die Meldungsnummern vergleichen,
alle Meldungsnummern die in Mappe2 stehen, sollen auch in
Mappe 1 stehen bleiben, alle Meldungsnummern die in Mappe1
stehen aber in Mappe2 nicht, sollen gelöscht werden, hier kann
die ganze Zeile gelöscht werden, nicht nur der Text.
hallo Innie,
Sub Killen()
Dim wks1 As Worksheet, wks2 As Worksheet, Zei1 As Long, Z As Long
Set wks1 = Workbooks("mappe1.xls").Worksheets("Tabelle1")
Set wks2 = Workbooks("mappe2.xls").Worksheets("Tabelle1")
Zei1 = wks1.Cells(Rows.Count, 3).End(xlUp).Row
For Z = Zei1 To 1 Step -1
If Application.CountIf(wks2.Columns(5), wks1.Cells(Z, 3)) = 0 Then
wks1.Cells(Z, 3).EntireRow.Delete
End If
Next Z
End Sub
Gruß
Reinhard
Vielen Dank, genau das hat super geklappt!!
Jetzt habe ich aber nur noch ein Problem in der Arbeitsmappe aus der nun die Zeilen gelöscht werden (wks1) werden nun auch alle anderen Zeilen gelöscht, die nicht in der gleichen Zeile stehen wie die Meldunsnummern.
Das ist Problematisch, am Besten wäre folgendes, dass nur folgende Zeilen gelöscht werden:
Nur die Zeilen die nicht doppelte Meldungsnummern enthalten und jeweils die nächsten zwei.
Lässt sich das auch machen?
Vielen Dank noch einmal
Welche Lösung ich mir noch vorstellen könnte wäre:
wks1 wird mit wks2 verglichen, wird die Meldungsnummer aus wks1 in wks2 gefunden soll jeweils der Text, der in wks1 der Spalte J steht und in der Zeile (Zeile Meldungsnummer+1), in wks2 in der Spalte I in der gleichen Zeile wie Meldungsnummer stehen.
Bpsl folgt:
wks1 - Tabelle1
Zelle C2: Meldungsnummer: 271004
Zelle J3: Text: Überprüft ob…
wks2 - Tabelle1
Zelle E5: Meldungsnummer: 271004
Zelle I5: Text: Text aus wks1.J3
Hoffe das war verständlich, Danke schon mal für die Hilfe.