Daten über ComboBox in TextBox
14.03.2007 14:38:25
Josef
Hallo!
Ich habe ich einem Arbeitsblatt eine Menge Datensätze stehen. Einige dieser Daten werden in die ComboBox in eine Userform eingelesen und zwar 3 Spalten.
Annahme: der Datensatz ist z.B. in der Zeile 85
Wenn ich jetzt in der Spalte I "343 " in der Spalte J "23" und in der Spalte K "Untersuchungsmaterial" stehen habe so schaut der Eintrag in der ComboBox so aus:
343 23 Untersuchungsmaterial
Jetzt möchte ich erreichen das bei der Aktivierung dieses Datensatzes der Eintrag in der Spalte B (B85)z.B. Abschnitt A in die TextBox1 in der UserForm eingelesen wird
So klappt es leider nicht:
Private Sub cboNamen3_Change()
On Error Resume Next
Dim R%
Dim Suche As Range
Dim wks1 As Worksheet
Set wks1 = Workbooks("NOVA_CSV_TRANSFERDATEI.xla").Worksheets("SUBKAPITEL")
cboNamen3.Text = cboNamen3.Column(0) & " " & cboNamen3.Column(1) & " " & cboNamen3.Column(2)
Set Suche = wks1.Range("I2:K").Find(cboNamen3.Value, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
If (Not Suche Is Nothing) Then ' <-- hier der Test
R = Suche.Row
subtxt2.Text = wks1.Cells(R, 2)
End If
End Sub
Wie ´müßte hier bitte der Code verändert werden, damit dies klappt?Danke
josef