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 UweDDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen