Was ist falsch? RowHeight-Eigenschaft
26.07.2007 18:17:00
Beni
Kann mir jemand erklären, warum dieser Code scheitert...
Do
Cells(Zaehler + 14, Spalte + 10).Select
If ActiveCell Range("c6") Then
Rows(ActiveCell.Row).RowHeight = 1
Cells(Zaehler + 14, Spalte + 10).Select
End If
Zaehler = Zaehler + 1
Loop Until ActiveCell = 0
Blattschutz ist aktiviert. Es gibt die Fehlermeldung:
Die RowHeight-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
Vielen Dank für eure Mühe.
Gruss
Beni