Supportnet / Forum / Tabellenkalkulation
Zeilenbreite und Zeilenhöhe in mm darstellen
Frage
hallo Excelexperten
gibt es eine Möglichkeit die Zeilenhöhe und Zeilenbreit in Millimeter
darzustellen, z.B. für Schlder usw.
Ich danke Euch
mfG
Herbert
Antwort 1 von Hajo_Zi
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
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