Schönen Guten Morgen!
Ich habe im Datenblatt 1 eine Tabelle mit mehreren Spalten. In der Reihe "A" stehen jeweils 3 stellige Nummern (Zimmernummern von einem Hotel). In einem anderem Datenblatt B stehen in Spalte A ebenfalls mehrere 3 stellige Nummern.
Mein Macro soll nun nacheinander die Zeilen in Reihe A des Datenblatt 1 mit den Zahlen in Reihe A des Datenblatt 2 vergleichen. Kommt es zu einem Treffer, soll die entsprechende Zeile in Datenblatt 1 gelöscht werden.
Mein Code bisher:
Private Sub check_rooms()
'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
'** Durchlauf aller Zeilen
For t = lz To 2 Step -1
If Cells(t, 1).Value = Worksheets("Blackout_Rooms").Range("A2:A35").Value Then
Rows(t).Delete shift:=xlUp
End If
Next t
End Sub
Leider bekomme ich beim Ausführen immer den Laufzeitfehler '13' Typen unverträglich.
Was mache ich falsch? Bin für jede Hilfe dankbar!
Gruß Marco
|