CheckBox Hilfe?
Hacki
ich würde gerne auf meiner Userform 4 Checkboxfunktionen erstellen. benutze für Checkbox1 diesen Code
Private Sub CheckBox1_Click()
Sheets("Tabellen").Cells.ClearContents
Select Case u
Case "CheckBox1"
Sheets("Tabellen").Cells.ClearContents
Sheets("Tabellen").Select
Range("B1").Select
ActiveCell.FormulaR1C1 = "Priorität 1"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Priorität 2"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Priorität 3"
End Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Eigentlich ist dieser Code funktional für meine ComboBoxen, aber müsste doch auch mit Checkboxen gehn oder?
würd gern auf der "Tabellen" -seite paar daten hinzufügen lassen.
Mfg
Hacki
Anzeige