Sub ttt()
Dim c As Range
For Each c In Selection.Columns
Cells(1, c.Column) = c.ColumnWidth
Next
End Sub
gRU?
rUDI
AW: Spaltenbreite in Zelle eintragen ?
16.07.2009 13:11:14
Jogy
Hi.
Dazu brauchst Du kein VBA.
Markiere Zelle A1. Gehe nun zu Einfügen - Namen - Definieren.
Als Namen gibst Du BREITE ein, als "Bezieht sich auf:"
=ZELLE.ZUORDNEN(16;Tabelle1!A$1)+0*JETZT()
(das 0*JETZT()) bewirkt die Aktualisierung bei jeder Neuberechnung)
Wenn Du jetzt in eine Zelle =BREITE eingibst, dann erscheint die Breite der Spalte in der Zelle.
Gruss, Jogy