Supportnet / Forum / Tabellenkalkulation
Zellenhöhe in cm
Frage
Hallo zusammen
Ich bin verzweifelt und brauche dringend HILFE denn ich sollte die Zellenhöhe und Spaltenbreite im Excel in mm oder cm haben.
Ich surfe nun etwa seit einer Stunden auf dieser Seite herum, kann jedoch nicht finden was ich suche, denn bei jeglichen anderen anfragensteht
schau mal unter siesem Link
https://supportnet.de/discussion/listmessages.asp?content=&recno=47737&adminrecno=22
jedoch auch dadurch komme ich auf kein Resultat
Bitte helft mir.
Gruss
Paul
Antwort 1 von Annan
Hallo Paul,
probier es mit diesem Makro:
Option Explicit
Sub Zentimeter_genau()
Rows.RowHeight = Application.CentimetersToPoints(1 / 1#)
Columns.ColumnWidth = Application.CentimetersToPoints(1 / 6#)
End Sub
Dabei werden alle Zeilen u. Spalten 1 cm hoch bzw. breit ! Verändern lässt sich dieses mit den Ziffern 1# (Zeilenhöhe) u. 6# (Spaltenbreite) !
MfG
probier es mit diesem Makro:
Option Explicit
Sub Zentimeter_genau()
Rows.RowHeight = Application.CentimetersToPoints(1 / 1#)
Columns.ColumnWidth = Application.CentimetersToPoints(1 / 6#)
End Sub
Dabei werden alle Zeilen u. Spalten 1 cm hoch bzw. breit ! Verändern lässt sich dieses mit den Ziffern 1# (Zeilenhöhe) u. 6# (Spaltenbreite) !
MfG
Antwort 2 von Annan
Oder eleganter:
Sub Zeilenhoehe()
Dim sHoehe As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String
sAktuell = Selection.RowHeight / 29.5
strText = "Aktuelle Zeilenhöhe: " & Format(sAktuell, "###0.00 cm") _
& Chr(13) & "Geben Sie die gewünschte Zeilenhöhe für die " & _
"aktuelle Zeile oder Markierung in cm ein:"
strAntwort = InputBox(strText, "Neue Zeilenhöhe festlegen", _
Format(sAktuell, "###0.00"))
If strAntwort <> "" Then
sHoehe = CSng(strAntwort)
Selection.RowHeight = sHoehe * 29.5
End If
End Sub
Sub Spaltenbreite()
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
Jeweils einem Button zuweisen !
MfG
Sub Zeilenhoehe()
Dim sHoehe As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String
sAktuell = Selection.RowHeight / 29.5
strText = "Aktuelle Zeilenhöhe: " & Format(sAktuell, "###0.00 cm") _
& Chr(13) & "Geben Sie die gewünschte Zeilenhöhe für die " & _
"aktuelle Zeile oder Markierung in cm ein:"
strAntwort = InputBox(strText, "Neue Zeilenhöhe festlegen", _
Format(sAktuell, "###0.00"))
If strAntwort <> "" Then
sHoehe = CSng(strAntwort)
Selection.RowHeight = sHoehe * 29.5
End If
End Sub
Sub Spaltenbreite()
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
Jeweils einem Button zuweisen !
MfG