Excel: onclick Zelle mit Wert befüllen

Hallo zusammen,

das Informatik-Forum geht in den Archivmodus, genaue Informationen kann man der entsprechenden Ankündigung entnehmen. Als Dankeschön für die Treue bekommt man von uns einen Gutscheincode (informatikforum30) womit man bei netzliving.de 30% auf das erste Jahr sparen kann. (Genaue Infos sind ebenfalls in der Ankündigung)

Vielen Dank für die Treue und das Verständnis!

    Reagieren kannst du auf den Doppelklick:

    Im VBA Projekt-Explorer selektier die Arbeitsmappe und füge folgenden Code ein:

    Code
    Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub
Select Case Target.Value
Case "0": Target.Value = 1
Case "1": Target.Value = 0
Case Else:
End Select
End Sub

    Damit solltest du weiterkommen.
    mfg AntiBit