Do while
Frank
ich folgenden Ausschnitt aus einem Makro:
'Striche einfügen
Range("B10").Select
Do While ActiveCell.Value > ""
If ActiveCell.Borders(xlEdgeBottom).LineStyle = xlNone Then _
ActiveCell.Borders(xlEdgeBottom).Weight = xlThin
ActiveCell.Offset(1, 0).Select
Loop
Wenn in der aktiven Zelle kein Strich ist, dann soll einer eingefügt werden.
Das Makro bricht mit der Meldung "Typen unverträglich" ab. Ich weiß nicht wieso,
zumal das Makro auch manchmal durchläuft. Wie gesagt, dies ist nur ein Teil des
Makros.
Gruß
Frank