CheckBox in zwei Fenstern bedienen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Wenn man viele Checkboxen hat, die festen Zellen zugeordnet sind, ist es oft besser, auf die Checkboxen zu verzichten und sie über die Blatt-Events Change, SelectionChange oder BeforeDoubleClick zu simulieren.
In deinem Fall könnte ich mir folgendes gut vorstellen:
Du kopierst die Struktur des Blattes in ein weiteres Blatt.
Dort schreibst du statt dem Inhalt einfach WAHR oder FALSCH in die Zelle bzw 1 oder 0 je nachdem wie du auswerten willst, was dann bedeutet, ob die jeweilige Option die im Parallelblatt beschrieben ist, aktiv ist oder nicht.
Das Umschalten machst du einfach über das BeforeDoubleClick-Event, dazu reich der Code:


With Sheets("xxx").Range(Target.Address)
.Value = Not .Value '--- für Wahr/Falsch
.Value = 1 - .Value ' ---- für 1/0
End With

Bitte von den beiden Zeilen die entsprechende Wählen, weiteren Code kannst du natürlich auch ausführen lassen.
Die Kennzeichnung ob die Option aktiv ist oder nicht, kannst du dann über die Bedingte Formatierung machen, als Regel reicht der Zellbezug auf die Parallelzelle im anderen Blatt.
Das lässt sich genauso gut mit Maus oder Touch bedienen wie die Checkboxen und ist vom Handlig für dich viel einfacher als eine große Anzahl Checkboxen.
Gruß Daniel

Hallo Daniel,
vielen Dank.
Ich habe jetzt die CheckBoxen gelöscht und es für die ersten beiden ehemalige CheckBoxen (das Anklicken beider "CheckBoxen") wie folgend gelöst:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Zeile_07 Soll Ja/Nein
If Target.Address = Cells(7, 35).Address Then
If Cells(7, 35).Value = "X" And Cells(7, 37).Value = "X" Then
Range(Cells(7, 35), Cells(7, 36)).Interior.ColorIndex = 3
Range(Cells(7, 37), Cells(7, 38)).Interior.ColorIndex = 3
Else
Range(Cells(7, 35), Cells(7, 36)).Interior.ColorIndex = 2
Range(Cells(7, 37), Cells(7, 38)).Interior.ColorIndex = 2
End If
End If
If Cells(7, 35).Value = "" And Cells(7, 37).Value = "" Then
Range(Cells(7, 35), Cells(7, 36)).Interior.ColorIndex = 3
Range(Cells(7, 37), Cells(7, 38)).Interior.ColorIndex = 3
End If
If Target.Address = Cells(7, 37).Address Then
If Cells(7, 35).Value = "X" And Cells(7, 37).Value = "X" Then
Range(Cells(7, 35), Cells(7, 36)).Interior.ColorIndex = 3
Range(Cells(7, 37), Cells(7, 38)).Interior.ColorIndex = 3
Else
Range(Cells(7, 35), Cells(7, 36)).Interior.ColorIndex = 2
Range(Cells(7, 37), Cells(7, 38)).Interior.ColorIndex = 2
End If
End If
If Cells(7, 35).Value = "" And Cells(7, 37).Value = "" Then
Range(Cells(7, 35), Cells(7, 36)).Interior.ColorIndex = 3
Range(Cells(7, 37), Cells(7, 38)).Interior.ColorIndex = 3
End If
End Sub

Eine Frage noch an Onur:
Du schriebst:
"Natürlich nicht, da die Fehlermeldung "Index ausserhalb des gültigen Bereiches" beim Öffnen dies blockiert?"
Wo sehe ich diese Fehlermeldung. Ich kann sie nirgends entdecken. :-(
Vielen Dank im Vorraus
Gruß Uwe

Sub Fenster_einstellen() ' Excel maximiert starten und Fenster maximieren Application.WindowState = xlMaximized ActiveWindow.WindowState = xlMaximized 'Ansicht neues Fenster ActiveWindow.NewWindow 'Tabelle Analyse auswählen Windows(Fenster1).Activate'Hier kommt der Fehler 'Fenster vertikal anordnen Windows.Arrange ArrangeStyle:=xlVertical Call Arbeitsbereich_einstellen End Sub

Beliebteste Forumthreads (12 Monate)

CheckBox in zwei Fenstern bedienen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CheckBox in zwei Fenstern bedienen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread