Hallo zsm,
ich bin ein absoluter VBA Anfänger und versuche mich seit einigen Tagen in die Materie reinzufuchsen.
Ich habe mir folgende Schleife erstellt:
-
For j = 6 To EndeA
-
-
-
For i = 6 To EndeB
-
-
If Rows(j).Hidden Then
-
Debug.Print j
-
Exit For
-
ElseIf Rows(i).Hidden Then
-
Debug.Print i
-
ElseIf ws2.Cells(j, 2) = ws1.Cells(i, 2) Then
-
ws2.Rows(j).Delete
-
' i = i - 1
-
End If
-
-
Next i
-
Next j
-
Diese Schleife durchläuft insgesamt zwei Spalten und vergleicht sie miteinander. Die doppelten Werte sollen, bei identischen Treffern, gelöscht werden
Jede Spalte befindet sich in einer eigenen Datei, die im Vorfeld natürlich angesprochen wurde. Zusätzlich wurden die Spalten im selben Makro gefiltert.
Nun mein Anliegen:
Die Schleife läuft zwar ohne knurren und spricht auch die einzelnen Zellen der Spalten an, aber er löscht sie mir in dieser SChleife nicht, wenn zwei Werte identisch sind.
|