✔ Excel: if

[m3000]

Hallo,

in ein Makro habe ich eingebaut:

If ActiveCell.Value = "abc" Then GoTo abc_go Else GoTo xyz_go

Danach kommen die beiden genannten Befehlsblöcke. Wenn abc_go (eingeleitet durch "abc_go: ") durchgeführt wird, sollte natürlich xyz_go, das danach definiert ist, nicht mehr angerührt werden. Sondern die Prozedur soll an eine spätere Stelle springen, an der auch xyz_go weitermachen würde. Wie kennzeichne ich das jeweilige Ende dieser Blöcke?

Dank und Gruss
m3000


PS: Ich habe haufenweise vba-Prozeduren von meinem Stellenvorgänger übernommen, kenne ich mich aber nicht so gut aus. Danke für jede Hilfe.

 

[hotschen]

Dann setze doch einfach noch eine Sprungmarke "weiter" die du am Ende von abc aufrufst.
Ich hätte in diesem Fall aber eher 2 Prozeduren (abc, xyz) verwendet und diese aufgerufen.

Gruß hotschen

 

[m3000]

Hallo,

(danke für die Antwort, hotschen)
Habe das Problem folgendermassen gelöst: Das GoTo habe ich entfernt, dafür eine If...Then...Else...End If -Anweisung eingebaut:

If ActiveCell.Value = "abc" Then
 
Selection.Copy
 
Else
 
ActiveCell.Offset(-1, 0).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
 
End If

und ab dann mit dem gemeinsamen Teil weiter.


Gruss
m3000


PS: Bekenne mich schuldig. Einmal auf dem "If" F1 gedrückt, schon war die Lösung klar. Mühsam ernährt sich das Eichhörnchen...