Habe ein Userform mit Multipage erstellt. Auf der einen Page kann man über Checkboxes mehrere Punkte (1 | 2 | 3 etc.) auswählen, die dann in einer einzigen Zelle mit einem Komma voneinader getrennt angegeben werden (z.B. 1, 2, 3, etc.). Der dafür vorgesehene Code sieht so aus:
If CheckBox1.Value = True Then
eins = "1"
Else: eins = ""
End If
If CheckBox2.Value = True Then
zwei = "2"
Else: zwei = ""
End If
If CheckBox3.Value = True Then
drei = "2a"
Else: drei = ""
End If
If CheckBox4.Value = True Then
vier = "3"
Else: vier = ""
End If
If CheckBox5.Value = True Then
fuenf = "3a"
Else: fuenf = ""
End If
If CheckBox6.Value = True Then
sechs = "4"
Else: sechs = ""
End If
If CheckBox7.Value = True Then
sieben = "4a"
Else: sieben = ""
End If
If CheckBox8.Value = True Then
acht = "4b"
Else: acht = ""
End If
If CheckBox9.Value = True Then
neun = "5"
Else: neun = ""
End If
gesamt = eins & ", " & zwei & ", " & drei & ", " & vier & ", " & fuenf & ", " & sechs & ", " & sieben & ", " & acht & ", " & neun
Sheets("Neu").Cells(3, 9) = gesamt
Nun habe ich aber u.U. in einer Zelle 8 Kommas und nur eine Zahl (z.B. 1, , , , , , , , ). Da ich die überflüssigen Kommata nicht nachträglich löschen kann stellt sich die Frage, ob ich evtl. den obigen Code so ummodeln bzw. einen neuen Code schreiben kann, sodass nur ein Komma gesetzt wird, wenn mehrere Zahlen per Checkbox ausgewählt wurden. Sollte nur eine Zahl angeklickt werden, soll überhaupt kein Komma in der Ausgabezelle auftauchen. Bin für jeden Lösungsvorschlag dankbar.
Ciao, Eleni