Das Archiv des Excel-Forums

ComboBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: ComboBox
von: rolf

Geschrieben am: 01.08.2008 17:58:55

Hallo
ich möchte gerne eine zweite combobox hinzufügen.
wie muß das makro verändert werden ?
combobox2 soll in spallte f suchen.


Private Sub UserForm_Initialize()
Dim lngZ As Long
For lngZ = 2 To Sheets("Abstammungen").Range("G65536").End(xlUp).Row
ComboBox1.AddItem Sheets("Abstammungen").Cells(lngZ, 7)
Next
End Sub


mfg rolf

Bild

Betrifft: AW: ComboBox
von: Luschi
Geschrieben am: 01.08.2008 18:39:27
Hallo Rolf,
so sollte es funktionieren:


Private Sub UserForm_Initialize()
Dim lngZ_1 As Long, lngZ_2 As Long, _
myArr_1() As Variant, myArr_2() As Variant
'Spalte G
lngZ_1 = Worksheets("Abstammungen").Range("G65536").End(xlUp).Row
myArr_1 = Sheets("Abstammungen").Range("G2:G" & lngZ_1).Value
'Spalte F
lngZ_2 = Worksheets("Abstammungen").Range("F65536").End(xlUp).Row
myArr_2 = Sheets("Abstammungen").Range("F2:F" & lngZ_2).Value
Me.ComboBox1.List = myArr_1
Me.ComboBox2.List = myArr_2
End Sub


Dabei sind myArr_1 und myArr_2 Arrays (Datenfelder), denen man einen Range-Bereich ohne Schleifen-Durchlauf zuordnen kann.
Die List-Eigenschaft der Combobox ist in der Lage den Inhalt des Arrays einzulesen. Das ist schneller als eine For-Schleife mit dem AddItem-Befehl.
Gruß von Luschi
aus klein-Paris

Bild

Betrifft: AW: ComboBox
von: rolf

Geschrieben am: 01.08.2008 19:49:08
hallo Luschi
das einlesen in die combobox funktioniert.
ich kann nur nicht die daten von combobox2 an die textboxen übergeben.
makro zum einlesen.


Private Sub ComboBox1_Change()
'Daten aus Spalten  und aktueller ZeilenNr in Textbox übertragen
TextBox63.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 7)
TextBox57.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 8)
TextBox59.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 9)
TextBox51.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 12)
TextBox94.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 20)
TextBox15.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 60)
End Sub



Private Sub ComboBox2_Change()
'Daten aus Spalten  und aktueller ZeilenNr in Textbox übertragen
TextBox68.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 6)
TextBox63.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 7)
TextBox61.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 23)
TextBox55.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 27)
TextBox87.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 35)
TextBox83.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 76)
TextBox65.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 22)
End Sub


danke mfg rolf

Bild

Betrifft: AW: ComboBox
von: rolf
Geschrieben am: 01.08.2008 21:44:19
hallo
ich habe den fehler gefunden.
danke !
mfg rolf

 Bild

Excel-Beispiele zum Thema "ComboBox"

ComboBox als Symbol download Alle ComboBoxes auf Position 1 download
Werte in eine ComboBox einer UserForm übernehmen download ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden download
ComboBox mit Monatsnamen füllen download Mehrspaltige ComboBox download
ComboBox2 in Abhängigkeit von ComboBox1 bestücken download Nur Zellen mit Inhalt in ComboBox listen download
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download Neues Element in ComboBox download
Werteübernahme gem. Auswahl in ComboBox - ohne VBA download Blätter in ComboBox-Feld einlesen und auswählen download
Wert in einer CommandBarComboBox verändern download ComboBox-Felder in UserForm aufklappen download
UserForm-ComboBox-Feld nach Tasteneingabe aufklappen download Wert aus 2. UserForm-ComboBox-Spalte berechnen download
In einer ComboBox selektiertes Arbeitsblatt auswählen download ComboBox in Abhängigkeit von einer CheckBox anzeigen download
Adressfeld aus UserForm-ComboBox füllen download Tages-ComboBox einer UserForm an den ausgewählten Monat anpassen download
UserForm mit ComboBoxes durch VBA-Code erstellen download ComboBoxes per VBA-Code in Tabellenblatt erzeugen download
ComboBox für Monatsblattauswahl in Menüleiste einfügen download Wert aus ComboBox in Tabelle eintragen download
TextBox in Abhängigkeit einer ComboBox-Auswahl füllen download Symbolleiste mit ComboBox erstellen download
Werte in UserForm-ComboBox einlesen und ausgeben download Ein- und ausblenden von Blättern gem. UserForm-ComboBoxes download
Nach Tabellenblatt-ComboBox den vorher selektierte Bereich wählen download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Bei einer mehrspaltigen ComboBox Wert aus Spalte 2 als Startwert download UserForm-ComboBoxes als Collection-Objekte ansprechen download
Eintrag eines UserForm-ComboBox-Wertes in aktive Zelle download Zweidimensionales Array an UserForm-ComboBox übergeben download
In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen download Wert aus ComboBox in TextBox, dann in Tabelle suchen download
Summe aller Werte gem. ComboBox-Eintrag download Geöffete Arbeitsmappen in Menü-ComboBox listen download
Tabelle nach ComboBox-Auswahl durchsuchen download Blattauswahl über eine UserForm-ComboBox download
Dateinamen in UserForm-ComboBox einlesen und Datei öffnen download Doppelt vorkommende Werte in einer UserForm-Combobox listen download
Selektieren von über ComboBox-Felder ausgewählten Werten download Nach Artikelauswahl in ComboBox Preis ermitteln download
Wert in ComboBox einlesen, suchen, editieren, ausgeben download Liste ohne Doppelte Werte in ComboBox einlesen download
ComboBox-Breiten während der Laufzeit festlegen download Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen download
Bei Aktivieren eines Arbeitsblattes ComboBox neu einlesen download Beim Öffnen der Arbeitsmappe Menü-ComboBoxes anlegen download