RowSource Fehler
Martina
Ich habe ein Problem, dass ich einfach nicht hinkriege.
1. hatte ich schon mal Hilfe von Hajo bekommen, wo ich mich nochmals bedanken möchte
2. sobald ich eine andere tabelle aktiv habe funktioniert die Funktion nicht mehr "Eigenschaft RowSource konnte nicht gesetzt werden. Ungültiger Eigenschaftswert"
3. auch erscheint dieser Fehler auch, wenn ich bei der funktionierenden Mustertabelle nur die Daten in den Zellen verändere
Ich hoffe mir kann jemand auf die Sprünge helfen.
Hier nochmals der Code:
Loletzte = 65536
If Range("A65536") = "" Then Loletzte = Range("A65536").End(xlUp).Row
For LoI = 1 To Loletzte
cbo.AddItem Cells(LoI, 1)
Next LoI
cbo1.ListIndex = 0
End Sub
Private Sub cbo1_Change()
Workbooks("Notschirme2").Activate
If cbo1.Value <> "" Then
cbo2.RowSource = cbo1.Value
cbo2.ListIndex = 0
End If
End Sub