hab mal wieder ein Problem ... sitze nun schon 2 Tage an dem Code ( von dem ich eh kaum was verstehe ) und es will einfach nicht funktionieren.
Es geht um folgendes:
Ich hab ein UserForm mit 3 ComboBoxen. In die erste ComboBox sollen nur Einträge die "DSR" enthalten und auf dem activen Tabellenblatt in der ersten Spalte stehen, angezeigt werden. Nun hab ich hab aber noch 2 andere ComboBoxen. In diesen beiden soll genau das selbe ausgegeben werden. und zwar alle Einträge mit "SPC" die auf dem Tabellenblatt "test" in der ersten Spalte sind. Hier mein Code dazu:
Private Sub UserForm_Initialize()
'===***ComboBox - DSR***===
Dim lZeile As Long
DSR.Tag = "X" ' ComboBox1_Change nicht durchlaufen
For lZeile = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Left(Cells(lZeile, 1).Value, 3) = "DSR" Then
With DSR
.AddItem Cells(lZeile, 1).Value
End With
End If
Next lZeile
If DSR.ListCount > 0 Then DSR.ListIndex = 0
DSR.Tag = "" ' ComboBox1_Change wieder zulassen
Call SortBox(DSR, 1, 1, 1)
'===***ComboBox - STROM1***===
Dim lZeilea As Long
STROM1.Tag = "X"
For lZeilea = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Left(ThisWorkbook.Sheets("test").Cells(lZeilea, 1).Value, 3) = "SPC" Then
With STROM1
.AddItem ThisWorkbook.Sheets("test").Cells(lZeilea, 1).Value
End With
End If
Next lZeilea
If STROM1.ListCount > 0 Then STROM1.ListIndex = 0
STROM1.Tag = ""
Call SortBox(STROM1, 1, 1, 1)
'===***ComboBox - Strom2***===
Dim lZeiley As Long
STROM2.Tag = "X"
For lZeiley = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Left(ThisWorkbook.Sheets("test").Cells(lZeiley, 1).Value, 3) = "SPC" Then
With STROM2
.AddItem ThisWorkbook.Sheets("test").Cells(lZeiley, 1).Value
End With
End If
Next lZeiley
If STROM2.ListCount > 0 Then STROM2.ListIndex = 0
STROM2.Tag = ""
Call SortBox(STROM2, 1, 1, 1)
End Sub
Hoffe mir kann jmd helfen und sagen was da falsch ist.
Gruß Dominik