ListBox2 abhängig von ListBox1

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboBox1_Change() Dim intListI As Integer, intSpalte As Integer, i As Integer With Worksheets("Tabelle1") ComboBox2.Clear Label1.Caption = "" intListI = ComboBox1.ListIndex If intListI >= 0 Then intSpalte = (intListI * 2) + 1 For i = 2 To .Cells(Rows.Count, intSpalte).End(xlUp).Row ComboBox2.AddItem .Cells(i, intSpalte) Next i End If End With End Sub

Private Sub ComboBox2_Change() With Worksheets("Tabelle1") Label1 = "" If ComboBox2.ListIndex >= 0 Then Label1 = .Cells(ComboBox2.ListIndex + 2, (ComboBox1.ListIndex * 2) + 2) End If End With End Sub

Private Sub UserForm_Initialize() Dim i As Integer With Worksheets("Tabelle1") For i = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column Step 2 ComboBox1.AddItem .Cells(1, i) Next i End With End Sub

Hallo ChrisL und Excelgemeinde,
mir hat ChrisL schon viel bei meinem Problem geholfen, aber mit dem VBA steige ich nicht durch. Sobald ich die "Hilfen" aus der Datei von Chris in die Originaldatei "einbauen" will, da klappt nichts.
Die Hilfe von ChrisL habe ich etwas geändert und ist hier als Beispiel: https://www.herber.de/bbs/user/113224.xlsm
es hat mir mit den ComboBoxen geholfen, zumindest für die CB 2 und CB 3 aus der Tabelle1 in der Beispieldatei. Die CB 1 kann ich nicht befüllen mit den Daten aus der Tabelle3. Klappt irgendwie nicht.
DANN aber das ganz große Problem, ich wollte nun die Makros in der Originaldatei übernehmen, aber das geht überhaupt nicht und weiß auch nicht wie ich das anfangen soll. Die Originaldatei habe ich als Dummy hier geladen:

Die Datei https://www.herber.de/bbs/user/113225.xlsm wurde aus Datenschutzgründen gelöscht

und mir geht es rein nur um die ComboBoxen 1 bis 3, dass das richtige angezeigt wird und entsprechend in die Spalten übertragen wird, sobald gespeichert wird.
Hoffe es einigermaßen richtig erklärt zu haben.
es grüßt
Wolfgang

Hi Wolfgang

Private Sub UserForm_Initialize()
Dim i As Long
Dim lZeile As Long
'Alle TextBoxen leer machen
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
'In dieser Routine laden wir alle vorhandenen
'Einträge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren
lZeile = 3 'Start in Zeile 3, Zeile 1 und 2 sind ja die Überschriftrn
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))  ""
'Aktuelle Zeile in die ListBox eintragen
ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
With Worksheets("DropDown")
For i = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column Step 2
ComboBox2.AddItem .Cells(1, i)
Next i
End With
End Sub

Private Sub ComboBox2_Change()
Dim intListI As Integer, intSpalte As Integer, i As Integer
With Worksheets("DropDown")
ComboBox3.Clear
TextBox3A = ""
intListI = ComboBox2.ListIndex
If intListI >= 0 Then
intSpalte = (intListI * 2) + 1
For i = 2 To .Cells(Rows.Count, intSpalte).End(xlUp).Row
ComboBox3.AddItem .Cells(i, intSpalte)
Next i
End If
End With
End Sub

Private Sub ComboBox3_Change()
With Worksheets("DropDown")
TextBox3A = ""
If ComboBox3.ListIndex >= 0 Then
TextBox3A = .Cells(ComboBox3.ListIndex + 2, (ComboBox2.ListIndex * 2) + 2)
End If
End With
End Sub

cu
Chris

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ListBox2 abhängig von ListBox1

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread