Zeilen löschen
21.09.2006 10:15:47
Sebastian
bin kurz vor dem Verzweifeln. Ich mach jetzt schon ewig an einem Makro rum und es will einfach nicht richtig laufen. Hoffe es kann mir jemand weiterhelfen. Denke ihr habt mehr Ahnung von VBA als ich. Baue auf eure Hilfe. Danke.
Also mit dme Makro vergleiche ich 2 Spalten und will bei Übereinstimmung der Werte die entsprechende Zeile löschen. Problem: Irgendwie löscht das Makro irgendwelche Zeilen. :-(
Grüße Sebastian
Public
Sub ChangeNew()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim lastRow1 As Long, lastRow2 As Long
Dim rngNew As Range
Dim n As Long
Dim rgRecord As Range
Set wks1 = Sheets("New")
Set wks2 = Sheets("Change_Log")
lastRow1 = IIf(wks1.Range("C65536") <> "", 65536, _
wks1.Range("C65536").End(xlUp).Row)
lastRow2 = IIf(wks2.Range("C65536") <> "", 65536, _
wks2.Range("C65536").End(xlUp).Row)
arrChangeNewF = wks2.Range("F21:F" & lastRow2)
'Daten aus Tabelle1 an Array übergeben
With Range("Nomi_List_Change")
For n = 1 To UBound(arrChangeNewF, 1)
Set rgRecord = .Rows(n)
Set rngNew = wks1.Range("F21:F" & lastRow2).Find(arrChangeNewF(n, 1))
'Daten aus Tabelle2 in Tabelle1 suchen.
If Not rngNew Is Nothing Then
'Und wenn gefunden, dann Zeile löschen.
rgRecord.Delete
End If
Next
End With
End Sub
Anzeige