Ich habe eine Liste mit Namen. Vor jedem Namen ist eine leere Zelle.
Ich möchte gern per Mausklick immer ein "X" o.ä. vor dem Namen aktivieren können, damit Ich schnell die Anwesenheit machen kann.
Ich meine so eine Art Checkbox.
Tobiax...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target = "X"
End Sub
Range("D25,F25,I25")
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D25,F25,I25,L25,O25,R25,D11,D13,D15,D17,D19,D21,G11,G13,G15, _
G17,G19,G21,J11,J13,J15,J17,J19,J21,M11,M13,M15,M17,M19,M21")) Is Nothing Then
Target = IIf(Target = "", "X", "")
End If
End Sub
Alles was Fett ist gehört in Eine Zeile (ohne den Unterstrich vor G17, der wird von der Forensoftware erzeugt)