Hi Leute,
zufällig habe ich ein kleines Script gefunden, was man in ecxel eintragen kann. Dann kann man ein Makro starten, und dort die Breite in cm eingeben:
Hier das script, falls mal jemand benötigt :
Sub Spaltenbreite_in_cm()
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
o.k. das wars, bei mir passt bis auf einen halben mm genau !!!!
Viele Grüße Michael