Office: Combobox in Formular mit Werten aus Spalte füllen

scrooge26 · 29. Oktober 2003

Hallo,

ich habe ein Formular mit einer ComboBox. Die Combobox fülle ich derzeit mit Daten über einen VBA-Code:

Code:

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Mitarbeiter 1"
.AddItem "Mitarbeiter 2"
.AddItem "Mitarbeiter 3"
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da ich jedoch knapp 1000 Werte habe, möchte ich nicht 1000x alles in dieser Form eintragen. Kann ich das ganze über einen Verweis auf eine Spalte in einer Tabelle Werte lösen?
Was muss ich denn da im Code ändern?

Vielen Dank schon mal.

Schöne Grüße,

scrooge26

:)

jinx · 31. Oktober 2003

Moin, scrooge,

geht schon, hier als Beispiel beginnend in Zelle A1 auf der Tabelle "Werte" - ListIndex ist hier der zweite Eintrag (ListIndex beginnt mit der Zählung bei 0):

Code:

scrooge26 · 31. Oktober 2003

Hallo jinxx,

danke, es funktioniert.
Jedoch ist es so:
Ich habe mehrere Textfelder und bisher ein Kombifeld. Wenn ich nun alle Felder ausfülle und aus dem Kombifeld etwas auswähle und den Button Daten eintragen klicke, werden die Daten in der Tabelle in den davor vorgesehenen Zellen gespeichert. Bei nochmaliger Eingabe werden die Daten in die nächste freie Zeile gespeichert.

Wenn ich jetzt jedoch nur etwas aus dem Kombifeld auswähle und auf Daten eintragen klicke und dies mehrmals tue, dann wird der Wert nicht in eine neue Zeile geschrieben, sondern überschreibt den vorherigen Wert. Wenn ich alle drei Felder ausfülle klappts. Zur Verdeutlichung hier mald er Code:

Code:

Private Sub UserForm_Initialize()
With Worksheets("Werte")
ComboBox1.List = .Range(.Cells(1, 1), .Cells(.UsedRange.Rows.Count, 1)).Value
End With
ComboBox1.ListIndex = 1
With ComboBox2
.AddItem "Maier"
.AddItem "Müller"
.AddItem "Huber"
.AddItem "Maurer"
End With
End Sub

Private Sub CommandButton1_Click()
If IsEmpty(Cells(65536, 1)) Then
intLastRow = Cells(Rows.Count, 1).End(xlUp).Row
End If
Sheets("Tabelle1").Range("A" & intLastRow + 1).Value = TextBox1.Value
Sheets("Tabelle1").Range("B" & intLastRow + 1).Value = TextBox2.Value
Sheets("Tabelle1").Range("C" & intLastRow + 1).Value = ComboBox1.Value
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schöne Grüße,

scrooge26

jinx · 31. Oktober 2003

Moin, scrooge,

warum stellst Du eine Frage, die ich in Bestimmte Zellen über Formular füllen beantwortet habe, an dieser Stelle noch einmal, ohne auf den anderen Beitrag einzugehen?

scrooge26 · 31. Oktober 2003

Tut mir Leid jinxx, hab ich zu spät gesehen den Beitrag. Ich sollte doch besser meine Fragen nach und nach nach Antworten im Forum durchsehen. Entschudlige bitte.

Schöne Grüße,

scrooge26

jinx · 31. Oktober 2003

Moin, scrooge,

wollen wir jetzt eine Entschuldigungs"polonaise" starten - ich habe Deine Antwort dort ja auch nicht wahrgenommen...

Nagus · 1. Dezember 2003

Original geschrieben von jinx
Moin, scrooge,

geht schon, hier als Beispiel beginnend in Zelle A1 auf der Tabelle "Werte" - ListIndex ist hier der zweite Eintrag (ListIndex beginnt mit der Zählung bei 0):

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

OfficeUser · 12. Januar 2021

Moin, Nagus,

meine Version von Excel97 enttäuscht mich da - sie stellt die Werte richtig dar:

A
1 11/21/2003
2 11/22/2003
3 11/23/2003
4 11/24/2003
5 11/25/2003
6 11/26/2003
7 11/27/2003
8 11/28/2003
9 11/29/2003
10 11/30/2003
11 12/01/2003
[/quote] Excel Tabellen einfach im Web darstellen

Private Sub UserForm_Initialize()
Dim lngLastRow As Long
lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lngLastRow
ComboBox1.AddItem Format(Cells(i, 1).Value, "DD. MMMM YYYY")
Next
ComboBox1.ListIndex = 1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

[/quote]

Nagus · 1. Dezember 2003

Jo, das funktioniert. Danke jinx!

Office: Combobox in Formular mit Werten aus Spalte füllen

Combobox in Formular mit Werten aus Spalte füllen

Combobox in Formular mit Werten aus Spalte füllen

Combobox in Formular mit Werten aus Spalte füllen

Combobox in Formular mit Werten aus Spalte füllen

Combobox in Formular mit Werten aus Spalte füllen - Similar Threads - Combobox Formular Werten

Combobox soll zur nächsten Txtbox wechseln zum befüllen

Combobox einbinden

Dynamische Combobox mit zwei Bedingungen

Auswahl über Combobox dann Werte kopieren

Textbox aus Combobox nach Änderung befüllen

Combobox immer wenigere Daten anzeigen

wert aus ComboBox prüfen dann hinzufügen

	A
1	11/21/2003
2	11/22/2003
3	11/23/2003
4	11/24/2003
5	11/25/2003
6	11/26/2003
7	11/27/2003
8	11/28/2003
9	11/29/2003
10	11/30/2003
11	12/01/2003