Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2024 07:58:34
Wie Formelberechnung trotz Blattschutz
19.05.2024 19:56:55
Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen
19.05.2024 19:42:43
zeilen löschen wenn
19.05.2024 17:55:54
Problem mit Formel countif
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1904to1908
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Funktion auf Range einschränken

Makro Funktion auf Range einschränken
18.11.2022 13:29:59
Gula
Hi, ich habe ein Makro, welches mit einem Rechtsklick auf eine Zelle sich ausführt. Dieses Makro soll aber nur in einer definierten Range ("A1:X40") funktionieren. Soll heißen, klickt man außerhalb dieser Range, wird das Makro nicht ausgeführt und es passiert nichts. Ist das überhaupt möglich mit einem Code zu bestimmen?
Danke

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
'Makros für Ablauf, Leeren, Name_Insert und Färben
FzgLeeren
FzgFormat
FzgName_Insert
FzgFärben
Cancel = True
Application.ScreenUpdating = True
End Sub

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Funktion auf Range einschränken
18.11.2022 13:34:05
Rudi
Hallo,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
If not intersect(target,Range("A1:X40")) is nothing then
'Makros für Ablauf, Leeren, Name_Insert und Färben
FzgLeeren
FzgFormat
FzgName_Insert
FzgFärben
Cancel = True
End If
Application.ScreenUpdating = True
End Sub
Gruß
Rudi
AW: Makro Funktion auf Range einschränken
18.11.2022 14:00:45
Gula
Perfekt! Vielen Dank
AW: Makro Funktion auf Range einschränken
18.11.2022 13:34:24
onur 

If Target.Row>40 or Target.Column>24 Then Exit Sub
Als erste Zeile hinter Private......
AW: Makro Funktion auf Range einschränken
18.11.2022 13:56:41
Gula
Onur, das Funktioniert bestens. Vielen Dank.
Ist es noch möglich, den oberen und linken Bereich zusätzlich einzuschränken?
Also das dann quasi die Range von D5:X40 geht?
Merci
Anzeige
AW: Makro Funktion auf Range einschränken
18.11.2022 14:05:18
onur
Klar:

If Target.Row  40 or Target.Column  24 Then Exit Sub

AW: Makro Funktion auf Range einschränken
18.11.2022 14:27:03
Gula
Ich danke vielmals!
AW: Makro Funktion auf Range einschränken
18.11.2022 14:20:55
GerdL
Hallo Gula!

If Not Intersect(Target, Range("D5:X40")) Is Nothing Then
Gruß Gerd
AW: Makro Funktion auf Range einschränken
18.11.2022 14:29:45
Gula
Vielen Dank dafür!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige