Vermutlich ganz einfache Frage: if then goto else

Bild

Betrifft: Vermutlich ganz einfache Frage: if then goto else
von: Thomas
Geschrieben am: 19.03.2005 10:43:48
Hallo Ihr Lieben,
gerne möchte ich folgendes als richtiges VBA schreiben, doch ich kann es nicht:
If Suchbegriff nicht gefunden then goto Sprungmarke2 else goto Sprungmarke1

Mein Code bisher:
Cells.Find(What:="Name", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Vielen Dank für Eure Zeit,
Thomas

Bild

Betrifft: AW: Vermutlich ganz einfache Frage: if then goto else
von: ransi
Geschrieben am: 19.03.2005 10:50:00
hallo thomas
versuchs mal so:
if not Cells.Find(What:="Name", ...false)is nothing then
goto sprungmarke1
else:
goto sprungmarke2
end if
ransi
Bild

Betrifft: AW: Vermutlich ganz einfache Frage: if then goto else
von: Thomas
Geschrieben am: 19.03.2005 11:01:01
O.k., ransi, bin gerade dabei das auszuprobieren. Wie wird eine Sprungmarke gekennzeichnet?
Bild

Betrifft: AW: mit Doppelpunkt
von: ransi
Geschrieben am: 19.03.2005 11:08:17
hallo thomas
sprungmarke1: code
oder
sprungmarke:
code
wichtig ist der doppelpunkt.
ransi
Bild

Betrifft: War ein kleiner Fehler drin
von: Thomas
Geschrieben am: 19.03.2005 11:15:00
Hallo nochmal ransi,
Dein Code stimmte, nur das anfängliche "Not" war zuviel. So läuft´s:
If Cells.Find(What:="Name", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False) Is Nothing Then
Danke, ransi, Du hast mir sehr geholfen!
Herzliche Grüße, Thomas
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Vermutlich ganz einfache Frage: if then goto else"