39 Aufrufe
Gefragt in Windows 7 von addeguddi Mitglied (702 Punkte)
Hallo und einen schönen Tag an da Forum - Team

wer kann mir sagen was an dieser Formel falsch ist?

in allen Zellen wird der Befehl ausgeführt nur in Zelle BN 7 nicht.

Das ist die Eingabe:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

 'Bereiche, in dem die 1 eingefügt werden solle

 If Not Intersect(Target, Range("C7:I18,L7:R18,U7:AA18,AD7:AJ18,AM7:AS18,AV7:BB18,Be7:Bk18,Bn7:bt18")) Is Nothing Then

    Target.Value = 1

    Cancel = True              'Menü nach drücken rechte Maustaste nicht anzeigen

 End If

End Sub

Gruß Adde

2 Antworten

+1 Punkt
Beantwortet von
da ist nichts falsch, funktioniert bei mir problemlos auch in BN7

ist deine Zelle BN7 evtl. irgendwie formatiert (weiss auf weiss zum Beispiel)
0 Punkte
Beantwortet von addeguddi Mitglied (702 Punkte)
Vielen Dank für die Info.

Ja hat eine Formatierung wie alle anderen Zellen auch.

Habe diese Tabelle mehrmals abgespeichert bei allen anderen funktioniert dies auch, nur in dieser Tabelle nicht.

Kurioserweise nur die Zelle BN7 nicht, In BO7 BP7 usw. klappt das.

Gruß Adde
...