Excel: onclick Zelle mit Wert befüllen

Fugo

Servus!

Ist es irgendwie möglich, in Excel per VBA eine Zelle so zu manipulieren, dass sie per Klick mit 1 bzw. per erneutem Klick mit 0 gefüllt wird?

thx4hints
Fugo

AntiBit

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

Fugo

Danke, funkt!

Excel: onclick Zelle mit Wert befüllen

Jetzt mitmachen!

Rechtliches