Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
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
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
1368to1372
1368to1372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mittels GoTo mitten in ein anderes Makro springen

Forumthread: mittels GoTo mitten in ein anderes Makro springen

mittels GoTo mitten in ein anderes Makro springen
08.07.2014 12:33:50
Georg
Hallo Excel Welt,
ich hänge an einem einfachen GoTo Fehler, den ich aber auch in der Recherche nicht gelöst bekommen habe... :-(
Könnt ihr mir sagen, warum das nicht klappt, bzw. wie es klappen würde?
Ich will von "test1" in die Mitte (!) von "test2" springen. Das stelle ich mir so vor:
Sub test1()
GoTo SPRUNG_MARKE
End Sub

_____________________ 
Sub test2()
SPRUNG_MARKE:
End Sub
Es kommt dann die Fehlermeldung: "Sprungmarke nicht definiert". Wenn ich sie aber in "test1" definiere, springt er aber natürlich nicht in "Test2"!
?
Ist doch sicher wieder eine banale Sache, aber ich krieg es nicht gebacken...!
Danke und Gruß Georg

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mittels GoTo mitten in ein anderes Makro springen
08.07.2014 12:49:50
Daniel
Hi
eigentlich sollte man dir da gar nicht helfen, denn das was du da produzierst ist unübersichlicher, fehleranfälliger Spaghetti-Code im Quadrad.
sowas macht man eigentlich schon seit ende er 70er nicht mehr.
aber wenn du es brauchst:
Sub test1()
Call test2(1)
End Sub

Sub test2(Optional Sprungmarke as long = 0)
If Sprungmarke = 1 then Goto SPRUNG_MARKE
SPRUNG_MARKE:
End Sub
Gruß Daniel

Anzeige
AW: mittels GoTo mitten in ein anderes Makro springen
08.07.2014 14:07:30
Georg
Hallo Daniel,
danke für die Hilfe und Hinweise!! Ich hab noch Fragen:
- was ist denn "Spagetti Code"? Das hatte ich auch woanders schon gelesen und nicht verstanden.
- Und was bedeuted die 1 in Klammern beim Makroaufruf?
- Wie sollte ich sowas besser machen?
Danke für die Nachhilfe!
Gruß Georg

Anzeige
AW: mittels GoTo mitten in ein anderes Makro springen
08.07.2014 14:17:06
Daniel
Spagetthicode ist Code, der viele Gotos enthält und bei dem zwischen den Sprungmarken hin und her gesprungen wird, so dass man schnell die Übersicht verliert wo man sich gerade befindet. Wenn man versucht dem Pogrammlauf zu folgen, dann ist das keine lineare Abfolge des Codes, sondern wildes durcheinander wie auf einem Teller Spaghetti.
ich brauche die 1, weil ich nicht direkt zu einer Sprungmarke in einem anderen Makro springen kann.
ich kann nur das Makro nurmal aufrufen.
Damit der erste Teil übersprungen werden kann, mache ich eine Parameterübergabe.
Wenn der übergebene Parameter den Wert 1 hat, wird zur Sprungmarke gesprungen, falls nicht, wird das Makro normal abgearbeitet.
ohne jetzt deine Aufgabenstellung zu kennen, ist es natürlich schwer zu sagen, was konkret besser ist.
wenn du schon modular programmierst (dh auf mehrere Makros verteilt), dann könnte das auch so aussehen:
Sub Makro1()
Call Makro2b
End sub
Sub Makro2a()
'hier wäre die Sprungmarke
Call Makro2b
End Sub
Sub Makro2B()
'hier der Code ab der Sprungmarke
End Sub
Gruß Daniel

Anzeige
klasse
08.07.2014 14:40:11
Georg
Hi Daniel,
danke für die gute Erklärung. Hab wieder was gelernt!
Gruß Georg

doch noch was...
08.07.2014 14:48:34
Georg
Hallo Daniel,
jetzt hab ich doch noch ein Problem.
Das Makro "test2" läuft nicht mehr allein! Ich kann "test1" starten und dann auf "test2" springen, aber "test2" kann ich nicht allein starten!! ?

Anzeige
AW: doch noch was...
08.07.2014 15:28:38
Daniel
dann noch dieses Makro einfügen:
Sub Test2start
Call Text2(0)
End Sub
zum Direktstart dann Test2start verwenden
alternativ kannst du auch statt der Parameterübergabe eine Projektweit gültige Variable verwenden, welche in allen Makros verwendet werden kann und ihren Wert behält: 
Option Explicit
Public SprungMarke as long
Sub test1()
SprungMarke = 1
Call test2
End Sub
Sub test2()
If Sprungmarke = 1 then
Sprungmarke = 0
Goto SPRUNG_MARKE
end if
SPRUNG_MARKE:
End Sub

hier kannst du Test2 dann weiterhin normal starten, solltest dir aber immer im klaren darüber sein, welchen Wert deine Variable "Sprungmarke" aktuell hat, denn die behält ihren zuletzt vergebenen Wert auch nach Ablauf der Makros.
Gruß Daniel

Anzeige
jetzt funzts...Danke!! - owt
08.07.2014 15:41:17
Georg
:-)
;

Forumthreads zu verwandten Themen

VBA ohne GoTo
Peter

Hallo Excel-Experten,
ich suche eine Möglichkeit, die nachfolgende If-Sequenz ohne GoTo zu schreiben, komme jedoch immer nur zu einem endlosen Bandwurm an Abfragen.
Gibt es eine kurze, prägnante Variante?
For lZeile = 2 To lLetzte
    ...
01.08.2010 16:01:42
Thread-ID: 1169919
9 Beiträge
Click auf Submit Button in html via VBA
Henner

Hallo zusammen,
mit folgendem Code lasse ich Daten von Excel in html übergeben: Sub Anmelden() Dim IEApp As Object Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Visible = True IEApp.Navigate "https://xxx.xx/form.php?id=12345" Do: Loop Until IEApp.Busy = False Do: Loop Unti...
30.04.2016 13:50:49
Thread-ID: 1491291
4 Beiträge
autologon windows2000 per vba
andy

Hallo Excel Profis,
habe eine für mich unlösbare aufgabe und leider weiß ich auch nicht ob dies überhaupt möglich ist, ich hoffe ihr konnt mir helfen oder ne info geben.
UNd zwar ist es möglich ein excel makro zu schreiben das wenn ich die excel datei aufmache excel gleich wieder schlies...
25.02.2003 16:58:53
Thread-ID: 224190
2 Beiträge
autologon win2000 per vba ?
andy

Hallo Excel Profis,
habe eine für mich unlösbare aufgabe und leider weiß ich auch nicht ob dies überhaupt möglich ist, ich hoffe ihr konnt mir helfen oder ne info geben.
UNd zwar ist es möglich ein excel makro zu schreiben das wenn ich die excel datei aufmache excel gleich wieder schlies...
26.02.2003 12:43:44
Thread-ID: 224503
5 Beiträge
GotoRecord in Subform
Valentin Lange

Hallo,in Access habe ich ein Formular mit zwei Unterformularen. Wenn man nun in einer SubForm auf einen Datensatz klickt, soll in der anderen ein neuer Record erzeugt werden. Mein Problem ist nun, dass ich nicht von der einen auf die andere Subform zugreifen kann, wenn ich mir alle geladenen Fo...
21.05.2003 18:35:17
Thread-ID: 259827
2 Beiträge
Kryptoalgorithmen in VBA im Source?
Roger

Hallo, kennt jemand so etwas wie eine freie Bibliothek verschiedener Kryptoalgorithmen die in VBA vorliegen und einfach in eigene VBA Makros eingebunden werden können?

Schon mal Danke für etwaige Hinweise
29.07.2003 15:43:19
Thread-ID: 287251
2 Beiträge
Anzeige
VBA: On Error go to Fehler
Ernst Dunkel
Hallo Forum
Ich will in meinen Makros Fehler abfangen.
Der Beispiel Code 2 funktioniert, wenn der Wert in H7 nicht im Range B17 bis E29 vorhanden ist.
Im Beispiel Code 1 funktioniert, das selbe nicht. Was mache ich hier falsch?
Für eine antwort bin ich dankbar.
mfg
Ernst Dunk...
10.01.2004 12:10:21
Thread-ID: 361587
7 Beiträge
Auto-Logon an ein SAP-System mit VBA
klaus

Hallo zusammen, ich möchte mich in einem VBA-Makro automatisch an ein SAP-System anmelden.
Es gibt da z. B. folgende Funktion:
set xy = CreateObject = ("SAP.Functions")
xy.Connection.System = "abc"
usw.
Leider kommt immer wieder das SAP logon-Fenster hoch (auch wenn ich das P...
07.06.2004 17:38:07
Thread-ID: 438429
5 Beiträge
Subtotal in VBA
Heinzs

Hallo,,
ich möchte die die Variable gn_array mit ca. 60 Ziffern füllen, so daß der folgende Befehl mir 60 Teilergebnisse liefert
Ich hatte folgende Idee:
gn_max=60
redim gn_array (gn_max)
for i = 1 to 60
gn_array(í)= i+9
next i
Selection.Subtotal GroupBy:=5, Func...
25.11.2005 16:43:33
Thread-ID: 701045
3 Beiträge
Subtotal in VBA-Code
hajo_SB

Hallo Zusammen,
ich beiße mir mal wieder die Zähne aus.
Kann mir jemand sagen, wie der VBA-Code heißt, um in einer andere Tabelle die Anzahl der gefilterten Zeilen zu ermitteln? So in etwa stelle ich mir das vor:
Tabelle3.Range("A:C").AutoFilter Field:=2, Criteria1:=""
nzeilen =...
28.02.2006 16:27:57
Thread-ID: 738796
3 Beiträge
Go To & Beenden einer Sub - Anweisung
Mathias

hallo,
ich habe folgendes Problem,
ich starte Sub Main() dann kommen nacheinander mehrere Userformen. jetzt will ich beim Betätigen des Abbrechen Buttons - Sub Main beenden, wie kann ich das Hauptprogramm beenden? wollte es auch mit Go To Anweisung probieren, also so: bei CommandB...
16.11.2006 11:31:27
Thread-ID: 820374
6 Beiträge
Anzeige
VBA: Nachfolgendes Sub NICHT aufrufen
Kerstin

Hallo VBA-Cracks!
Ich habe eine "Makrokette" die nacheinander mehrere Makros startet. Nun möchte ich mit einem neuen Makro ein Makro aus o.g. Kette ausführen lassen, OHNE daß das nachfolgende Makro gestartet wird. Geht das? Und wenn ja, wie?
Zur Verdeutlichung hier eine einfache Version...
25.01.2020 15:35:11
Thread-ID: 1736440
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Mit GoTo mitten in ein anderes Makro springen

Schritt-für-Schritt-Anleitung

Um mit VBA von einem Makro in ein anderes zu springen, kannst Du die GoTo-Anweisung verwenden. Hier ist, wie Du es umsetzen kannst:

  1. Erstelle die Hauptmakros: Definiere die Makros, zwischen denen Du springen möchtest. Das Beispiel zeigt, wie Du von test1 zu test2 springst:

    Sub test1()
    GoTo SPRUNG_MARKE
End Sub

Sub test2()
    SPRUNG_MARKE:
    ' Dein Code hier
End Sub

  2. Fehlermeldung beachten: Wenn Du die Fehlermeldung "Sprungmarke nicht definiert" erhältst, liegt das daran, dass die Sprungmarke nur innerhalb des gleichen Makros definiert werden kann.

  3. Verwende Parameter: Eine bessere Methode ist es, die Makros so zu gestalten, dass sie Parameter akzeptieren. Dies ermöglicht das gezielte Springen zu bestimmten Stellen im Code:

    Sub test1()
    Call test2(1)
End Sub

Sub test2(Optional Sprungmarke As Long = 0)
    If Sprungmarke = 1 Then GoTo SPRUNG_MARKE
    ' Normaler Code hier
    SPRUNG_MARKE:
    ' Code ab der Sprungmarke
End Sub

Häufige Fehler und Lösungen

  • Fehlermeldung "Sprungmarke nicht definiert": Das tritt auf, wenn Du versuchst, zu einer Sprungmarke zu springen, die nicht im aktuellen Makro definiert ist. Stelle sicher, dass die Sprungmarke im richtigen Makro definiert ist.

  • Makro läuft nicht allein: Wenn ein Makro nur im Kontext eines anderen läuft, musst Du sicherstellen, dass es auch eigenständig aufgerufen werden kann, z.B. durch das Hinzufügen eines Startmakros:

    Sub Test2start()
    Call test2(0)
End Sub

Alternative Methoden

Statt GoTo zu verwenden, gibt es andere Möglichkeiten, um den Code klarer und wartbarer zu gestalten:

  • Modularer Programmieransatz: Teile Deinen Code in kleinere, wiederverwendbare Subroutinen auf. Hier ein Beispiel:

    Sub Makro1()
    Call Makro2a
End Sub

Sub Makro2a()
    ' Hier wäre die Sprungmarke
    Call Makro2b
End Sub

Sub Makro2b()
    ' Hier der Code ab der Sprungmarke
End Sub

  • Verwendung von globalen Variablen: Du kannst globale Variablen definieren, um den Status zwischen den Makros zu speichern:

    Option Explicit
Public SprungMarke As Long

Sub test1()
    SprungMarke = 1
    Call test2
End Sub

Sub test2()
    If SprungMarke = 1 Then
        SprungMarke = 0
        GoTo SPRUNG_MARKE
    End If
    SPRUNG_MARKE:
    ' Code hier
End Sub

Praktische Beispiele

Hier sind einige Beispiele, wie Du die GoTo-Anweisung effektiv nutzen kannst:

  1. Einfaches Sprungmakro:

    Sub test1()
    GoTo SPRUNG_MARKE
End Sub

Sub test2()
    SPRUNG_MARKE:
    MsgBox "Du bist an der Sprungmarke"
End Sub

  2. Verwendung von Parameterübergabe:

    Sub test1()
    Call test2(1)
End Sub

Sub test2(Optional Sprungmarke As Long = 0)
    If Sprungmarke = 1 Then GoTo SPRUNG_MARKE
    MsgBox "Normaler Ablauf"
    SPRUNG_MARKE:
    MsgBox "Sprungmarke erreicht"
End Sub

Tipps für Profis

  • Spaghetti-Code vermeiden: Vermeide exzessive Verwendung von GoTo, um den Code übersichtlich zu halten. Modularisiere Deinen Code und nutze Subroutinen.

  • Dokumentation: Kommentiere Deinen Code gut, besonders wenn Du mit Sprungmarken arbeitest, damit Du die Logik später leicht nachvollziehen kannst.

  • Debugging: Nutze die Debugging-Tools von Excel VBA, um den Code Schritt für Schritt zu durchlaufen und Probleme zu identifizieren.

FAQ: Häufige Fragen

1. Was ist "Spaghetti-Code"? Spaghetti-Code ist ein Begriff für unübersichtlichen Code, der viele GoTo-Anweisungen enthält und dadurch schwer zu verfolgen ist.

2. Warum kann ich nicht direkt zu einer Sprungmarke in einem anderen Makro springen? In VBA kannst Du nur ein Makro aufrufen, aber nicht direkt zu einer Sprungmarke in einem anderen Makro springen. Du musst Parameter verwenden, um anzugeben, ob zur Sprungmarke gesprungen werden soll oder nicht.

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