habe nochmals ein kleines Problem.
ich verwenden folgenden code (vom Hajo)
Private Sub OptionButton6_Click()
If OptionButton6 Then
Dim BoI As Byte
ComboBox1.Clear
With Worksheets("A- Schicht")
For BoI = 1 To 4
ComboBox1.AddItem .Cells(BoI, 1)
Next BoI
End With
End If
End Sub
Private Sub OptionButton7_Click()
If OptionButton7 Then
Dim BoI As Byte
ComboBox1.Clear
With Worksheets("B- Schicht")
For BoI = 1 To 4
ComboBox1.AddItem .Cells(BoI, 1)
Next BoI
End With
End If
End Sub
Private Sub OptionButton8_Click()
If OptionButton8 Then
Dim BoI As Byte
ComboBox1.Clear
With Worksheets("C- Schicht")
For BoI = 1 To 4
ComboBox1.AddItem .Cells(BoI, 1)
Next BoI
End With
End If
End Sub
Private Sub OptionButton9_Click()
If OptionButton9 Then
Dim BoI As Byte
ComboBox1.Clear
With Worksheets("D- Schicht")
For BoI = 1 To 4
ComboBox1.AddItem .Cells(BoI, 1)
Next BoI
End With
End If
End Sub
Ich möchte nun in der Textbox1 (in meiner der Userform) mach der Auswahl über die combobox, die die Daten aus der Spalte A ausliest, das ergebnis aus der Spalte D anzeigen.
wer kann mir weiterhelfen?
mfg
erich h.