Code
12.02.2004 08:05:00
Frank
von Alex bekam ich den unten genannten Code leider ist er momentan nicht
in diesem Forum und ich sollte wissen wie ich den Code ändern muss
wenn die Zellen keine Hintergrundfarbe haben.
Sub Makro1()
Dim zähler
For zähler = 1 To 100
Cells(zähler, 1).Select
If Selection.Interior.ColorIndex = 5 Then
Rows(zähler).Select
Selection.Delete Shift:=xlUp
End If
Next zähler
Range("A1").Select
End Sub
Frage 2.) Wie müsste der Code aussehen wenn ich auf dem Tabellenblatt
zwischen den beschrifteten Zeilen leere Zeilen habe und die Beschrifteten,
einfach von unten aufgerückt werden ohne Zeilen zu löschen.
Gruß
Frank