Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Adressfeld aus UserForm-ComboBox füllen

Gruppe

ComboBox

Problem

Wie kann ich ein Adressfeld in einem Tabellenblatt durch Auswahl des Firmennamens in einer UserForm-ComboBox füllen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmAdressen

Private Sub cbbAdressen_Change()
   Dim wks As Worksheet, shBrief As Worksheet
   Set wks = Worksheets("Adressen")
   With cbbAdressen
      Range("A12") = wks.Cells(.ListIndex + 2, 1)
      Range("A13") = wks.Cells(.ListIndex + 2, 2)
      Range("A15") = wks.Cells(.ListIndex + 2, 3) & _
         " " & wks.Cells(.ListIndex + 2, 4)
   End With
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim lRow As Long
   With Worksheets("Adressen")
      lRow = .Cells(Rows.Count, 1).End(xlUp).Row
      cbbAdressen.List = .Range(.Cells(2, 1), .Cells(lRow, 1)).Value
   End With
   cbbAdressen.ListIndex = 0
End Sub

StandardModule: basMain

Sub CallForm()
   frmAdressen.Show
End Sub