Gruppe
Dialog
Bereich
ComboBox
Thema
Nach Ortsauswahl neue UserForm mit Ortsteilauswahl
Problem
Wie kann ich mir nach der Auswahl eines Ortes in einer ComboBox einer UserForm in einer neuen UserForm die zugehörigen Ortsteile zur Auswahl anzeigen lassen?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmAddress
Private Sub cboOrt_Change()
Dim iCol As Integer
iCol = 2
cboOrtsteil.Clear
With Worksheets("Daten")
Do Until IsEmpty(.Cells(cboort.ListIndex + 1, iCol))
cboOrtsteil.AddItem .Cells(cboOrt.ListIndex + 1, iCol)
iCol = iCol + 1
Wend
End With
cboOrtsteil.ListIndex = 0
End Sub
Private Sub cmdContinue_Click()
Dim iRow As Integer
If cboOrtsteil.ListIndex <> -1 Then
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(iRow, 1) = cboOrt.Value
Cells(iRow, 2) = cboOrtsteil.Value
End If
Unload Me
End Sub
Private Sub UserForm_Initialize()
cboOrt.ListIndex = 0
End Sub
StandardModule: basMain
Sub CallForm()
frmAddress.Show
End Sub