Makro Modifikation gesucht
06.08.2003 16:38:54
Dominik
Ich habe folgendes Makro:
Sub Schritt3()
'Fügt gelbe Zeilen ein und formatiert Zellen'
Dim blnnext As Boolean
Dim r As Range
Dim rngGesamt As Range
blnnext = True
Set rngGesamt = Range(Range("A1"), Range("A1").End(xlDown))
For Each r In rngGesamt
If r.Value = 1 Then
If blnnext Then
blnnext = False
r.EntireRow.Insert xlUp
r.Offset(-1).EntireRow.Interior.ColorIndex = 6
r.Offset(-1).EntireRow.Interior.Pattern = xlSolid
End If
Else
blnnext = True
End If
Next
Columns("A:A").ColumnWidth = 7
Columns("B:B").ColumnWidth = 15
Columns("C:C").ColumnWidth = 34
Columns("D:D").ColumnWidth = 34
Columns("E:E").ColumnWidth = 34
Columns("A:E").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
End Sub
Das Makro fügt über der jeweils Obersten "1" eine gelbe Zeile ein.
Funktioniert auch wunderbar, nur sobald in SpalteA eine leere Zelle
vorhanden ist, wird dieser Prozess abgebrochen.
Kann man das Makro so umschreiben, dass leere Zellen einfach übersprungen
werden und der Prozess fortgeführt wird?
MfG
Dominik