Fixierung/Formatierung Kontrollkästchen

Hallo Forum!
Ich habe ein kleines Problem in Sachen Excel und hoffe jemand hat den entscheidenden Tipp für mich parat. Ich habe schon eine ganze Weile in verschiedensten Foren verbracht und gegoogelt aber die richtige Lösung habe ich bislang nicht finden können.
Es geht um die Anordnung von Kontrollkästchen innerhalb eines Sheets. Die Programmierung dahinter funktioniert bereits einwandfrei, aber die Kästchen wollen einfach nicht sauber an ihrer Position bleiben, verschieben sich und verändern ihre Größe. Erstaunlich dabei ist, dass das eben nur manchmal passiert. Auslöser scheint unter anderem das Drucken der Sheets zu sein. Aber nicht ausschließlich, auch nach Schließen und erneutem Öffnen kann es sein (nicht immer) das die Kästchen verschoben sind (Siehe Bilder im Anhang, habe ein Soll und die verschobenen im Ist abgebildet)
Ich habe in einem Forum gelesen, dass die "älteren" Formularsteuerelemente da anfällig sind, also habe ich alle durch Active-X Steuerelemente ersetzt. Hat nichts gebracht. Habe auch schon versucht, die Teile durch Gruppieren an ihrer Position zu halten. Hat nichts gebracht. Auch Zusammengruppieren mit Grafikelementen bringt nichts (könnte aber der Grund sein warum meine Pfeilstruktur sich ebenfalls verschiebt, aber sicher bin ich mir da auch nicht mehr). Die Seitenverhältnisse der Kontrollkästchen zu sperren bringt auch nichts. Ebenso wenig das Umschalten in den Eigenschaften der Steuerelemente unter Objektpositionierung, da habe ich auch schon alle drei Einstellungen ("von Zellposition und -größe abhängig", "nur von Zellposition abhängig" und "Von Zellposition und -größe unabhängig") durch.
Seltsam finde ich auch, dass sich nur die Kästchen-Struktur ab dem zweiten Tabellenblatt verschieben, die Kästchen auf Tabellenblatt 1 passen einwandfrei.
So langsam bin ich wirklich mit meinem Latein am Ende und sehr dankbar für weitere Tipps. Ist es nicht irgendwie möglich den Kontrollkästchen zu verklickern, dass sie komme was wolle einfach so groß und auf der Position der darunterliegenden Zellen bleiben sollen?
Der IST-Zustand (manchmal) nach Öffnen oder Drucken:
Userbild

Der SOLL-Zustand (Tabellenblatt 1 ist brav und verändert sich nicht):
Userbild

An der Stelle schon mal vielen Dank an alle, die sich mit dem Thema auseinandersetzten!
Viele Grüße
Rudi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Beverly,
Erst einmal vielen Dank für deine schnelle Antwort. So was in der Art hatte ich bereits befürchtet. Wenigstens brauch ich mir nicht weiter Gedanken machen dass ich die Logik hinter der Verschieberei nicht durchblickt habe.
Ich habe vorhin etwas mit der Positionierung der Kontrollkästchen über VBA herumgespielt, aber das ist wie du gesagt hast wohl ein sehr großer Aufwand, auch wegen der Anzahl der Kästchen. Da ich auch nicht gerade der VBA-Profi bin, bin ich mir da auch unschlüssig wie ich das genau umsetzten könnte. Dein anderer Vorschlag hört sich interessant an, ich kann aber leider mit "Doppelklickereignis" nicht viel anfangen. Wenn nach doppelklick auf die Zelle ein Windings-Haken oder ähnliches erscheint wäre mir damit schon viel geholfen.
Das hier habe ich auf der Office-Website gefunden, hat den Unterschied dass sich die Zellen bei Doppelklick rot färben:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End Sub

Für meine Zwecke ist das aber leider auch nicht so wirklich brauchbar, weil jetzt ja jede Zelle auf dem Tabellenblatt rot wird sobald man doppelklickt. Kann ich das irgendwie auf meine betreffenden Zellen (die vorher Kontrollkästchen waren) beschränken?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' rechts von Doppelklickzelle steht ein Inhalt If Target.Offset(0, 1) "" Then ' nicht Editieren Cancel = True ' Zellinhalt ist "ü" If Target.Value = "ü" Then ' Zellinhalt löschen Target.ClearContents ' Zelle enthält nicht ü Else ' horizontale Textausrichtung Target.HorizontalAlignment = xlRight ' Schriftart Wingdings Target.Font.Name = "Wingdings" ' ü eintragen Target.Value = "ü" End If End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' Beschränkung auf betreffende Zellen If Intersect(Target, Range("C9,C17,I7,I11,I15,I19,O6,O8,O10,O12,O14,O16,O18,O20")) Is _ Nothing _ Then Exit Sub ' Zellinhalt ist "ü" If Target.Value = "ü" Then ' Zellinhalt löschen Target.ClearContents ' Zelle enthält nicht ü Else ' horizontale Textausrichtung Target.HorizontalAlignment = xlRight ' Schriftart Wingdings Target.Font.Name = "Wingdings" ' ü eintragen Target.Value = "ü" End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("C9,C17,I7,I11,I15,I19,O6,O8,O10,O12,O14,O16,O18,O20")) Is Nothing _ Then Exit Sub Target.Value = "X" End Sub

Beliebteste Forumthreads (12 Monate)

Fixierung/Formatierung Kontrollkästchen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread