Hallo Herbert,

Spaltenbreite in mm?
Ob das klappt ist ungewiss
Sub SpaltenbreiteInCm()
Dim sBreite As Single
Dims Aktuell As Single
Dim strText As String
Dim strAntwort As String
sAktuell=(Selection.ColumnWidth+0.71)/5.1425
strText="AktuelleSpaltenbreite:"&_
Format(sAktuell,"##0.00cm")&Chr(13)_
&"GebenSiediegewünschteSpaltenbreitefürdie"&_
"aktuelleSpalteoderMarkierungincmein"
strAntwort=InputBox(strText,"Neue Spalten breite festlegen",_
Format(sAktuell,"##0.00"))
If strAntwort<>""Then
sBreite=CSng(strAntwort)
Selection.ColumnWidth=-0.71+5.1425sBreite
End If
End Sub
Von Stephan7

Oder
Link zur Seite

Gruß Hajo