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

Makro deaktivieren möglich?

Forumthread: Makro deaktivieren möglich?

Makro deaktivieren möglich?
02.11.2008 09:27:46
Karsten

Hallo...
ich möchte mit einem Buttonklick einen bestimmten Makro (z.B. Makro1) deaktivieren.
Geht so etwas und wenn, wie.
Danke für eure Hilfe.
Gruß
Karsten
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro deaktivieren möglich?
02.11.2008 09:36:00
Hajo_Zi
Hallo Karsten,
das geht nicht, Du kannst aber verhindern das der Code ausgeführt wird.
Definiere eine Variable as Boolean, bei Butonclick setzt Du Sie auf TRue in Deinem Makro prüfst Du ob Variable False, dann Makro ausführen.

AW: Makro deaktivieren möglich?
02.11.2008 10:00:37
Karsten
Hallo Hajo,
schon mal besten Dank. Aber, deine Anleitung hilft mir nicht weiter - eben kaum Excelkenntnisse.
Kannst du mir mal ein Beispiel hochladen?
Danke
Karsten
Anzeige
AW: Makro deaktivieren möglich?
02.11.2008 19:50:00
Karsten
Hallo Matthias,
besten Dank. Brauche aber noch eine Weile, bis ich die Befehle in mein Blatt eingearbeitet habe.
Gruß
Karsten
Anzeige
AW: Makro deaktivieren möglich?
02.11.2008 20:20:00
Karsten
Hallo Matthias,
bei mir klappt es doch noch nicht.
Ich möchte untenstehenden Makro deaktivieren. Wo soll ich da deine Befehle einfügen?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If bolOnOff = True Then Exit Sub
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub


Gruß
Karsten

Anzeige
AW: Makro deaktivieren möglich?
02.11.2008 20:31:00
JogyB
Du machst wie in der Beispieldatei einen Button Sperren und Entsperren und weist genau denselben Code zu wie in der Beispieldatei.
Alternativ lade doch einfach Deine Datei hoch, dann kann ich Dir das auch kurz einbauen.
Gruss, Jogy
AW: Makro deaktivieren möglich?
02.11.2008 20:38:37
Karsten
Hallo Jogy
danke, es funktioniert.
Gruß
Karsten
Anzeige
AW: Makro deaktivieren möglich?
02.11.2008 20:52:00
JogyB
Hi.
Mir ist noch eine andere Möglichkeit eingefallen:
Du machst mit der Steuerelement-Toolbox (nicht mit Formular!) einen Button, weist ihm in den Eigenschaften unter (Name) die Bezeichnung sperrButton und unter Caption die Bezeichnung Sperren zu. Als Code bekommt er folgendes:

Private Sub sperrButton_Click()
bolOnOff = Not bolOnOff
sperrButton.Caption = IIf(bolOnOff, "Entsperren", "Sperren")
End Sub


Dann brauchst Du nur einen Button.
Gruss, Jogy
P.S.: Das Public bolOnOff as Boolean vor den ganzen Prozeduren darfst Du keinesfalls vergessen.

Anzeige
AW: Makro deaktivieren möglich?
02.11.2008 21:05:00
Daniel
Hi
wenn schon vereinfachen, dann richtig:
anstelle des Commandbuttons kann man auch einen Toggle-Button verwenden, dieser hat den .Value-Wert TRUE oder FALSE, diesen kann man per Mausklick umschalten und auch im Makro direkt abfragen:

If ActiveSheet.ToggleButton1 Then
'--- hier der Makrocode
End if


damit entfällt die Globale Variable und der Togglebutton selbst braucht auch keinen weiteren Code.
Außerdem kann man am Togglebutton erkennen, ob er gerade auf TRUE oder FALSE steht.
https://www.herber.de/bbs/user/56465.xls
Gruß, Daniel

Anzeige
AW: Makro deaktivieren möglich?
02.11.2008 21:10:03
JogyB
Stimmt, den gibt's ja auch noch... hab den schon ewig nicht mehr gebraucht. Danke für die Gedächtnisauffrischung.
Gruss, Jogy

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Diagramm löschen
Bernd

Hallo Gemeinde,
ich wollte in einem Blatt ein Diagramm mitsamt den umgebenden Zeilen löschen.
Nun erscheint das Diagramm als schmaler, nicht anklickbarer Strich und es macht mir lauter Probleme - wie die Fehlermeldung "die Formel enthält einen ungültigen Bezug zu einer externen Tabell...
08.08.2008 15:06:00
Thread-ID: 1000313
6 Beiträge
Sudoku Kontexmenü-Rechts [evtl. Hajo]
Matthias

Hallo
(Level bitte nicht ganz so ernst nehmen)
Folgendes:
In Diese Arbeitsmappe
Option Explicit 'nach einer Idee von Hajo Ziplies 'https://www.herber.de/forum/ _ archiv/972to976/t972675.htm Private Sub Workbook_BeforeClose(Cancel As Boolean) KontextmenueZuruecksetzen End Sub P...
08.08.2008 21:58:35
Thread-ID: 1000418
10 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Anzeige
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Hilfe Kompatibilitätsproblem
christian

Hallo liebe Excel Gemeinde,
ich habe leider immer noch das Kompatibilitätsproblem!
Zum Verständnis nochmal die Anforderungen an den Code:
Importieren aller in einem Ordner befindlichen Textdateien (Messwerte) in neue Tabellenblätter
Das funktioniert auch alles super, da hat Rud...
11.08.2008 15:48:30
Thread-ID: 1000895
13 Beiträge
Formel für nur Zahlen addieren?
Tom

Hi,
ich schreib mir gerade ein kleines Kostenformular. Dazu schreib ich in Zeile 5 das Datum und in Zeile 6 den Betrag.
5: 6.7.2008
6: 300€
Gibt es jetzt eine Möglichkeit mit VBA oder lieber ohne, nur die Eurobeträge zu addieren ohne die Datums Zahlen? Also das € Zeichen kann re...
11.08.2008 16:29:04
Thread-ID: 1000906
5 Beiträge
Makro läuft nicht
alifa

Hallo VBA Gemeinde,
obwohl nur zehn Ziffern, kommt die Meldung: Überlauf. Habe schon alles versucht, Currency, Double. Long hört bei mir bei 2147483467 auf. Decimal nimmt er irgendwie nicht an. Kann jemand helfen?
Sub Alifa() Dim a(0 To 9) As Byte, i As Byte, t As Single For i = 0 To...
11.08.2008 17:39:00
Thread-ID: 1000935
7 Beiträge
Kombinationen mit Zurücklegen ohne Reihenfolge
Christian

Hallo zusammen,
ich suche eine VBA Lösung für folgende Aufgabe:
Gezogen werden "k" Kugeln aus einer Los-Trommel. Die Trommel enthält "n" Kugeln. Die gezogenen Kugeln werden anschließend zurückgelegt. Gesucht sind die möglichen Kombinationen der Ziehungen. Dabei kommt es nicht auf die Re...
11.08.2008 22:53:00
Thread-ID: 1001022
10 Beiträge
Wie müsste die Schleife aussehen?
Captain

Hi,
habe folgenden Code:
Private Sub lst_Gruppe_Detail_AfterUpdate() With Me .lst_Monate.AddItem "Januar" .lst_Monate.AddItem "Februar" .lst_Monate.AddItem "März" .lst_Monate.AddItem "April" .lst_Monate.AddItem "Mai" .lst_Monate.AddItem "Juni" .lst_Monate.AddItem "Juli" .lst_Monate.Ad...
12.08.2008 09:59:00
Thread-ID: 1001083
11 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Erweiterung der Schleife für mehrere Spalten
Fred


Hallo zusammen
Ich habe eine Schleife gefunden, die für meine Zwecke fast perfekt ist. Leider führt sie Ihre Funktion nur in einer Spalte aus. Ich würde diese Funktion gerne auf andere Spalten erweiter.
Also ausgeführt wird die Such und auswertfunktion in Spalte D. Ich bräuchte die...
12.08.2008 13:57:31
Thread-ID: 1001195
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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