Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

"Excel" Spaltenbreite & Zeilenhöhe

    Betrifft: "Excel" Spaltenbreite & Zeilenhöhe von: Magrit
    Geschrieben am: 31.08.2003 12:36:37

    Einen guten Tag

    Ich möchte wissen welche Maße Excel in der Spaltenbreite sowie in der Zeilenhöhe verwendet !
    Ist es pico, Berthold, Linotype oder Didot ?
    Wie funktioniert die Umrechnung in mm ?

    Dank im vorraus
    ein freundlicher Forum Besucher

      


    Betrifft: AW: "Excel" Spaltenbreite & Zeilenhöhe von: Jörg Gradert
    Geschrieben am: 31.08.2003 14:20:01

    Hallo Magrit,
    Die Zahl im Feld Standardspaltenbreite entspricht der durchschnittlichen Anzahl der Ziffern 0-9 in der Standardschriftart, die in eine Zelle passen.
    Das hilft aber nicht wirklich weiter, darum habe ich einfach mal ein Rechteck aufgezogen über ausreichend viele Zellen und mir die Grösse anzeigen lassen.
    So habe ich mit Standardschriftart Arial 10 folgende Beziehungen berechnet.
    Zeilenhöhe: 12,75 entspricht 4,5 mm
    Spaltenbreite: 10,71 entspricht 21,111111 mm

    Daraus ergeben sich folgende Beziehungen:
    Zeilenhöhe in mm = Wert Zeilenhöhe/2,83333333
    Spaltenbreite in mm = Wert Spaltenbreite/0,50731579

    Ob andere Standardschriftarten als Arial zu anderen Ergebnissen führen, kann ich im Moment nicht überschauen.

    hier noch ein paar Typographische Umrechnungsfaktoren

    http://www.typolexikon.de/p/punkt.html

    Hoffe, dass es dir ein wenig weiterhilft.

    Gruss Jörg


      


    Betrifft: AW: "Excel" Spaltenbreite & Zeilenhöhe von: geri
    Geschrieben am: 31.08.2003 14:29:43

    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


      


    Betrifft: AW: "Excel" Spaltenbreite & Zeilenhöhe von: geri
    Geschrieben am: 31.08.2003 14:33:01

    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, die Umrechnungen stimmen ziemlich genau für Typographen ??? (bin ich nicht so sicher)

    gruss geri


      


    Betrifft: AW: "Excel" Spaltenbreite & Zeilenhöhe von: Magrit
    Geschrieben am: 31.08.2003 14:54:12

    Einen schönen Dank auch, das wird mir mit sicherheit weiterhelfen!

    Gruß
    Magrit


     

    Beiträge aus den Excel-Beispielen zum Thema " "Excel" Spaltenbreite & Zeilenhöhe"