leere zellen suchen zeilenhöhe einstellen
02.11.2005 13:03:45
achim
Mein Makro hat eine macke. wer kann den fehler beheben?
leere zellen suchen und mache zeile auf höhe 3.
Sub Test()
Sheets("Gruppen").Activate
Range("A5:A100").Select
Dim i As Long
For i = Selection.Cells(Selection.Cells.Count).Row To 1 Step -1
If ActiveSheet.Cells(i, 1).Value = "" Then
Rows(i).Selection.RowHeigh = 3'(in der letzten zeile ist der fehler)
End If
Next i
End Sub
danke
achim h.
Anzeige