Sub Format_Spalten_ZeilenMM()
Dim sBreite As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String
Dim ZHöhe As Single
Dim ZAktuell As Single
On Error GoTo Fehler
Spalte = Selection.ColumnWidth
sAktuell = (Selection.ColumnWidth + 0.71) / 5.1425 * 10
strText = "Aktuelle Spaltenbreite in mm: " & _
Format(sAktuell, "###0.00 mm") & Chr(13) _
& "Gib die gewünschte Spaltenbreite für die " & _
"aktuelle Markierung in mm ein:"
strAntwort = InputBox(strText, "Neue Spaltenbreite festlegen", _
Format(sAktuell, "###0.00"))
If strAntwort <> "" Then
sBreite = Val(strAntwort)
'sBreite = CSng(strAntwort)
Selection.ColumnWidth = -0.71 + 5.1425 * sBreite / 10
End If
ZAktuell = Selection.RowHeight
Faktor = 2.999999
ZAktuell = ZAktuell / Faktor '(Selection.RowHeight)
strText = "Aktuelle Zeilenhöhe in mm: " & _
Format(ZAktuell, "###0.00 mm") & Chr(13) _
& "Gib die gewünschte Zeilenhöhe für die " & _
"aktuelle Markierung in mm ein:"
strAntwort = InputBox(strText, "Neue Zeilenhöhe festlegen", _
Format(ZAktuell, "###0.00"))
If strAntwort <> "" Then
ZHöhe = CSng(strAntwort)
Selection.RowHeight = Faktor * ZHöhe
End If
Range("A1").Select
Exit Sub
Fehler:
Range("A1").Select
End Sub
Um die Spaltenbreite in Excel auf cm umzustellen, kannst du folgende Schritte befolgen:
Für die Umrechnung von cm in Pixel kannst du eine Formel verwenden:
Pixel = cm * 37.795275591
Das bedeutet, wenn du eine Spaltenbreite von 5 cm möchtest, gib einfach 5 * 37.795275591 ein, um die Pixelanzahl zu erhalten.
Fehler: Die Breite wird nicht korrekt angezeigt.
Lösung: Stelle sicher, dass du die Umrechnung von cm in Pixel korrekt durchgeführt hast.
Fehler: Excel akzeptiert die Eingabe nicht.
Lösung: Überprüfe, ob du die richtigen Einheiten verwendest. Excel erwartet Zahlen, keine Texte oder Maßeinheiten.
Fehler: Die Spaltenbreite bleibt unverändert.
Lösung: Stelle sicher, dass du die richtige Spalte ausgewählt hast und dass keine Zellschutz-Einstellungen aktiv sind.
Sub Format_Spalten_ZeilenMM()
Dim sBreite As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String
On Error GoTo Fehler
sAktuell = (Selection.ColumnWidth + 0.71) / 5.1425 * 10
strText = "Aktuelle Spaltenbreite in mm: " & Format(sAktuell, "###0.00 mm") & _
Chr(13) & "Gib die gewünschte Spaltenbreite für die aktuelle Markierung in mm ein:"
strAntwort = InputBox(strText, "Neue Spaltenbreite festlegen", Format(sAktuell, "###0.00"))
If strAntwort <> "" Then
sBreite = Val(strAntwort)
Selection.ColumnWidth = -0.71 + 5.1425 * sBreite / 10
End If
Range("A1").Select
Exit Sub
Fehler:
Range("A1").Select
End SubBeispiel 1: Du möchtest eine Spalte auf 10 cm einstellen. Berechne die Pixel:
10 cm * 37.795275591 = 379.5275591 Pixel
Gib diesen Wert in die Spaltenbreite ein.
Beispiel 2: Um die Breite einer Spalte in mm anzuzeigen, verwende das oben genannte VBA-Skript, um die aktuelle Breite in mm zu ermitteln und eine neue Breite festzulegen.
1. Wie kann ich die Spaltenbreite in cm umrechnen?
Du kannst die Formel Pixel = cm * 37.795275591 verwenden, um die Breite in Pixel umzurechnen.
2. Gibt es eine Möglichkeit, die Zellen in cm einzustellen?
Ja, du kannst die Zellengröße in cm einstellen, indem du die gleiche Umrechnung wie bei der Spaltenbreite anwendest.
3. Funktioniert das gleiche Verfahren auch in Google Tabellen?
Ja, du kannst die Spaltenbreite auch in Google Tabellen in cm einstellen, bevor du die Datei in Excel speicherst.
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