AW: "Excel" Spaltenbreite & Zeilenhöhe
31.08.2003 14:29:43
geri
Hallo Magrit
bin fündig geworden für Einstellung via Makro
Sub ZeilenCm()
aktuell = Selection.RowHeight / 29.5
'Text zur Ausgabe vorbereiten
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"))
'antwort auswerten und neue Zeilenhöhe setzen
If Antwort <> "" Then
hoehe = CSng(Antwort)
Selection.RowHeight = hoehe * 29.5
End If
End Sub
Sub spalteCm()
aktuell = (Selection.ColumnWidth + 0.71) / 5.1425
'Text zur Ausgabe vorbereiten
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"))
'antwort auswerten und neue Spaltenbreite setzen
If Antwort <> "" Then
breite = CSng(Antwort)
Selection.ColumnWidth = -0.71 + 5.1425 * breite
End If
End Sub
hoffe es hilft Dir weiter, den Rest hat Jörg schon beschrieben
gruss geri