1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel 2000 Spaltenbreite ändern

Discussion in 'Office-Programme' started by Silly14, Jan 6, 2004.

Thread Status:
Not open for further replies.
  1. Silly14

    Silly14 Kbyte

    Ich möchte in Excel die Spaltenbreite manuell eingeben. Eine Standardspalte ist 10,57 groß. Wenn ich dann meinen Wert von 2,5 eintrage, wird die Spalte viel zu klein. Ich denke mal das vielleicht die Größenangaben nicht in Zentimeter sind, aber wie bekomme ich das raus oder wo kann ich da was einstellen.
    Danke!
     
  2. chancen

    chancen Kbyte

    Hallo Silly14,

    es gibt eine Möglichkeit die Breite der Spalten und die Zeilenhöhe in mm festzulegen per VBA:

    'Zeigt Spaltenbreite und Zeilehhöhe in mm an
    'Die gewünschte Spaltenbreite und Zeilenhöhe kann über Inputbox eingegeben werden.
    'Alle markierten Spalten werden geändert.
    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

    Kopiere Dir die Zeilen in die VBA-Umgebung, speichere die Mappe unter einem logischen Namen, starte das Makro.

    Gruß Tschoko
     
  3. mschuetzda

    mschuetzda Megabyte

  4. Silly14

    Silly14 Kbyte

    Danke! Kann ich nicht irgendwie einstellen, dass ich die Spaltenbreite in Cm eingeben will? Sonst komme ich ja nicht genau auf meine 2,5 cm für Spalte 1 und was bedeutet IMHO?
     
  5. mschuetzda

    mschuetzda Megabyte

    Hallo,

    Spalte(n) markieren und dann
    mit <Format><Spalte><Breite>

    die Zahlenangebn sind speziell Excel, und sollen IMHO ungefähre Zeichenanzahl bei Schriftgröße 10 sein.

    Mit der Maus kann man auch die Spaltenbreite einstellen.
    Wenn Du z.B. mit der Maus die Linie zwischen D und E (Spaltenkopf) anklickst wird dir auch die Spaltenbreite angezeigt.
    Bei Excel 2002 mit Breite und in Klammer (xy Pixel).

    mfg
    mschue
     
Thread Status:
Not open for further replies.

Share This Page