Office: Box zum ankreuzen erstellen

Hallo alle zusammen,

ich bin voellig am verzweifeln und hoffe Ihr koennt mir weiter helfen?!

Ich erarbeite gerade ein Formular in Excel und muss Boxen einfuegen die ich anklicken kann. Beim anklicken MUSS diese Box mit einem grossen X also Kreuz quasi durchgestrichen werden!

Wenn irgendwie machbar waere es toll wenn mir jemand sagen kann wie ich solche Boxen in verschiedene groessen erstellen kann und wenn ebenfalls machbar waere es super wenn ich in diese Boxen einen Buchstaben einfuegen kann! also nochmal kurz fassung: Box mit Beispielsweise dem Buchstaben M beim anklicken mit einem grossen X makiert!!!!

Waere euch super dankbar wenn Ihr mir helfen koennt, es eilt leider auch!!!!

Beste Gruesse euer Mahoni :-D

 

Hallo!

Das was du suchst, sind Kontrollkästchen (CheckBox) oder Optionsfelder (OptionButton).
Erstere werden mit einem Häkchen markiert, letztere mit einem Punkt, so wie du es von Windows kennst.
Von diesen Steuerelementen bietet Excel je zwei Varianten an: Formular oder ActiveX
Allerdings sind beide Varianten nicht in der Größe veränderbar.
Für unterschiedliche Größen müsstest du auf ganz normale Zellen zurückgreifen, die du in Größe und Schriftgröße frei formatieren kannst und in die du dann einfach ein "X" schreibst.

 

danke fuer die schnelle Antwort allerdings MUSS es mit einem Kreuz makiert sein (von der Luftfahrtbehoerde vorgeschrieben!)

Kontrollkaestchen mit haken habe ich selber auch erstellen koennen sind allerdings zu klein!
Ich koennte natuerlich Zellen nehmen und in die richtige Groesse zuordnen aber wie bekomme ich es dann hin das in der Zelle z.B. der Buchstabe M steht und wenn ich es anklicke mit einem X durchgestrichen wird ohne das M zu loeschen?

 

Hallo!

So ein "X" könntest du mit zwei diagonalen Rahmenlinien über die Zellformatierung simulieren.

 

kannst du das irgendwie halbwegs einfach fuer einen Excel Anfaenger erklaeren was ich da jetzt genau machen muss um das hin zu bekommen? ;)

 

Hallo!

Rechtsklick auf die Zelle > Zellen formatieren > Rahmen

(Ich weiß allerdings nicht, ab welcher Excel-Version diagonale Rahmenlinien möglich sind.)

 

ok super... hat schon mal soweit funktioniert aber wie kann ich das machen das man dieses Feld anklicken kann? Ich will hinterher das Arbeitsblatt schuetzen und das Feld zum anklicken nutzen!

 

Hallo!

Um eine Zelle trotz aktiviertem Blattschutz noch bearbeiten zu können, musst du vorher die Zelle entsperren:
Rechtsklick > Zellen formatieren > Schutz > kein Häkchen bei "Gesperrt"

 

sorry da habe ich mich nicht ganz klar ausgedrueckt das ich fuer die Zelle den Blattschutz aufheben muss wiess ich, ich meinete wie ich die anklick funktion dafuer erstelle? Also das man diese Zelle ueberhaupt anklicken kann und dann die diagonalen Rahmenlinien automatisch eingefuegt werden?

Bist mir wirklich eine sehr grosse Hilfe dafuer schon einmal danke!!!!

 

Hallo!

Das müsste dann in VBA programmiert werden:
Rechtsklick auf den Reiter des Tabellenblatts > Code anzeigen
Dann diesen Code ins Codefenster oben rechts kopieren:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target.Borders(xlDiagonalDown)
.LineStyle = IIf(.LineStyle = xlNone, xlContinuous, xlNone)
End With
With Target.Borders(xlDiagonalUp)
.LineStyle = IIf(.LineStyle = xlNone, xlContinuous, xlNone)
End With
End Sub

Jeder Doppelklick auf die Zelle ändert nun die Rahmen:
Sind keine diagonalen Rahmen vorhanden, so werden sie gesetzt; sind sie schon vorhanden, dann werden sie gelöscht.

 

wow!!! Du hast es echt drauf... danke danke danke... hast mir unglaublich geholfen!!!! Damit kann ich arbeiten ;)

letze Frage noch... diese Formel macht ja jetzt bei jeder nicht geschuetzten Zelle das Kreuz, habe in dem Formular auch andere ungeschuetze Zellen wo man zum Beispiel seinen Namen eintragen kann, wenn ich dort jetzt versehentlich mit doppel klick drauf gehe macht er dort auch ein Kreuz! Kann man das auf bestimmte Zellen beschraenken? Also das er das nicht auf alle ungeschuetzten Zellen anwendet?

 

Hallo!

Ja, du kannst die Zellen/Bereiche auch explizit angeben:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A10,D3:D7,Z347")) Is Nothing Then Exit Sub
Cancel = True
With Target.Borders(xlDiagonalDown)
.LineStyle = IIf(.LineStyle = xlNone, xlContinuous, xlNone)
End With
With Target.Borders(xlDiagonalUp)
.LineStyle = IIf(.LineStyle = xlNone, xlContinuous, xlNone)
End With
End Sub

 

funktioniert super :)

muss jetzt nur das komplette Formular neu machen da ich die Zellen vorher schon ausgerichtet und angepasst habe...
Ausser du hast doch noch ne loesung wie ich ein Kaestchen frei beweglich einfuegen kann und genau dieses Resultat bekomme ;)

 

Was verstehst du unter: "wie ich ein Kaestchen frei beweglich einfuegen kann und genau dieses Resultat bekomm"?

Bis später,
Karin