Note: The other languages of the website are Google-translated. Back to English

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.
kte tab 201905

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!
officetab unten
Kommentare (11)
Noch keine Bewertungen. Bewerten Sie als Erster!
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).
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
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?
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

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?
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?
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
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.
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
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?
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
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL