|
Hi Leute,
könnt ihr mir sagen wie ich das programmieren muss, dass mehrere Checkboxen einen bestimmten Text in NUR eine Zelle füllen und durch ein Komma trennen???
Also z.B.: Checkbox 1 = True -> befülle Zelle "B12" mit Text "Rechtes Schienbein"
Checkbox 2 = True -> befülle Zelle "B12" mit Text "Rechtes Knie"
Ergebnis sollte dann sein:
Zelle "B12" enthält -> ["Rechtes Schienbein, Rechtes Knie"]
Wäre wirklich super wenn ihr mir weiterhelfen könnt, danke :)
LG Chris
Das Ganze soll im Tabellenblatt "Unfallanzeige" geschehen.
Mein Code bisher dazu ist:
'Schienbein Rechts
Private Sub CBSchienbeinRechts_Click()
Worksheets("Verletzte Körperteile").Activate
If CBSchienbeinRechts.Value = True Then Range("AD5").Value = Range("AD5").Value + 1
If CBSchienbeinRechts.Value = False Then Range("AD5").Value = ""
Worksheets("Unfallanzeige").Activate
If CBSchienbeinRechts.Value = True Then Range("B52").Value = "Rechtes Schienbein"
If CBSchienbeinRechts.Value = False Then Range("B52").Value = ""
End Sub
'Knie Rechts
Private Sub CBKnieRechts_Click()
Worksheets("Verletzte Körperteile").Activate
If CBKnieRechts.Value = True Then Range("AE5").Value = Range("AE5").Value + 1
If CBKnieRechts.Value = False Then Range("AE5").Value = ""
Worksheets("Unfallanzeige").Activate
If CBSchienbeinRechts.Value = True Then Range("B52").Value = "Rechtes Knie"
If CBSchienbeinRechts.Value = False Then Range("B52").Value = ""
End Sub
|