Supportnet / Forum / Tabellenkalkulation

Hallo, kann mir jemand sagen wie ich die in Excel in Pkt. angegebene Spaltenbreite und Zeilenhöhe auf cm umstellen kann? Sylvia

Hi Sylvia,

das geht meines Wissens nicht auf dem normalen Weg. Allerdings hätte ich da ein Makro für Dich, bei dem Du die Spaltenbreite und -höhe in cm angeben kann. Nachfolgendes Makro als Standardmodul einfügen:

Sub Zellen_und_Spalten_in_cm()
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

Ich hoffe, ich konnte Dirt weiterhelfen. Wenn Du nicht klar kommen solltest, melde Dich noch mal. Ich könnte Dir auch eine Beispieldatei schicken.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

@coros,

ich habe zwar nicht die Anfrage gestellt,
aber ich gehe mal davon aus, dass ich den Makro auch nutzen darf! :-)

Danke dafür, kann ihn gut brauchen!

gruss
pelle

Ps.: Ich habe habe ihn zwar nicht verstanden :-(
.....aber er funktioniert!

Hallo coros,

danke für deine schnelle Antwort. Ich habe bisher Makros kaum verwendet. Und wenn, dann über die Funktion Aufzeichnen und nicht über den Visual-Basic-Editor.
Ich würde dein Angebot gern annehmen. Kannst du mir deine Beispieldatei an meine E-Mail-Adresse senden?

Hab besten Dank dafür.

Tschüß

Sylvia

Moin @pelle,

logisch darfst Du den Code benutzen. Wenn ich etwas dagegen hätte, dürfte ich hier ja nie einen Code posten. Danke auch für die Rückmeldung.

MfG,
coros
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

• Zeilenbreite und Zeilenhöhe in mm darstellen
• Serverbasiertes Profil umstellen
• Wie kann ich mein Norton auf deutsch umstellen
• CD700MB auf CD800MB umstellen!!