Herbers Excel-Forum - das Archiv
Zeilen löschen bist "Armin"
Betrifft: Zeilen löschen bist "Armin"
von: Melanie
Geschrieben am: 19.11.2003 09:22:33
Hallo,
ich hätte mal folgende Frage: Ich bekomme monatlich eine Liste. Diese Liste hat eine feste Kopfzeile. Dieser Kopf (bestehend aus etwa 5 Zeilen) soll nicht gelöscht werden. Darunter kommen aber viele Zeilen, die ich immer löschen muss, bis zu der Zeile bei der in der Spalte A "Armin" steht. Das soll meine erste Zeile unter der Kopfzeile sein. Die Zeilen darüber sollen gelöscht werden. Wie könnte so ein Makro aussehen?
Über Hilfe würde ich mich sehr freunen.
Gruß
Melanie
Betrifft: AW: Zeilen löschen bist "Armin"
von: Torsten
Geschrieben am: 19.11.2003 09:35:09
Hi Melanie, probiere doch mal folgende Makro:
Sub löschen()
Dim i
i = 5
While Cells(i, 1).Value <> "armin"
rows(i).Delete
Wend
End Sub
Es wird immer die 1. Zelle einer Zeile ab der 5. Zeile auf Armin getestet, ansosnte wird die Zeile gelöscht.
Gruß Torsten
Betrifft: AW: Zeilen löschen bist "Armin"
von: Holger Levetzow
Geschrieben am: 19.11.2003 09:35:18
die könnte so aussehen:
Sub Makro1()
z = 6
Do While Cells(z, 1) <> "Armin"
z = z + 1
Loop
Rows("6:" & z - 1).Delete Shift:=xlUp
End Sub
Holger