Gruppe
Dialog
Problem
Wie kann ich ein Adressfeld in einem Tabellenblatt durch Auswahl des Firmennamens in einer UserForm-ComboBox füllen?
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