Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausführen von Makros wenn Bereich aktiv

Forumthread: Ausführen von Makros wenn Bereich aktiv

Ausführen von Makros wenn Bereich aktiv
01.02.2023 18:33:26
Makros
Guten Abend zusammen,
Ich arbeite an einer Planungstabelle mit diversen kleinen relativ einfachen Markos.
Diese werden via Schaltflächen angesteuert welche in den Spalten A bis C platziert sind.
Damit dieser Bereich mit den Makros nicht bearbeitet werden kann möchte ich folgende Prüfung vor Ausführung einbauen:
Wenn Aktive Zelle im Bereich der Spalten A, B oder C -> Makro nicht ausführen -> end sub
Wenn Aktive Zelle NICHT im Bereich der Spalten A, B oder -> Marko ausführen
Besten Dank für Eure Hilfe
Grüsse Thomas
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausführen von Makros wenn Bereich aktiv
01.02.2023 19:13:02
Makros
Hallo,
ungetestet:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Changed As Range
  
  Set Changed = Intersect(Target, Range("A:C"))
   If Not Changed Is Nothing Then
Exit Sub
Else
Call DeinMacro
End If
End Sub
Gruß
Martin
AW: Ausführen von Makros wenn Bereich aktiv
01.02.2023 19:26:20
Makros
Hallo Thomas,
Public Sub DeinMakro()
    If Not Intersect(ActiveCell, Range("A:C")) Is Nothing Then Exit Sub
    'Dein Code
End Sub
VG
Yal
Anzeige

Beliebteste Forumthreads (12 Monate)

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