versuche gerade mal ohne Goto eine Anweisung hinzubekommen. Ich bekomme es aber nicht hin.
Mit den folgenden Anweisungen klappt es nicht. Habe es auch schon mit If And usw. versucht.
Konkret soll bei negativer If-Anweisung zur nächsten gesprungen werden.
X = ActiveSheet.Name
v = Mid(X, 3, 1)
If v = "5" Then _
sName = "Umsatz2001"
rng1 = "A1:M71"
rng2 = "B7:B71"
rng3 = "H7:H33"
rng4 = "D36:D54"
If v = "7" Then _
sName = "Umsatz2002"
rng1 = "A1:M95"
rng2 = "B7:B95"
rng3 = "H7:H49"
rng4 = "D36:D80"
If v = "1" Then _
sName = "Umsatz2003"
rng1 = "A1:M106"
rng2 = "B7:B106"
rng3 = "H7:H96"
Danke für jeden Tip
Gruß
Wolfgang