ich möchte in meiner Schulungsmatrix Schulungen über die Textboxen einer UserForm eintragen. Die Werte einmal eintragen schaffe ich. Leider nicht dreimal. Es soll ab Spalte "O" , "JF" , "ACO" jeweils der gleiche Wert eingetragen werden. Danach jeder neue Wert in der darauffolgende Spalte usw.
Dreimal deshalb, einmal die Sollschulung, durchgeführte Schulung, prüfung Nachhaltigkeit.
Ich möchte später nach Mitarbeitern suchen und dann die Schulungen anzeigen lassen.
Sofern das überhaupt möglich ist.
Private Sub CommandButton4_Click()
Dim lZeile As Long
Sheets("Tabelle2").Range("O1:JD1").Select
Sheets("Tabelle2").Range("JF1, ACL1").Select
Sheets("Tabelle2").Range("ACO1, AMD1").Select
Tabelle2.Cells(Columns.Count).End(xlToLeft).Offset(0, 1) = TextBox2.Value
Tabelle2.Cells(Columns.Count).End(xlToLeft).Offset(1, 0) = TextBox1.Value
'Eintrag gefunden, TextBoxen in die Zellen schreiben
Tabelle2.Cells(Columns.Count, 15).Value = Trim(CStr(TextBox1.Text))
End Sub
Vielleicht kann mir jemand dabei helfen.Vielen Dank in voraus.
Gruß Klaus