Sub Spaltenbreite()
Dim breite As Single, aktuell As Single, text As String, antwort As String
On Error Resume Next
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
Sub Zeilenhoehe()
Dim hoehe As Single, aktuell As Single, text As String, antwort As String
On Error Resume Next
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
Gruß
Wolfgang
Call Spaltenbereite
, in den zweiten Button
Call Zeilenhoehe
Du kannst auch über das Menü Ansicht-Symbolleisten-Anpassen eine Benutzerdefinierte Schaltfläche unter Makros irgendwo in eine bestehende Symbolleiste einfügen und dieser Schaltfläche dann ein Makro zuweisen.
Grüße
Hoffi
Um die Zeilenhöhe und Spaltenbreite in cm einzustellen, kannst Du ein Makro in Excel erstellen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Alt + F11, um den Visual Basic Editor zu öffnen.Sub Spaltenbreite()
Dim breite As Single, aktuell As Single, text As String, antwort As String
On Error Resume Next
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
Sub Zeilenhoehe()
Dim hoehe As Single, aktuell As Single, text As String, antwort As String
On Error Resume Next
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 SubMakros speichern: Schließe den Visual Basic Editor und speichere die Excel-Datei als Makro-fähige Datei (.xlsm).
Makros anwenden: Erstelle Buttons auf dem Arbeitsblatt und weise den Makros Spaltenbreite und Zeilenhoehe zu, um die Funktionen bequem nutzen zu können.
.xlsm gespeichert ist. Ansonsten können Makros nicht ausgeführt werden.Falls Du kein Makro verwenden möchtest, kannst Du die Zeilenhöhe und Spaltenbreite auch manuell einstellen:
Manuelle Anpassung:
Formatierung über das Menü:
Beispiel 1: Du möchtest die Breite einer Spalte auf 5 cm einstellen. Führe das Spaltenbreite-Makro aus und gib "5" ein, um die Breite zu ändern.
Beispiel 2: Um die Höhe einer Zeile auf 3 cm zu setzen, rufe das Zeilenhoehe-Makro auf und gib "3" ein.
Automatisierung: Du kannst die Makros so anpassen, dass sie automatisch beim Öffnen der Datei ausgeführt werden, um eine sofortige Anpassung der Zeilenhöhe und Spaltenbreite in cm zu gewährleisten.
Benutzerdefinierte Schaltflächen: Füge eine benutzerdefinierte Schaltfläche in die Symbolleiste ein, um die Makros noch schneller auszuführen. Gehe zu "Ansicht" > "Symbolleisten" > "Anpassen".
1. Wie kann ich die Zeilenhöhe in cm anzeigen?
Du kannst die aktuelle Zeilenhöhe in cm anzeigen, indem Du das Zeilenhoehe-Makro ausführst. Es wird ein Eingabefeld angezeigt, in dem die aktuelle Höhe angezeigt wird.
2. Kann ich die Maßeinheit für die Spaltenbreite in cm umstellen?
Ja, mit dem Spaltenbreite-Makro kannst Du die Spaltenbreite in cm einstellen. Die Umrechnung erfolgt automatisch im Skript.
3. Wie kann ich Excel für die Verwendung von cm einstellen?
Excel verwendet standardmäßig Punkte. Du kannst die Umrechnung in deinem Makro selbst vornehmen, indem Du die entsprechenden Faktoren verwendest (1 cm = 28.35 pt).
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen