Supportnet / Forum / Tabellenkalkulation

wie kann ich zellen umformatieren, das ich die zellenhöhe und die spaltenbreite in cm sehe und verändern kann.? danke im voraus boomer

Gar nicht!
Das ist ein altes Leiden von Excel. Hier wird etwas anders gerechnet.

Gruss Flupo

Hallo Boomer,

durch dieses kleine Makro kannst Du die Zellenbreite und Zellenhöhe in cm verändern.

Sub ZeilenSpaltenCm()
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "Möchten Sie Zeilen und Spalten in [cm]?"
Stil = vbYesNo + vbQuestion + vbDefaultButton1
Titel = "Spaltenhöhe und -breite in cm"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Text1 = "ja"
aktuell = Selection.RowHeight / 29.5
Text = "aktuelle Spaltenhöhe:" & Format(aktuell, "###0.00 cm") & Chr(13)& "Geben Sie die gewünschte Spaltenhöhe in cm ein:"
Antwort = InputBox(Text, "Neue Spaltenhöhe festlegen", Format(aktuell, "###0.00"))
If Antwort <> "" Then
hoehe = CSng(Antwort)
Selection.RowHeight = hoehe * 29.5
End If
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/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.1525 * breite
End If
End If
End Sub

Gruß Hans

Feine Sache!
Wieder was gelernt :-)
Danke Hans

Gruss Flupo

Danke Hans,
ich hätt geschworen, das geht nicht.

ansonsten dito Flupo.

Aliba

• meine Kommentare in Excel verändern sich immer nach einiger Zeit.
• Steuerelement + makro
• Datenverschlüsselung einer Zeiterfassung
• Einfache Skizze in eine Zelle zeichnen mit der Maus