Vielen Dank
CM
Ist es wirklich so schwer in den FAQ 's nachzusehen?
http://xlfaq.herber.de/texte/000297h.htm
Ciao Peter
Knut
hier etwas fuer spaltenbreite in mm.
Spaltenbreite in mm
von Frank Arendt-Theilen:
Sub SpaltenbreiteInCm()
Dim sBreite As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String
sAktuell = (Selection.ColumnWidth + 0.71) / 5.1425
strText = "Aktuelle Spaltenbreite: " & _
Format(sAktuell, "###0.00 cm") & Chr(13) _
& "Geben Sie die gewünschte Spaltenbreite für die " & _
aktuelle Spalte oder Markierung in cm ein:
strAntwort = InputBox(strText, "Neue Spaltenbreite festlegen", _
Format(sAktuell, "###0.00"))
If strAntwort <> "" Then
sBreite = CSng(strAntwort)
Selection.ColumnWidth = -0.71 + 5.1425 * sBreite
End If
End Sub
ungetestet
vielleicht hilft es Dir weiter.
gruss thomas
p.s. bitte nicht anonym posten s. FAQ