Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwei Makros NUR abwechselnd ausführen

Forumthread: Zwei Makros NUR abwechselnd ausführen

Zwei Makros NUR abwechselnd ausführen
22.11.2004 20:00:26
Stephan
Guten Abend.
Ich habe zwei Makros die durch einen bestimmten Wert einer Zelle ausgeführt werden. Diese Zelle wird durch eine Cut/Paste-Funktion gefüllt wobei der Wert natürlich bei mehreren Cut/Paste-Ausführungen gleichbleiben kann.
Ich möchte verhindern, dass bei gleichbleibendem Wert der Zelle das entsprechende Makro erneut ausgeführt wird, es soll also nur dann erneut ausgeführt werden wenn vorher das andere Makro ausgeführt wurde (bzw. es nicht das letzte Makro war welches ausgeführt wurde).
Uff. Geht soetwas und wenn ja wie ...
Vielen Dank für Eure Hilfe
Stephan
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 20:26:04
Stephan
Zur weiteren Erklärung:
Makro 1 soll ausgeführt werden wenn Zelle $A$1 den Wert 1 bekommt
Makro 2 soll ausgeführt werden wenn Zelle $A$1 den Wert 2 bekommt
Der Wert wird alle 5 Minuten in einer Anwendung per "Copy" geholt und per "Paste" in die entsprechende Zelle $A$1 geschrieben.
Es gibt leider keine Möglichkeit den Wert darauf zu prüfen ob er sich seit dem letzten Mal überhaupt geändert hat und so wird bei einem Wert 1 nach jedem "Copy/Paste" das Makro 1 ausgeführt.
Dies möchte ich verhindern in dem ich jedes Makro nur einmal ausführen lasse solange es das letzte war welches ausgeführt wurde (bzw. solange das andere nicht ausgeführt wurde).
Danke für Eure Hilfe
Stephan
Anzeige
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 20:34:04
Josef
Hallo Stephan!
Eine Möglichkeit.
Option Explicit
Public blnCheck As Boolean

Sub stephan()
If Not blnCheck Then
MsgBox "Erstes Makro"
blnCheck = True
Exit Sub
Else
MsgBox "Zweites Makro"
blnCheck = False
End If
End Sub

Gruß Sepp
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 20:43:08
Stephan
Hallo Sepp.
Vielen Dank für Deine Hilfe.
Brauche ich diesen Code nur einzufügen oder muß ich irgendwo noch die MsgBox anlegen bzw. definieren.
Danke
Stephan
Anzeige
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 20:46:44
Josef
Hallo Stephan!
Die "MsgBox" Anweisung ist nur ein ersatz für den Code der
ausgeführt werden soll!
Dort wo in meinem Code "MsgBox..." steht, rufst du entweder
deine Makros auf, oder du fügst die Anweisungen direkt in
dieses Makro ein.
Gruß Sepp
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 20:51:21
Stephan
Also mein Code sieht bisher so aus:
If Target.Address = ("$X$2") Then
Select Case Target.Value
Case Is = 1
Call MakroLong300
Case Is = 2
Call MakroShort300
End Select
End If
Wo müßte ich jetzt Deine einbauen, könntest Du mir als Neuling da helfen ?
Danke
Stephan
Anzeige
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 21:01:36
Josef
Hallo Stephan!
ZB. so.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$X$2") Then
Select Case Target.Value
Case Is = 1
Call MakroLong300
Case Is = 2
Call MakroShort300
End Select
End If
End Sub

'In das Modul
Option Explicit
Public blnCheck As Boolean
Sub MakroLong300()
If blnCheck = True Then Exit Sub
'deine anweisungen
blnCheck = True
End Sub
Sub MakroShort300()
If blnCheck = False Then Exit Sub
'deine anweisungen
blnCheck = False
End Sub
Gruß Sepp
Anzeige
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 21:27:05
Stephan
Ersteinmal Danke Sepp.
Ich sitze hier und versuche das umzusetzen. Leider habe ich noch nicht soviel Erfahrung mit der Makroprogrammierung.
Ich probiere rum, wollte mich aber zwischenzeitlich bei Dir bedanken damit nicht der Gedanke "Problem gelöst - Diskussionspartner verschwunden" bei Dir aufkommt.
Gruß
Stephan
Anzeige
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 21:39:28
Stephan
Habe das jetzt so geschrieben:
---------------------------------
Public blnCheck As Boolean

Sub MakroLong300()
If blnCheck = True Then Exit Sub
'deine anweisungen
If Target.Address = ("$X$3") Then
Select Case Target.Value
Case Is = 1
Call MakroLong300
blnCheck = True
End Select
End Sub



Sub MakroShort300()
If blnCheck = False Then Exit Sub
'deine anweisungen
If Target.Address = ("$X$3") Then
Select Case Target.Value
Case Is = 2
Call MakroShort300
blnCheck = False
End Select
End Sub

----------------------------
Und habe im Worksheet noch stehen:
Private 

Sub wks__Change(ByVal Target As Range)
Const str


Sub As String = "TrailingStopApp:TrailingStopWorksheet.wks__Change"
Dim strErrors As String
Dim rngRow As Range
On Error GoTo ErrHandler
If Target.Address = ("$X$3") Then
Select Case Target.Value
Case Is = 1
Call MakroLong300
Case Is = 2
Call MakroShort300
End Select
End If
Ich müßte den obigen Code eigentlich innerhalb des letzten unterbringen damit er ausgeführt wird. Ich kann aber eine Private 


Sub nicht in einem Private 


Sub unterbringen, oder ...
Ojeoje...
Stephan
Anzeige
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 22:04:22
Josef
Hallo Stephan!
Nochmal von vorn.
Im Worksheet hast du diesen Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$X$2") Then
Select Case Target.Value
Case Is = 1
Call MakroLong300
Case Is = 2
Call MakroShort300
End Select
End If
End Sub

Die Makros stehen in einem allgemeinen Modul:
Option Explicit
Public blnCheck As Boolean
Sub MakroLong300()
If blnCheck = True Then Exit Sub
' hier stehen die Anweisungen die
du schon bisher in deinem Makro stehen hattest!
blnCheck = True
End Sub
Sub MakroShort300()
If blnCheck = False Then Exit Sub
' hier stehen die Anweisungen die
du schon bisher in deinem Makro stehen hattest!
blnCheck = False
End Sub
Gruß Sepp
Anzeige
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 22:38:18
Stephan
Hallo Sepp.
Habe alles so gelassen wie Du es für Worksheet und Makrodatei sagtest.
In Option Explicit habe ich jetzt:
Public blnCheck As Boolean

Sub MakroLong300()
If blnCheck = True Then Exit Sub
Call MakroLong300
blnCheck = True
End Sub



Sub MakroShort300()
If blnCheck = False Then Exit Sub
Call MakroShort300
blnCheck = False
End Sub

==========================================
Es funktioniert einfach nicht.
Muß ich denn nicht auch den Code unter Worksheet abändern ?
Viele Grüsse
Stephan
Anzeige
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 22:46:49
Josef
Hallo Stephan!
In Option Explicit habe ich jetzt:
Option Explicit steht am Anfang eines Modules und erzwingt
die Variablendklaration!
Du sollst einfach in dein Makro "MakroLong300()"
Die Zeilen hinzufügen die ich dir geschrieben habe!
Du rufst ja dein Makro rekursiv auf!
Dein Code von "MakroLong300()" sah bisher so aus

Sub MakroLong300()
'blabla
'blabla
'blabla
End Sub

und soll jetzt so aussehen

Sub MakroLong300()
If blnCheck = True Then Exit Sub
'blabla
'blabla
'blabla
blnCheck = True
End Sub

und das selbe mit "MakroShort300()" wie beschrieben
Gruß Sepp
Anzeige
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 23:02:35
Stephan
Hallo Sepp.
Ok. Jetzt habe ich verstanden, ins Makro also.
Habe die Einträge in beide Makros gemacht "if blnCheck = ... ".
Die Makros laufen aber immer noch mehrmals ...
Wohin muß:
Option Explicit
Public blnCheck As Boolean
Ich hoffe mal ich bringe Dich nicht zur Weissglut :-)
Viele Grüsse
Stephan
Anzeige
An den Anfang des Moduls....
22.11.2004 23:05:48
Josef
...mit den Makros!
Das sind die ersten zwei Zeilen im Modul, dann folgen deine Makros.
Gruß Sepp
AW: An den Anfang des Moduls....
22.11.2004 23:11:53
Stephan
Hallo Sepp.
Also es scheint - dank Deiner unerschütterlichen Hilfe - zu laufen. Unglaublich.
Allerdings läuft es einmal und dann nimmermehr.
Kann es sein, das beim Ausführen eines Makros das "Flagg" des anderen wieder umgesetzt werden muß ?
Viele Grüsse
Stephan
Anzeige
AW: An den Anfang des Moduls....
22.11.2004 23:28:10
Josef
Hallo,
hast du den Code richtig kopiert?
einmal
If blnCheck = True Then Exit Sub
blnCheck = True
und einmal
If blnCheck = False Then Exit Sub
blnCheck = False
Gruß Sepp
Anzeige
AW: An den Anfang des Moduls....
22.11.2004 23:37:57
Stephan
Hallo Sepp.
Hatte ich natürlich nicht. Ich hatte überall =True.
Es funktioniert ... TADELLOS UND BESTENS.
Ich danke Dir für Deine Gedult. Habe erst gestern mit der Makroprogrammiererei angefangen und hatte davor noch nie etwas damit zu tun.
Was machst Du eigentlich noch so spät am Compi ?
Einen schönen Gruß
Anzeige
AW: Zwei Makros NUR abwechselnd ausführen
22.11.2004 22:46:49
Stephan
Hallo Sepp.
Danke für Deine Geduld :-)
Ich bekomme eine Meldung:
Fehler 28 in der Applikation - Nicht genügend Stapelspeicher.
Mmhh.
Stephan
;

Forumthreads zu verwandten Themen

Zelleninhalte abwechselnd mit der Füllfarbe... ?
Selma

Hallo Leute,
in Spalte A habe ich ganz viele Einträge. Jetzt möchte ich von Zelle in der am Anfang dies <artikel name steht bis Zelle wo es am Anfang dies steht in Füllfarbe gelb und den nächsten Abschnitt mit der Füllfarbe grün darstellen. Dies soll immer abwechselnd bis letzte Zelle d...
07.10.2008 10:00:00
Thread-ID: 1014628
11 Beiträge
b. formatierung abwechselnd nach Gruppen
Lucia

Hallo zusammen,
So...heut bin ich aber eifrig am excel und stoße immer wieder an meine Grenzen...:-( bzw. lerne dann ja zum Glück durch euch dazu :-)
Jetzte folgendes:
Lange Liste mit Daten, gruppiert nach z.B. Kunde, wenn es zu diesem mehrere Posten gibt. Es kann also sein, dass ü...
03.09.2009 14:27:01
Thread-ID: 1100355
5 Beiträge
Zellbereich abwechselnd in Farbe
Andreas

hallo zusammen
ist es möglich, dass ich per makro einen bereich mit einem hintergrund belegen kann? dass dies abwechselnd von zeile zu zeile geht kenne ich. aber wie siehts mit einem bereich aus?
wäre toll wenn mir jemand helfen könnte.
Muster: https://www.herber.de/bbs/user/66754.x...
21.12.2009 18:22:32
Thread-ID: 1125432
4 Beiträge
Anzeige
Combobox Einträge mit abwechselnder Farbe
TOM

Guten Morgen zusammen
Ich habe in meinem USerform eine Combobox mit 15 Einträgen die ich gerne abwechslend farblich mit grün/weiss zu r besseren Übersicht anzeigen lassen möchte. Geht so was und wenn ja wie!?
Besten Dank für einen Tipp
Gruss und schöner Tag
TOM
16.04.2010 07:29:40
Thread-ID: 1152146
3 Beiträge
Abwechselndes Sortieren mit Ausnahmeregel
KlausF

Hallo Forum,
ich bräuchte einmal Hilfe zu einer Ausnahmeformulierung bei einen
abwechselndem Sortiervorgang.
https://www.herber.de/bbs/user/73018.xls
Mit folgender Worksheet.Change sortiere ich einen Bereich abwechselnd,
den Ausnahmewunsch habe ich gekennzeichnet:
Dim...
11.01.2011 02:23:13
Thread-ID: 1194889
5 Beiträge
Combobox Zeilen abwechselnd farbig
andreas

Hallo zusammen,
ich habe eine Combobox bei der lese ich die Werte der Zelle A1:A20 ein.
Jetzt würde ich gerne die Hintergrundfarbe der Zeilen in der Combobox zur besseren visualisierung abwechselnd farbig hinterlegen.
Ich habe schon ein bisschen recherchiert aber nichts gefunden.
01.09.2011 11:57:30
Thread-ID: 1228306
6 Beiträge
Anzeige
Neu: Filterergebnis abwechselnd einfärben
Jenny

Hi Ihr,
ich weiss, dass es hierzu schon alte Einträge gab, kann die Dateien dort jedoch aufgrund meiner Interneteinstellungen nicht öffnen. :-(
Weiss jemand von Euch, wie man (nach Filterung einer Tabelle) nur die Filterergebnisse, d.h. die entsprechenden Zeilen automatisch abwechselnd...
11.03.2012 21:20:27
Thread-ID: 1254600
3 Beiträge
Säulendiagramm: abwechselnde Daten reihen
Andi

hallo Forum,
ich weiss nicht recht, wie ich mein Problem schildern soll, ich versuchs mal (hab darum auch nicht recht gewusst, nach was ich suchen soll und habs jetzt nach einer guten Stunde mit der Suche aufgegeben):
ich hab eine Tabelle mit Rundenzeiten (durchnumeriert von 1-49) die w...
29.05.2012 16:34:24
Thread-ID: 1265286
4 Beiträge
Anzeige
sich abwechselnde Frames?
Martin

Hallo nochmal,in einer Userfom habe ich die Möglichkeit über die EIngabe einer Zahl in einer Textbox mir in Labelfeldern den dahinterstehenden Namen des 'Produktes' anzeigen zu lassen. Es sind mehere Label innerhalb eines Rahmens.Die Textbox soll in enem zweiten Schritt dahingehend erweitert we...
14.06.2002 14:27:35
Thread-ID: 128732
3 Beiträge
Tabelle formatieren Zeilen abwechselnd
Michael

Guten Morgen,
ich habe einen Tabelle mit dem Bereich A:N. Die Anzahl der zeilen kann flexibel sein.
ich möchte den Bereich abwechselnd einfärben, dazu folgendes makro: Sub Tabelle() Dim i As Long For i = 3 To ActiveSheet.UsedRange.Rows.Count If i Mod 2 = 1 Then Rows(i).Interior.ColorInd...
14.05.2014 08:04:37
Thread-ID: 1361428
30 Beiträge
Anzeige
Nicht "Abwechselnde markieren"
Walter

Guten Tag.
könnt ihr mir bei folgenden Sachverhalt helfen:
In Spalte A sind ab A2 verschiedene Wörter untereinander.
Möchte gerne, über ein Makro oder Formel, dass die Wörter markiert werden,
welche nicht abwechselnd sind.
Beispielsweise stehen untereinander:
ja
nein...
06.11.2014 11:45:35
Thread-ID: 1390794
3 Beiträge
URL's abwechselnd öffnen
Michael

Guten Abend,
ich habe eine Liste von Web URL's, die ich abwechselnd öffnen möchte. Gerne möchte ich über ein Formular mit einem Button von der einen URL zur nächsten wechseln und mir dabei vor dem drücken des Buttons "weiter" unter Umständen Notizen zur Web Seite machen (was ich selbst prog...
16.05.2015 22:14:36
Thread-ID: 1426449
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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