ich bin gerade dabei eine Excel Tabelle mit diversen Userformen für die Mitarbeiter zu vereinfachen. Vieles davon habe ich mit der Suchfunktion hier im Forum selber lösen können, doch bei einer Funktion komme ich ohne Eure geschätzte Hilfe leider nicht weiter. Folgendes Problem besteht:
Eine Tabelle ist mit Namen und diversen dazu passenden Inhalten gefüllt bzw. soll mit weiteren Inhalten über die Userform gefüllt werden. Die Auswahl des Namens wird über die Userform durch eine ComboBox realisiert, die in der Spalte 4 (D) die Namen sucht.
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "D9:D200"
End Sub
Nun möchte ich gerne, dass die eingetragenen Werte aus der TextBox bzw. die Daten aus der CheckBox in nebenstehende Zellen (z.B. Spalte 11 und 12) eingetragen werden. Wie kann ich das realisieren? In der folgenden (unwissenden) Art funktioniert es natürlich nicht:Private Sub Command_Take_Click()
Dim Found As Range
Dim Eingabe As String
Eingabe = ComboBox1.Value
Set Found = Columns("D:D").Find(What:=Eingabe, LookIn:=xlValues, LookAt:=xlWhole)
ActiveSheet.Cells(Found, 11).Value = TextBox1.Value
ActiveSheet.Cells(Found, 12).Value = TextBox2.Value
Set Found = Nothing
Unload ID
End Sub
Vielen Dank schon einmal für Eure Hilfe.Gruß Ulf