Zeilenhöhe aus Zelle bestimmter Sp übernehmen
Peter
Ich habe eine Tabelle, in der in Spalte G ab Zeile 1 bis x steht, wieviel die Zeilenhöhe betragen soll. Nun möchte ich diese Zeilenhöhen mit Makro zuweisen und zwar zuerst die letzte Zeile mit Inhalt anwählen und dann rückwärts bis Zeile 1 abarbeiten.
Mit nachstehendem Code bin ich nicht ganz ans Ende gelangt. Kann mir jemand helfen?
Danke, Peter
Option Explicit
Sub Zeilenhöhe()
Dim Zeilenanzahl As Long
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row
Range(Zeilenanzahl, 7).Select
Do While Selection.Column > 1
Selection.RowHeight = ActiveCell.Value
Selection.Offset(-1, 0).Select
Wend
Selection.RowHeight = ActiveCell.Value 'Zeile 1
End Sub
Anzeige