Hallo Willi,
Du kannst die Zeilenhöhe jeder anderen Zeile in einem bestimmten Arbeitsblatt (
Sheet1) auf eine Anzahl von Punkten (
4 Punkte) festlegen, wie im folgenden VBA-Codeabschnitt gezeigt:
For Each rw In Worksheets("Sheet1").Rows
If rw.Row Mod 2 = 0 Then
rw.RowHeight = 4
End If
Next rw
der im nachstehenden Dokumentationsartikel zu finden ist:
Range.Row-Eigenschaft (Excel)
Ein weiteres Beispiel kombiniert die
Cells.Font.Size-Eigenschaft und die
Rows.AutoFit-Methode für jedes Arbeitsblatt in einer gesamten Arbeitsmappe, wie hier bereitgestellt:
Adjust all rows in entire workbook
Gruß,
Ivan Dragov
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „IT-Pros helfen IT-Pros“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden
können.
