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
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
Please also mark the comments that contributed to the solution of the article
Content-ID: 30649
Url: https://administrator.de/contentid/30649
Printed on: October 7, 2024 at 23:10 o'clock