Combobox füllen
09.05.2004 14:51:26
Herbert
Ich habe mir von Hans´ CD einen Code geholt, der eine Userform mit einer ComboBox öffnet um dann Adressen (Name Ort Stadt) in das Tabellenblatt einträgt. Ich möchte aus der Steuerelementbox eine ComboBox (Dropdown) direkt in das Tabellenblatt einfügen und den Code übernehmen, aber das klappt nicht, meine ComboBox1 im Tabellenblatt bleibt leer.
Vielleicht kann jemand meine Blockade lösen
Gruß Herbert
Option Explicit
Private Sub UserForm_Initialize()
Dim sngRow As Single
With Worksheets("Adressen")
sngRow = .Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.List = .Range(.Cells(2, 1), .Cells(sngRow, 1))
End With
cbbAdressen.ListIndex = 0
End Sub
Private Sub ComboBox1_Change()
Dim shAdressen As Worksheet
Set shAdressen = Worksheets("Adressen")
With ComboBox1
Range("A12") = shAdressen.Cells(.ListIndex + 2, 1)
Range("A13") = shAdressen.Cells(.ListIndex + 2, 2)
Range("A15") = shAdressen.Cells(.ListIndex + 2, 3) & _
" " & shAdressen.Cells(.ListIndex + 2, 4)
End With
End Sub
Anzeige