Abhängigkeit Comboboxen Fehlermeldung
18.09.2014 11:43:21
Andreas
Ich habe ein UserForm mit vielen Combo- und Textboxen. Unter anderem Combobox22 die in Abhängigkeit von Combobox23 gefüllt wird:
gefüllt wird Combobox23 so: (Blatt "Strassen", Spalte A)
Private Sub UserForm_Initialize()
Dim lastRow As Integer
lastRow = Worksheets("Strassen").Cells(65536, 1).End(xlUp).Row
ComboBox23.List = Worksheets("Strassen").Range("A1:A" & lastRow).Value
End Sub
Private Sub ComboBox23_Change()
Dim arr As Variant
arr = Worksheets("Strassen").Range("B" & ComboBox23.ListIndex + 1 & ":G" & ComboBox23.ListIndex _
+ 1)
ComboBox22.Column = arr
End Sub
Das Problem: Gebe ich in Combobox23 einen Wert ein, der in
Worksheets("Strassen").Range("A1:A" & lastRow
"Laufzeitfehler 1004"
arr = Worksheets("Strassen").Range("B" & ComboBox23.ListIndex + 1 & ":G" & ComboBox23.ListIndex _
+ 1)
weil ja dann in Combobox22 nichts zum anzeigen ist.
Wie kann ich diese Fehlermeldung umgehen? Es sollen in die Combobox23 auch eigene Werte eingetragen werden können (Combobox22 bleibt dann leer).
Danke fürs lesen und die Hilfe!
mfg, Andreas