Endlose If Then Else in VBA die 2.

Question

Hallo Leute...,

hab wieder mal eine Frage zu meiner Arbeitsmappe...

Combo5 listet die Hauptkategorie, im Blatt "LB_ComboDaten" in SpalteA und die zugehörige Unterkategorie findet man fortlaufend in den Spalten.

Bsp. >>Heizelemente<< in Pos. A4, = Solar-ElementX in Spalte4 oder >>Speicher<< in A5, = ThermoXY in Spalte5 usw.)

Combo6 listet die jeweils zugehörige Unterkategorie zur Auswahl von Combo5

Nach unzähligen VBA-Std. hat sich folgendes ergeben:

Private Sub ComboBox5_Change()
Dim x As Integer, z As Integer, lastRow As Integer
ComboBox6.Clear

lastRow = Worksheets("LB_ComboDaten").Cells(Rows.Count, 1).End(xlUp).Row
lastRow = lastRow + 1

For x = 1 To lastRow
ReDim arr(lastRow)
arr(x) = Worksheets("LB_ComboDaten").Cells(x, 1)

If ComboBox5.Value = arr(x) Then
lastRow = Worksheets("LB_ComboDaten").Cells(Rows.Count, x).End(xlUp).Row
lastRow = lastRow + 1

For z = 2 To lastRow
ComboBox6.AddItem Worksheets("LB_ComboDaten").Cells(z, x).Value
Next z
Exit Sub
End If
Next x
End Sub

Wenn ich aus einer Userform einen neuen Eintrag in SpalteA hinzufüge müsste ich die nächste leere Spalte für die Unterkategorie benennen.

Warum funktioniert es mit:

Worksheets("LB_ComboDaten").Cells(1, Columns.Count).End(xlToLeft).Column

nicht ??

Gruß ronny