Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
820to824
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem mit CheckBox

Problem mit CheckBox
19.11.2006 18:49:10
ABO
Hallo Excel Profis
Ich habe folgendes Problem.
Ich habe eine Eingabemaske die über Menü aufgerufen wird!
In dieser Eingabemaske kann ich neue Adressen etc. einfügen.
Wenn ich die CheckBox 1 oder 2 anklicke, erscheint in der Liste ein „x“
unter Test 1 bzw. Test 2. Soweit alles gut. Wenn ich jedoch z.B. das
Geburtsdatum ändern will, und auf Übernehmen gehe,
geht mir das „x“ in Test 1 bzw. Test 2 verloren.
Wie muss ich das Makro ändern das mir das "x" nicht verloren geht?
Ich habe die Excel-Datei als Muster beigefügt

Die Datei https://www.herber.de/bbs/user/38313.xls wurde aus Datenschutzgründen gelöscht

Ich hoffe dass mir einer bei meinem Problem helfen kann.
Im Voraus vielen Dank
Gruß ABO

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit CheckBox
19.11.2006 20:00:09
ABO
Hallo P@ulchen,
Ich denke das es Funktioniert!
Danke!!!
Gruß
ABO
AW: Problem mit CheckBox
19.11.2006 20:02:14
fcs
Hallo ABO,
passe deine Combobox-Click-Prozedur an. die Checkbox kann mit dem Zellwert "x" oder "" nicht viel anfangen und die Box bleibt "blass". Beim Speichern hat die Box dann keine Wert und der vorhanden Eintrag wird mit "" überschrieben.
Gruss
Franz

Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <> 0 Then
TextBox1 = Cells(ComboBox1.ListIndex + 1, 1)
TextBox2 = Cells(ComboBox1.ListIndex + 1, 2)
TextBox3 = Cells(ComboBox1.ListIndex + 1, 3)
CheckBox1 = IIf(Cells(ComboBox1.ListIndex + 1, 5) = "x", True, False)
CheckBox2 = IIf(Cells(ComboBox1.ListIndex + 1, 6) = "x", True, False)
Else
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
CheckBox1 = False
CheckBox2 = False
End If
End Sub
Anzeige

Links zu Excel-Dialogen

ComboBox CheckBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige