Spaltenbreite aus Zellwert
02.01.2018 19:45:52
Suse
Die Spaltenbreite soll zwischen 1-15 variieren und der Wert aus der jeweiligen Spalte in Zeile 1 der Tabelle entnommen werden. Aber mein Code funktioniert nicht.
Sub Spaltenbreite ()
Columns("E:NL").ColumnWidth = ["E1:NL1"].Value
End Sub
Für Spalte E funktioniert folgendes.
Sub Spaltenbreite()
Columns("E").ColumnWidth = [e1].Value
End Sub
jedoch habe ich weit über 100 Spalten.
Wie gestalte ich den Befehlt, dass er für jede Spalte den korrekten Wert aus der zugehörigen Zelle entnimmt?
Vielen Dank