schmitt.mathias
Goto Top

Spaltenbreite und Zeilenhöhe in Zentimeter angeben

Wie sicher bekannt ist, benutzt Excel das Maß "Punkt" anstatt Zentimeter bei der Zeilenhöhe. Bei der Spaltenbreite ist es noch komplizierter, da benutzt Excel die Durchschnittsanzahl der Ziffern 0 bis 9 in der Standardschriftart, die in eine Zelle rein passen. Mit einem kleinen Makro kann man die Zeilenhöhe sowie Spaltenbreite in Zentimeter vorgeben.

Hierzu muss ein Makro über Extras->Makros erstellt werden(Makroname ->Erstellen), das Folgendes beinhaltet:
(Einfach in den Visual Basic Editor kopieren)


Sub zeilenhoehe()
Dim hoehe As Single, aktuell As Single, text As String, antwort As String
aktuell = Selection.RowHeight / 29.5
text = "Aktuelle Zeilenhöhe: " & Format(aktuell, "###0.00 cm") & Chr(13) & "Geben Sie die gewünschte Zeilenhöhe für die aktuelle Zeile oder Markierung in cm ein:"
antwort = InputBox(text, "Neue Zeilenhöhe festlegen", Format(aktuell, "###0.00"))
If antwort <> "" Then
hoehe = CSng(antwort)
Selection.RowHeight = hoehe * 29.5
End If
End Sub

Sub spaltenbreite()
Dim breite As Single, aktuell As Single, text As String, antwort As String
aktuell = (Selection.ColumnWidth + 0.71) / 5.1425
text = "Aktuelle Spaltenbreite: " & Format(aktuell, "###0.00 cm") & Chr(13) & "Geben Sie die gewünschte Spaltenbreite für die aktuelle Spalte oder Markierung in cm ein:"
antwort = InputBox(text, "Neue Spaltenbreite festlegen", Format(aktuell, "###0.00"))
If antwort <> "" Then
breite = CSng(antwort)
Selection.ColumnWidth = -0.71 + 5.1425 * breite
End If
End Sub

Danach muss nur noch die zu formatierende Zelle ausgewählt, über Extras ->Makros das Makro "Spaltenbreite" oder "Zeilenhöhe" ausgewählt und ausgeführt werden. Dann kann man den Zentimeter-Wert eintragen.
Selbstverständlich kann man sich die Makros auch in die Symbolleiste legen, um sie mit einem einzigen Klick ausführen zu können.

Hoffe es ist soweit verständlich.

Gruß
Mathias

Content-ID: 30649

Url: https://administrator.de/contentid/30649

Printed on: October 7, 2024 at 23:10 o'clock