Thema Datum  Von Nutzer Rating
Antwort
12.04.2022 17:52:02 Tim
Solved
Blau ListBox befüllen
 12.04.2022 20:38:46 Gast45846
Solved

Ansicht des Beitrags:
Von:
Gast45846		 Datum:
12.04.2022 20:38:46		 Views:
1061		 Rating:
     
Antwort:
 Nein
Thema:
ListBox befüllen

Bin schon fündig geworden und konnt mir selbst helfen :)

Private Sub UserForm_Initialize()

    'ListBox befüllen       'Additem
    
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "70;80"
    
    Dim iCell As Integer
    Dim x As Integer
    Dim sh As Worksheet
    
    Set sh = Sheets("Datenbank")

    For i = 4 To 83
        If sh.Cells(i, 13) <> "" And sh.Cells(i, 14) <> "" Then
            ListBox1.AddItem sh.Cells(i, 13)
            ListBox1.List(x, 1) = sh.Cells(i, 14)
            x = x + 1
        End If
    Next i
    
End Sub

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
12.04.2022 17:52:02 Tim
Solved
Blau ListBox befüllen
 12.04.2022 20:38:46 Gast45846
Solved