wie kann ich einen Wert aus einer Zelle als Spaltenbreite übertragen?
Sub Makro1()
Columns("B:B").ColumnWidth = Range("A1").Value
End Sub
LG,
With ActiveSheet
'Auslesen
SP = .Columns("A:A").ColumnWidth
MsgBox SP
'Setzen
If IsNumeric(.Range("A1")) Then
.Columns(3).ColumnWidth = .Range("A1")
End If
End With
LG UweD