Thema Datum  Von Nutzer Rating
Antwort
21.10.2022 08:32:10 Nikki
NotSolved
21.10.2022 08:50:53 Der Steuerfuzzi
NotSolved
Rot Listbox mit mehr als 10 Einträgen füllen
 21.10.2022 08:57:39 Gast50933
NotSolved
21.10.2022 09:41:42 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast50933		 Datum:
21.10.2022 08:57:39		 Views:
282		 Rating:
     
Antwort:
  Ja
Thema:
Listbox mit mehr als 10 Einträgen füllen

Hallo,

 

stimmt den Code hätte ich direkt posten sollen.

Hier der Code:

Private Sub UserForm_Initialize()
    Dim cl As Range
    With ListBox1
        For Each cl In Sheets("Kunden").Range("A2:A999").SpecialCells(xlCellTypeConstants)
            .AddItem cl
        Next cl
    End With
End Sub

 

Private Sub ListBox1_Click()
    Dim cl As Range
    Dim x As Long, j As Long
    With ListBox2
        .Clear
        For Each cl In Sheets("Aufträge").Range("A2:A999").SpecialCells(xlCellTypeConstants)
            If CStr(cl) = ListBox1.Value Then
                .AddItem
                x = .ListCount
                For j = 0 To 9 ' 
                    .List(x - 1, j) = Sheets("Items").Cells(cl.Row, j + 1)
                Next j
            End If

        Next cl
    End With
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
21.10.2022 08:32:10 Nikki
NotSolved
21.10.2022 08:50:53 Der Steuerfuzzi
NotSolved
Rot Listbox mit mehr als 10 Einträgen füllen
 21.10.2022 08:57:39 Gast50933
NotSolved
21.10.2022 09:41:42 Mase
NotSolved