Anzeige
Archiv - Navigation
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Combobox füllen

Combobox füllen
09.05.2004 14:51:26
Herbert
Schönen Sonntag allerseits
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox füllen
Dieter
Hallo Herbert
welchen Namen hat deine Combobox?
Combobox1 oder cbbAdressen?
Berichtige oder gleiche die Bezeichnungen an und dann soll es klappen.
Gruß Dieter
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige