Wie füge ich ein Häkchen in eine Zelle ein, indem ich in Excel doppelklicke?

Normalerweise müssen Sie zum Einfügen eines Häkchens in eine Zelle in das Dialogfeld Symbol wechseln, das Häkchensymbol suchen und manuell einfügen. Es ist jedoch nicht so einfach, das Häkchensymbol im Dialogfeld Symbol zu finden, da darin zahlreiche Symbole aufgeführt sind. Wie füge ich schnell ein Häkchen in eine Zelle in Excel ein? Dieser Artikel zeigt Ihnen eine VBA-Methode zum einfachen Hinzufügen eines Häkchens in einer Zelle mit nur einem Doppelklick.

Doppelklicken Sie, um ein Häkchen in einer Zelle mit VBA-Code hinzuzufügen

Doppelklicken Sie, um ein Häkchen in einer Zelle mit VBA-Code hinzuzufügen

Mit dem folgenden VBA-Code können Sie mit einem Doppelklick ein Häkchen in eine Zelle einfügen. Bitte gehen Sie wie folgt vor.

1. Öffnen Sie das Arbeitsblatt, das Sie zum Hinzufügen eines Häkchens in die Zelle benötigen, klicken Sie mit der rechten Maustaste und wählen Sie es aus Code anzeigen aus dem Kontextmenü.

2. In dem Microsoft Visual Basic für Applikationen Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Fenster ein Kode Fenster.

VBA-Code: Doppelklicken Sie, um ein Häkchen in eine Zelle einzufügen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Hinweis: Im Code ist B1: B10 der Bereich, den Sie mit einem Doppelklick markieren. Bitte ändern Sie es nach Ihren Wünschen.

3. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster und kehren Sie zum Arbeitsblatt zurück.

Doppelklicken Sie nun auf eine Zelle im Bereich B1: B10. Das Häkchen wird automatisch eingegeben. Wenn Sie erneut auf die Zelle doppelklicken, wird das eingefügte Häkchen entfernt.

Wenn Sie die Häkchen in Ihrer täglichen Excel-Arbeit häufig verwenden müssen, empfehle ich hier die Autotext Nutzen von Kutools for Excel. Mit dieser Funktion können Sie ein Häkchen als automatische Texteingabe speichern und es in Zukunft mit nur einem Klick in Excel fortsetzen, wie in der folgenden Demo gezeigt.
Jetzt herunterladen und ausprobieren! (30-Tag kostenlose Loipe)

In Verbindung stehende Artikel:

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf...

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!

Lesen Sie mehr... Kostenfreier Download... Kauf...

Kommentare (11)

Noch keine Bewertungen. Bewerten Sie als Erster!

Luis Carlos Dias

vor etwa 4 Jahren

#27122

Dieser Kommentar wurde vom Moderator auf der Website minimiert

como eu faço pra inserir a marca de seleção na célula, porém sem deletar o número que estiver digitado nela ou seja, a marca sairia na frente do número quando eu der duplo clique... e quando eu quizer apagar a marca, eu dou duplo clique novamente ea célula voltaria ao normar (continuaria apenas o número).

antworten

Tadao Kano Luis Carlos Dias

vor etwa 4 Jahren

#27123

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Ola Luiz, tente essa alteracao. Ira funcionar nas celulas A2:A10 und D2:D5, Altere Conforme sua Necessidade.

tadao

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("A2:A10"), Range("D2:D5"))) Is Nothing Then
Application.EnableEvents = Falsch
If Left(ActiveCell.Value, 1) = ChrW(&H2713) Then
ActiveCell.Value = Right(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
sonst
ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
End If
Abbrechen = Wahr
End If
Application.EnableEvents = Wahr
End Sub

antworten

Elizabeth

vor etwa 2 Jahren

#34106

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Gibt es eine Möglichkeit, diesen Code so zu schleifen, dass er sich auf vielen Arbeitsblättern in einer Arbeitsmappe befindet?

antworten

Report

Kristall Elizabeth

vor etwa 2 Jahren

#34107

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Leoflute,Nach dem Drücken der Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster, bitte doppelklicken DiesesWorkbook öffnen ThisWorkbook (Code) Fenster, und kopieren Sie dann den folgenden Code in das Codefenster. Vergessen Sie nicht, die Blattnamen und den Zellbereich im Code zu ändern. Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'Aktualisiert von Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName als String
Dim xEEBol, xWSNBol, xBol als boolescher Wert
Dim xArrWs
Dim xArrRg
Dim xI, xJ als Ganzzahl
Dim xWs als Arbeitsblatt
Dim xRg als Bereich

xStrWs = "Blatt5, Blatt1, Blatt2" 'Die spezifischen Arbeitsblattnamen
xStrRg = "B3: B10" 'Der Zellbereich, den Sie markieren möchten
xArrWs = Split(xStrWs, ",")
xAnrRg = Split(xStrRg, ",")

xEEBol = Application.EnableEvents
Application.EnableEvents = Falsch
On Error Resume Next
xStrWsName = Sh.Name
xBol = Falsch
xWSNBol = False
Für xI = 0 zu UBound(xArrWs)
Wenn xStrWsName = xArrWs(xI) Dann
xWSNBol = True
Exit für
End If
Weiter xI

Wenn xWSNBol Dann
Setze xWs = Application.Worksheets.Item(xArrWs(xI))
Für xJ = 0 zu UBound(xArrRg)
Setze xRg = Sh.Range(xArrRg(xJ))
If Not Intersect(Target, xRg) Is Nothing Then
xBol = Wahr
Exit für
End If
Weiter xJ
End If

Wenn xBol Dann
Wenn ActiveCell.Value = ChrW(&H2713) Dann
ActiveCell.ClearContents
sonst
ActiveCell.Value = ChrW(&H2713)
End If
Abbrechen = Wahr
End If
Application.EnableEvents = xEEBol
End Sub

antworten

Report

CSherrod

vor etwa 1 Jahr

#35215

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hi! Was würde ich dem obigen Code hinzufügen, damit die Zelle die Farbe ändert, wenn das Kontrollkästchen hinzugefügt wird?

antworten

Dan

vor etwa 1 Jahr

#36632

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Kristall
Gibt es eine Möglichkeit, Häkchen in A1:A10 zusammen mit B3:B10 zu haben?

antworten

Michael

vor etwa 1 Jahr

#36920

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Wie wiederhole ich das für mehrere Spalten?
Zum Beispiel brauche ich es im Folgenden:
E, F, I, J, M, N, Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX

antworten

Ulisses Nonato

vor ungefähr 6 Monaten

#38841

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Eu gostaria de sabre se é possível adicionar a marca com apenas um clique ao invés de dois.

antworten

Kristall Ulisses Nonato

vor ungefähr 6 Monaten

#38900

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Ulisses Nonato,
Wenn Sie mit nur einem Mausklick ein Häkchen in eine Zelle setzen möchten, kann Ihnen der folgende VBA-Code einen Gefallen tun.
Sie müssen auf klicken Rechte Maus Taste, um den Code zu aktivieren.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

antworten

Report

Sora

vor ungefähr 2 Monaten

#41276

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Wie mache ich es so, dass es nach dem Doppelklick einen Zeitstempel auf der angrenzenden Zelle hinzufügt?

antworten

Kristall Sora

vor ungefähr 2 Monaten

#41491

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Sora,
Der folgende VBA-Code kann Ihnen einen Gefallen tun. Bitte versuchen Sie es. Vielen Dank.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub

antworten

Report

Es sind noch keine Kommentare vorhanden

Hinterlassen Sie Ihre Kommentare

Als Gast posten

Einloggen

Name (erforderlich)

E-Mail (Pflichtfeld)

Bewerte diese Nachricht:

Zurücksetzen

0 Figuren

Ich akzeptiere die Bedingungen und den Zustand