ComboBox

• ComboBox von rolf vom 01.08.2008 17:58:55
• AW: ComboBox - von Luschi am 01.08.2008 18:39:27
  • AW: ComboBox - von rolf am 01.08.2008 19:49:08
    • AW: ComboBox - von rolf am 01.08.2008 21:44:19

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

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

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

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

Excel-Beispiele zum Thema "ComboBox"

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