Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1672to1676
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
CheckBox Eintrag in Liste
11.02.2019 13:11:46
Michael
Hallo,
ich habe eine UserForm mit Textfeldern, OptionButtons und auch Checkboxen. Bei Klick auf Speichern werden entsprechende Daten in die Excel Liste eingefügt.
Nun zu den CheckBoxen: Wenn ich die erste CheckBox nicht auswähle, die folgenden allerdings schon, dann ist vor dem ersten Wert ein Komma.
Gibt es eine elegante Möglichkeit das Komma zu entfernen, wenn vorherige Optionen nicht gewählt sind. Normalerweise soll das Komma die verschiedenen Begriffe trennen, wenn die vorherige Option allerdings nicht ausgewählt ist, soll es nicht auftauchen.
Momentan sieht es so aus, vielleicht kann mir ja jemand helfen:
If CheckBox_RD.Value = True Then Cells(last, 7).Value =
CheckBox_RD.Caption
If CheckBox_FW.Value = True Then Cells(last, 7).Value =
Cells(last, 7).Value & " , " & CheckBox_FW.Caption
If CheckBox_POL.Value = True Then Cells(last, 7).Value =
Cells(last, 7).Value & " , " & CheckBox_POL.Caption
If CheckBox_KV.Value = True Then Cells(last, 7).Value =
Cells(last, 7).Value & " , " & CheckBox_KV.Caption
If CheckBox_PD.Value = True Then Cells(last, 7).Value =
Cells(last, 7).Value & " , " & CheckBox_PD.Caption
If CheckBox_BZP.Value = True Then Cells(last, 7).Value =
Cells(last, 7).Value & " , " & CheckBox_BZP.Caption

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CheckBox Eintrag in Liste
11.02.2019 13:25:25
ede
Hallo Michael,
dann setzt doch das " ," immer hinten ran!
gruss
ede
AW: CheckBox Eintrag in Liste
11.02.2019 13:36:51
Daniel
HI
setze das Komma immer vorne dran und entferne dann das erste Komma.
If CheckBox_RD.Value = True Then Cells(last, 7).Value = " , " & CheckBox_RD.Caption
If CheckBox_FW.Value = True Then Cells(last, 7).Value = Cells(last, 7).Value & " , " & CheckBox_FW.Caption
...
Cells(last, 7).Value = Mid(Cells(last, 7).Value, 4)
Gruß Daniel
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige