Morgen!
Bräuchte mal eure Hilfe: Habe 4 Tabellen, mehrere Checkboxen, eine Textbox und einen CommandButton.
Die ersten 4 Checkboxen sind für die Erfassung aus welchem Team der Befragte kommt, z.B. Koch, Kellner, Hilfskraft und Reingungskraft. Die 4 Tabellen sind auch für die Teams gedacht. Nachdem Sie angegeben aus welchem Team sie kommen, und dann eine zweite Checkbox "zu erstellender Ordner" geklickt haben öffnet sich die TextBox. Jetzt das Problem:
Bei Klick auf den CommandButton soll der Text in eine der vier Tabellen kopiert werden, je nachdem welches Team sie sind.
Mein Befehl:
Private Sub CommandButton1_Click()
If CheckBox1.Value = True And _
CheckBox21.Value = True Then
Sheets("Tabelle1").Range("R2").Value = TextBox1.Value
End If
End Sub
Checkbox 1 ist Kellner, Tabelle1 die Tabelle für Kellner.
Sagt er mir iwas mit Debugger.=/ Wäre dankbar für eure Hilfe! =)
MfG Christian
|