Lösch-Macro
06.05.2004 08:27:09
gerhard
ich habe nachfolgendes Macro, welches bei "Zahlen" einwandfrei funktioniert.
Sub Zeilen_löschen_neu()
Sheets("Daten2004").Select
For z = Cells(65536, 1).End(xlUp).Row To 1 Step -1
With Sheets("löschen")
For l = 1 To .Cells(65536, 1).End(xlUp).Row
If Cells(z, 1) = .Cells(l, 1) And Cells(z, 4) = .Cells(l, 2) Then Cells(z, 1).EntireRow.Delete
Next l
End With
Next z
End Sub
In Daten2004 stehen nun in der Spalte A eine Zahl (z.B.25001) und in Spalte D ein Text (z.B.E20000). In der Tabelle "löschen" steht ebenfalls in Spalte A eine Zahl (z.B.25001) und in Spalte B ein Text (z.B.E20000). Nun sollen alle Zeilen, welche in den Spalten A,D (Daten2004) und A,B (löschen) gleich sind gelöscht werden. Hier bekomme ich nun die Fehlermeldung "Typen unverträglich"
Kann mir jemand helfen
Gerhard
Anzeige