Mit folgendem Code erfolgt in der ComboBox 3 in einer UserForm ein zweispaltiger Eintrag:
z.B. 4051410 KurNeb0
Private Sub ComboBox3_Change()
On Error Resume Next
Dim R%
Dim Suche As Range
Dim wks As Worksheet
Set wks = Workbooks("Masterprog.xla").Worksheets("Tabelle1")
ComboBox3.Text = ComboBox3.Column(0) & " " & ComboBox3.Column(1)
End Sub
Wie muß ich bitte den Code ergänzen damit nach der Auswahl in der CB3 in die aktive Zelle eines Arbeitsblattes der Wert 2 (Combobox, Spalte 2), also "KurNeb0" eingetragen wird?
Danke
Josef