Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.11.2025 15:53:39
Zeilenweise addieren ohne ausgeblendete Werte
05.11.2025 15:46:39
Excel Formel mit mehreren Bedingungen
05.11.2025 13:56:33
Anzeige mehrere Bildern über Zelle mit einem Bild performant
05.11.2025 09:23:36
Bedingte Formatierung Geburtstage
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Funktion auf Range einschränken

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
AW: Makro Funktion auf Range einschränken
18.11.2022 14:29:45
Gula
Vielen Dank dafür!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige