Thema Datum  Von Nutzer Rating
Antwort
28.09.2015 02:07:45 Joseph
NotSolved
Blau ListBox
 28.09.2015 13:49:37 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
28.09.2015 13:49:37		 Views:
588		 Rating:
     
Antwort:
  Ja
Thema:
ListBox

Hallo Joseph,

versuche

ü_zeile = 5 'Überschriften-Zeilennummer
ReDim br(5)
Loletzte = Cells(Rows.Count, 1).End(xlUp).Row + 1
For j = 0 To 5
    l = 0
    For i = ü_zeile To Loletzte
        m = Len(Cells(i, j + 1))
        If m > l Then l = m
    Next
    br(j) = CStr(Int(l * 3) / 10 + 0.2) + "cm"
Next
With ListBox1
    .ColumnCount = 6
    .ColumnWidths = Join(br, ";")
    .ColumnHeads = True
End With
ListBox1.RowSource = "WeihnMusik!A" & CStr(ü_zeile + 1) & ":F" & Loletzte
 
 
Bei der Zeile " br(j) = CStr(Int(l * 3) / 10 + 0.2) + "cm"" musst du ggf. etwas verändern, da die Breite sehr von der Formatierung der Schrift abhängt.
 
Gruß
Holger

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.09.2015 02:07:45 Joseph
NotSolved
Blau ListBox
 28.09.2015 13:49:37 Holger
NotSolved