Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
684to688
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

goto -- sprungmarke??

goto -- sprungmarke?
19.10.2005 22:15:13
Tom
ja so könnte es klappen ...... danke
so hab jetz noch ein Problem:

Sub suche()
Dim C
C = Worksheets(InputBox("Bitte Tabellenname eingeben")).Select
Set C = Nothing
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then Exit Sub
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbYes Then GoTo Zeile1
End Sub

soweit hab ich das jetzt aber das mit dem GoTo klappt nicht.
Ich bekomme die Fehlermeldung: Sprungmarke nicht definiert ?
Was ist die Sprungmarke? wie definiere ich sie?
Danke

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: goto -- sprungmarke?
19.10.2005 23:00:33
Rene
Hallo!
Eine Sprungmarke markiert einen Punkt im Makro, zu dem gesprungen werden soll und wird mit einem Doppelpunkt gekennzeichnet. So muss es aussehen.

Sub suche()
Dim C
Zeile1:
C = Worksheets(InputBox("Bitte Tabellenname eingeben")).Select
Set C = Nothing
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then Exit Sub
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbYes Then GoTo Zeile1
End Sub

Grüße, Rene
Ohne Sprungmarke
19.10.2005 23:03:42
Ramses
Hallo
Option Explicit

Sub suche()
    Do
        On Error Resume Next
        Worksheets(InputBox("Bitte Tabellenname eingeben")).Select
        If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then Exit Sub
    Loop
End Sub

Gruss Rainer
Anzeige
AW: Ohne Sprungmarke
20.10.2005 19:44:38
Tom
Vielen Dank an euch.....

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige