Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen löschen

Forumthread: Zeilen löschen

Zeilen löschen
21.09.2006 10:15:47
Sebastian
Hi Leute,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen
21.09.2006 10:21:15
P@ulchen
Hallo Sebastian,
wenn Du Zeilen löschen willst, mußt Du die Schleife von hinten nach vorn laufen lassen, also in etwa so (ungetestet):
For n = UBound(arrChangeNewF, 1) To 1 Step -1
Set rgRecord = .Rows(n)
.
.
.
Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de

Anzeige
AW: Zeilen löschen
21.09.2006 10:28:21
Sebastian
Danke Paulchen. Werd das mal ausprobieren.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige