Clever-Excel-Forum

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

Hallo,

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

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

Hallo,

Ich habe die Datei erst fertig umbauen müssen. Blush

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

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

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

Oder einfach so:

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

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

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

Florian20

Klaus-Dieter

snb

Florian20

Florian20

Klaus-Dieter

snb

Florian20

Klaus-Dieter

Florian20