Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
948to952
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Checkbox

Checkbox
13.02.2008 14:30:00
timi11
Hallo!
Ich versuche seit Stunden folgendes Problem zu lösen.
Ich habe eine Checkbox, wenn ich diese anklicke soll in J5 "erledigt" oder wenn sie nicht an angeklickt ist "offen stehen". Beim anklicken klappt das ja aber wenn ich das Häkchen wieder entferne bleibt "erledigt " stehen. Desweiteren soll dann die ganze Zeile von A bis J grün markiert werden.
Ich wäre sehr Dankbar für eure Hilfe...
timi11

Sub Kontrollkästchen11_BeiKlick()
If Kontrollkästchen11 = True Then
[j5] = "offen"
End If
If Kontrollkästchen11 = False Then
[j5] = "erledigt"
End If
End Sub


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkbox
13.02.2008 14:40:38
Beverly
Hi Timi,

Sub Kontrollkästchen11_BeiKlick()
If ActiveSheet.Shapes("Check Box 11").ControlFormat.Value = 1 Then
[j5] = "offen"
Else
[j5] = "erledigt"
End If
End Sub




AW: Checkbox
13.02.2008 14:43:07
timi11
tausend Dank Beverly, kannste mir noch einen tip geben mit der einfärbung wenn das häkchen gesetzt ist?
Danke
timi11

AW: Checkbox - Korrektur
13.02.2008 14:44:06
Beverly
Hi Timi,
sorry, muss genau anders herum lauten. Außerdem noch die Zeile Grün.

Sub Kontrollkästchen11_BeiKlick()
If ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = 1 Then
[j5] = "erledigt"
[A5:J5].Interior.ColorIndex = 4
Else
[j5] = "offen"
[A5:J5].Interior.ColorIndex = xlNone
End If
End Sub




Anzeige
AW: Checkbox - Korrektur
13.02.2008 14:53:00
timi11
Mein Dank wird Dir ewig nach schleichen.
Danke

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige