ich hab ein Problem mit der Do Anweisung in folgendem Code:
If i2 = i Then
Rows(i2).Insert Shift:=xlDown
Range("A" & i2 & ":AQ" & i2).Interior.ColorIndex = 0
Range("A" & i2 & ":AQ" & i2).Borders.LineStyle = xlContinuous
i3 = Asc("H")
Do While Range(Chr(i3) & i2 - 1).Interior.Pattern
i3 = i3 + 1
Loop
End If
bekomme jedesmal den Laufzeitfehler '1004'
Gruß Thorsten