Thema: Orte und Ortsteile eintragen

Home

Nach Auswahl eines Ortes in der ersten ComboBox werden in der zweiten die zugehörigen Ortsteile gelistet. Nach Auswahl des Ortsteils werden Ort und Ortsteil in die Spalten A:B eingetragen.

Prozedur: cboOrt_Change
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Orte und Ortsteile eintragen
Ablaufbeschreibung:
- Variablendeklaration
- Integer-Variable mit Startspalte initialisieren
- ComboBox mit den Ortsteilen zurücksetzen
- Einen Rahmen um das Arbeitsblatt-Objekt bilden
- Schleife, bis zur ersten leeren Zelle
- ComboBox mit den Ortsteilen ein Element hinzufügen

Code:


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
      Loop
   End With
   cboOrtsteil.ListIndex = 0
End Sub