Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1368to1372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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!! ?

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
:-)

15 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
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
Automatischer SAP Logon über VBA
Klaus

Hallo zusammen,
ich möchte mich mit Hilfe von VBA an ein SAP-System anmelden. Mit folgendem Code schaffe ich es immerhin daß SAP Logon-Fenster mit dem ausgefüllten Paßwort anzeigen zu lassen (dies geschieht bei der if-Abfrage).
Set R3 = CreateObject("SAP.Functions")
R3.Connection.S...
21.06.2004 13:34:41
Thread-ID: 443853
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
2
3
1
4
1
1
6
4
4
2
2
5
3
7