Hilfe bei VBA Befehl

[lukas-2000]

Hallo,

ich habe da mal eine Frage, und zwar: Momentan ist es so, dass wenn ich in ein definiertes Feld klicke ein Haken kommt.
Das habe ich bereits mit diesem Befehl:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    'Haken
ActiveCell.Activate
If Intersect(Target, Range("C13:XFD23,C25:XFD28,C30:XFD34")) Is Nothing Then Exit Sub
With Target
    .Font.Name = "Wingdings"
    .Value = IIf(.Value = "ü", "", "ü")
    Cancel = True
End With
End Sub

realisiert und es funktioniert auch Super!

Jetzt möchte ich jedoch das der Haken in ein Viereck eigefügt wird. Also quasi wie ein Kontrollkästchen. Das Probelm an der ganzen Sache ist nur, das ich meistens, wenn ich in das Feld klicke, die eingefügte Form, also das Viereck auswähle. Kann man hier noch etwas einbauen, das dass Viereck ignoriert wird und sofort der Haken eigesetzt wird?! Ich hänge auch nochmal ein Bild an, damit ihr besser versteht was ich meine!!

Nun fragt ihr euch sicherlich, warum ich nicht einfach Kontrollkästen verwende. In meiner Arbeitsmappe gibt es sonst tausende Kontrollkästchen und die Ladezeiten beim durchscrollen ist einfach grausam! :(

Ich würde mich riesig über Antworten freuen.

Gruß
Lukas

[RPP63]

Moin!
Nun, mit "Vierecken" (also Shapes) machst Du ja den Bock zum Gärtner.
Wingdings hat ja durchaus noch andere Zeichen … ;)

Schaue mal in diesen Workshop (zufälligerweise von mir):
http://www.clever-excel-forum.de/Thread-...mal-anders

Gruß Ralf