Microsoft Excel

Herbers Excel/VBA-Archiv

Abhängigkeit Comboboxen Fehlermeldung

Betrifft: Abhängigkeit Comboboxen Fehlermeldung von: Andreas
Geschrieben am: 18.09.2014 11:43:21

Hallo Excelprofis,

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

Die Abhängigkeit von Combobox22 habe ich im Netz gefunden

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 
nicht vorhanden ist, bekomme ich eine Fehlermeldung:
"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

  

Betrifft: AW: Abhängigkeit Comboboxen Fehlermeldung von: Hajo_Zi
Geschrieben am: 18.09.2014 11:47:00

Hallo Andreas,

reich nicht


if ComboBox23.ListIndex >=0 then

GrußformelHomepage


  

Betrifft: AW: Abhängigkeit Comboboxen Fehlermeldung von: Andreas
Geschrieben am: 18.09.2014 12:04:29

Hallo Hajo,

danke für die schnelle Antwort! Habe deinen Tipp jetzt so umgesetzt:

Private Sub ComboBox23_Change()
Dim arr As Variant
If ComboBox23.ListIndex >= 0 Then
arr = Worksheets("Strassen").Range("B" & ComboBox23.ListIndex + 1 & ":G" & ComboBox23.ListIndex  _
+ 1)
ComboBox22.Column = arr
End If

End Sub
Es kommt keine Fehlermeldung mehr.

Vielen Dank!

mfg, Andreas


 

Beiträge aus den Excel-Beispielen zum Thema "Abhängigkeit Comboboxen Fehlermeldung"