Office: Combobox Wert auslesen

Ich habe eine wahrscheinlich banale Frage:

In der angehängten Datei stehen in der Spalte A Werte. Diese werden in der Userform in der Combobox1 angezeigt.
Bei Auswahl eines Wertes soll nun in der Textbox1 der entsprechende Wert der Spalte G angezeigt werden.
Ich stehe da total auf dem Schlauch. Wäre schön wenn mir jemand helfen könnte.

Ciao Werner

:)

 

Hallo Toski,

so geht es:

Private Sub ComboBox1_Change()
TextBox1 = Cells(ComboBox1.ListIndex + 1, 7)
End Sub

 

Hallo Klaus-Dieter

Danke für die rasend schnelle Antwort.
Das ist ja wirklich ganz trivial, wenn man es weiß *Smilie

 

HAllo Werner

Wenn du die RowSource gelöscht hast, versuche mal diesen Code:

Option Explicit

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 6)
End Sub

Private Sub UserForm_Initialize()
With ComboBox1
.ColumnCount = 7
.BoundColumn = 1
.ColumnWidths = "10;0;0;0;0;0;0"
.List = Range("a1:g9").Value
End With
End Sub

ransi