ListBox füllen (Speziell)

[Florian20]

Hallo liebe Community,

Ich habe eine Sehr spezielle frage an euch.

Ich habe eine Tabelle in der Daten sind diese werden in eine Combobox geladen.
spalte "A" bis letzte Zeile

Nun klicke Ich einen wert in der Combobox an, es sollten Daten in der gleichen Tabelle nun in die ListBox gesetzt werden.


Meine Vorstellung:

Combobox Eintrag = Test
 
spalte "A" ist solange leer bis der nächste Eintrag kommt also "Test2"

ListBox solange mit werten füllen aus spalte ("B":"G") bis spalte "A" nicht mehr "Test" als .value hat

Lg Flo


PS:
Hier mein Versuch

Code:

ListBox1.Clear
letzte = Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row
Text = "Test"
    
For Each cell In Sheets(3).Range("A" & letzte)
       If cell.Value = Text Then i = cell
           
           For i = i To letzte
               If Text <> cell.Value Then Exit For
              
                For j = 2 To 7
                   arr(j - 1, i - 1) = Worksheets("Speichern").Cells(i, j).Text
               Next j

           Next i
   Next

PPS: der code bringt kein error aber auch keine Werte aus der Tabelle

[Klaus-Dieter]

Hallo,

zeige bitte statt deiner Versuche bitte die Datei und eine genaue Beschreibung, was du erreichen möchtest.

[snb]

Und schau mal: http://www.snb-vba.eu/VBA_Fill_combobox_listbox_en.html

[Florian20]

Hallo,

Ich habe die Datei erst fertig umbauen müssen.

[Florian20]

Ich habe mir die Seite angeschaut die ist ja der Wahnsinn :28:
leider finde ich nicht das passende für meine Frage 


PS:

Ich eine if abfrage gefunden die in etwa das macht was Ich möchte.

If Me.ComboBox1.Value = "A" Then
ListBox1.Value = Range(Sheet1!B2)
End If

[Klaus-Dieter]

Hallo Florian,

mit diesem Quelltext hinter deiner ComboBox sollte das gelingen. Die Spaltenbreiten musst du noch anpassen.

Code:

Private Sub ComboBox1_Change()
Dim intStZei As Integer
Dim intZiZei As Integer
   intStZei = Application.Match(ComboBox2.Text, Tabelle1.Columns(1), 0)
   intZiZei = Range("A" & intStZei).End(xlDown).Row - 1
   ListBox1.List = Range("B" & intStZei, "G" & intZiZei).Value
End Sub

[snb]

Oder einfach so:

[Florian20]

Wow super :05:
vielen lieben Dank Dieter :18:

[Klaus-Dieter]

Hallo Florian,

die Auswahl Text 3 hat einen Fehler ausgelöst, den habe ich noch abgefangen.

Code:

Private Sub ComboBox2_Change()
Dim intStZei As Integer
Dim intZiZei As Integer
On Error GoTo fehler
   intStZei = Application.Match(ComboBox2.Text, Tabelle1.Columns(1), 0)
   intZiZei = Range("A" & intStZei).End(xlDown).Row - 1
   ListBox1.List = Range("B" & intStZei, "G" & intZiZei).Value
fehler:
 intZiZei = Range("B1000").End(xlUp).Row
 Resume Next
End Sub

[Florian20]

Das ist mir gar nicht aufgefallen, aber vielen Dank nochmal :19: