möchte mit Makro alle Zeilen löschen die in einer



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: möchte mit Makro alle Zeilen löschen die in einer
von: Zampano
Geschrieben am: 26.06.2002 - 14:54:07

...bestimmten Spalte keine Schrift und keine Farbe haben....
wie mach ich das nrauch ich überhaupt ein Makro??
GRuß
Zampano
Helft mir bitte

nach oben   nach unten

Re: möchte mit Makro alle Zeilen löschen die in einer
von: Beate
Geschrieben am: 26.06.2002 - 15:12:51

Hallo Zampano
Sucht du so was ???
Sub DeleteA()
Dim i As Long, j As Long, maxzeilen As Long
maxzeilen = Range("A65536").End(xlUp).Row
i = 1
j = 0
Do While i < maxzeilen
If Cells(i, 1).Value = "" Then
Rows(i).Delete
j = j + 1
If i + j >= maxzeilen Then Exit Sub
i = i - 1
End If
i = i + 1
Loop
End Sub
Gruß

nach oben   nach unten

Läuft perfekt !!!! DANKE
von: Zampano
Geschrieben am: 26.06.2002 - 15:44:25

Läuft perfekt !!!!
Fettes DANKE !!!

nach oben   nach unten

@beate kannst du bitte mal bei deinem Makro.....
von: Niko
Geschrieben am: 26.06.2002 - 16:05:11

....beschréiben, was da was ist nur ein paar Kommentare bitte...
thanks in advance
Niko

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "möchte mit Makro alle Zeilen löschen die in einer "