Habe nochmals eine Frage zu Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Question

Hallo und einen schönen Sonntag

habe nochmals eine Frage zu diesem Thema.

Das war die Antwort von einer netten Person.

' Doppelklick in A1

    If Target.Address(0, 0) = "A1" Then

      ' Zellen B2 und G2 leeren

      Union(Target.Offset(0, 1), Target.Offset(0, 6)).ClearContents

      Target = 2

      'Doppelklick abbrechen

      Cancel = True

    End If

Ist auch Ok:

Nun das was ich gerne möchte, ist, Dass wenn ich Zelle A1 klicke sollen die Zellen a2 bis F2 gelöscht werden und in A1 soll die Zahl 2 erschein. Ist das machbar? Wenn ja kann mir jemand eine Lösung mitteilen?

Wäre sehr dankbar.

Gruß Adde

Answer 1

Hi Adde,

weshalb ein neues Thema?

Einfach nur anstelle

Union(Target.Offset(0, 1), Target.Offset(0, 6)).ClearContents

dieses

Union(Target.Offset(1, 0), Target.Offset(1, 6)).ClearContents

Bis später, Karin