Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nach Ortsauswahl neue UserForm mit Ortsteilauswahl

Gruppe

ComboBox

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