Combobox erweitern

Hallo Forum,
Folgende Situation: In einer Tabelle 1 sind in Spalte 1 Namen, in Spalte 2 Vornamen und in Spalte 3 Jahrgang eingetragen. Für Tabelle 2 fülle ich eine Combobox (Userform) mit Namen und Vornamen.
xRow = [A65536].End(xlUp).Row
ComboBox1.AddItem "Bitte Spieler auswählen"
For i = 2 To aRow
ComboBox1.AddItem Cells(i, 1) & ", " & Cells(i, 2)
Next i
Nach Auswahl eines Namens aus der Combobox und weiteren Einträgen in diverse Textboxen trage ich Name, Vorname in der Tabelle 2 in Spalte 1 ein. (CommandButton)
Cells(xRow + 1, 1) = ComboBox1.Value
Bis dahin funktioniert auch alles.
Wie aber komme ich an die zugehörigen Werte Jahrgang in Spalte 3 der Tabelle 1 heran, um den Wert in Spalte 2 der Tabelle 2 einzutragen?
Cells(xRow + 1, 2) = ?
Ich vermute, dass man dazu einen ListIndex der Spalte 1, Tabelle 1 braucht, aus der die Combobox gefüllt wird. Bitte helft mir.
Gruß Dieter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Da stimmen ein paar Dinge nicht!
erst xRow = [A65536].End(xlUp).Row
dann For i = 2 To aRow ?
Desweiteren schreibst Du nicht in Tabelle2.
Also muss man vorher auf die Tabelle referenzieren!
Vorschlag:

Option Explicit
Public xRow&, i&
Private Sub UserForm_Activate()
xRow = Tabelle1.[A65536].End(xlUp).Row
' ALTERNATIV                                   #
' ComboBox1.RowSource = "Tabelle1!A2:C" & xRow #
' ComboBox1.ColumnCount = 3                    #
' ComboBox1.ColumnWidths = "50;50;50"          #
With Tabelle1
For i = 2 To xRow
ComboBox1.AddItem .Cells(i, 1) & ", " & .Cells(i, 2) & ", " & .Cells(i, 3)
Next i
End With
ComboBox1.Text = "Bitte Spieler auswählen"
End Sub
Private Sub CommandButton1_Click()
Dim iRow&
iRow = Tabelle2.[A65536].End(xlUp).Row
If ComboBox1.ListIndex > -1 Then
Tabelle2.Cells(iRow + 1, 1) = ComboBox1.Value
End If
End Sub

Gruß Matthias

Option Explicit Public xRow& Private Sub UserForm_Activate() xRow = Tabelle1.[A65536].End(xlUp).Row With ComboBox1 .RowSource = "Tabelle1!A2:C" & xRow .ColumnCount = 3 .ColumnWidths = "50;50;50" .Text = "Bitte Spieler auswählen" End With End Sub

Private Sub CommandButton1_Click() Dim iRow& iRow = Tabelle2.[A65536].End(xlUp).Row If ComboBox1.ListIndex > -1 Then Tabelle2.Cells(iRow + 1, 1) = ComboBox1.List(, 0) & ", " & ComboBox1.List(, 1) Tabelle2.Cells(iRow + 1, 2) = ComboBox1.List(, 2) End If End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Combobox erweitern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread