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
Anzeige
Inhaltsverzeichnis

Makro Funktion auf Range einschränken

Forumthread: Makro Funktion auf Range einschränken

Makro Funktion auf Range einschränken
18.11.2022 14: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 14: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 15:00:45
Gula
Perfekt! Vielen Dank
AW: Makro Funktion auf Range einschränken
18.11.2022 14: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 14: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 15: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 15:27:03
Gula
Ich danke vielmals!
AW: Makro Funktion auf Range einschränken
18.11.2022 15: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 15:29:45
Gula
Vielen Dank dafür!
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum