Zelle per Doppelklick mit X markieren

Mit der Makrolösung, die ich Ihnen hier vorstellen werde, können Sie sehr einfach Zellen markieren und ebenso die Markierung wieder aufheben. Auf diese Art können selbst mit Blattschutz versehene Tabellenblätter an ausgewählten Zellen gekennzeichnet werden. In der Praxis können Sie mit diesem Prinzip Checklisten erstellen, Druckbereiche definieren oder Schriftwechselvorlagen mit Auswahlfeldern erweitern.

Der folgende VBA-Code wird im Visual Basic-Editor in das Tabellenblatt kopiert, in dem Sie die Funktion nutzen wollen. Die Funktion steht anschließend ausschließlich in diesem Tabellenblatt zur Verfügung. Wollen Sie die Funktion in mehreren Tabellenblättern nutzen, muss das Makro in jedes Tabellenblatt kopiert werden.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Not Intersect(Target, Range("C3:C6")) Is Nothing Then
    
        Me.Unprotect
        
        If Target = "" Then
            Target = "X"
            Else
            Target = ""
        End If
        Me.Protect

        Cancel = True
    End If
End Sub

Im Beispiel oben können die Zellen C3, C4, C5 und C6 per Doppelklick markiert werden. Ein weiterer Doppelklick auf die bereits markierte Zelle hebt die Markierung wieder auf. Einen andern Zellbereich können Sie auswählen, wenn Sie Range(“C3:C6”) entsprechend abändern.

Am Ende wird automatisch der Blattschutz ohne Passwort aktiviert. Möchten Sie keinen Blattschutz auf das Tabellenblatt legen, können Sie die beiden dafür entsprechenden Zeilen aus dem Makro entfernen. Sollten Sie zukünftig jedoch doch noch den Blattschutz verwenden, denken Sie daran, auch das Makro entsprechend zu ergänzen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Not Intersect(Target, Range("C3:C6")) Is Nothing Then
        
        If Target = "" Then
            Target = "X"
            Else
            Target = ""
        End If

        Cancel = True
    End If
End Sub

Alternativ kann zum Beispiel auch dynamisch das aktuelle Tagesdatum per Doppelklick in die Zelle überschrieben werden. Hinweis: Beim folgenden VBA-Codebeispiel werden bereits vorhandene Zellinhalte überschrieben!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("C3:C6")) Is Nothing Then
        Target = Format(Now, "DD.MM.YYYY")
        Cancel = True
    End If
End Sub

Ein einfaches Beispiel können Sie mit der nachfolgenden Testdatei in Excel selbst testen und ggf. Anpassungen ausprobieren, den Code ändern oder erweitern.

Zellen per Doppelklick markieren