könnt ihr mir da helfen
Gruß Marco
ach ja hier mal eine beispiel datei
https://www.herber.de/bbs/user/113156.xlsb
Dim i As Long, j As Long
Dim x As Long, y As Long
Dim rowH As Double
Dim colW As Double
Dim ws As Worksheet
rowH = UserForm1.TextBox1.Value
colW = UserForm1.TextBox2.Value
Set ws = ThisWorkbook.Sheets(1)
With ws
i = start Zeile des Bereichs
j = end Zeile des Bereichs
x = start Spalte des Bereichs
y = end Spalte des Bereichs
.Rows(i & ":" & j).Height = rowH
.Columns(x & ":" & y).Width = colW
End With
Hier Mappe mit beispiel Code: https://www.herber.de/bbs/user/113160.xlsm