GoTo funktioniert nicht

Hallo zusammen,
ich habe ein Problem bei einer GoTo Anweisung.
Wenn im Sheet "eP gK 1" in Zelle AB3 der Wert 1 steht, soll er die Sprungmarke "Fisch" ausführen. Wenn in der gleichen Zelle der Wert 2 steht, soll die Sprungmarke "Hamster" ausgeführt werden.
Aber egal ob eine 1 oder eine 2 in der Zelle steht, er führt immer die Sprungmarke "Hamster" aus.
Was mache ich falsch? :-(
Folgenden Code habe ich ausprobiert:
Sh3 = Array("eP gK 1")
For Each I In Sh3
myNum = Range("AB3")
If myNum = "1" Then
GoTo Fisch
Else
GoTo Hamster
End If
Next I
Fisch:
'Prüft vor dem Drucken ob die Zellen "geperrt" enthalten
Sh3 = Array("eP gK 1")
For Each I In Sh3
If Range("AE2") = "gesperrt" Then
MsgBox "Heute ist Sonntag"
Cancel = True
Exit Sub
End If
Next I
For Each I In Sh3
If Range("AB2") = "gesperrt" Then
MsgBox "Heute ist Montag"
Cancel = True
Exit Sub
End If
Next I
Hamster:
'Prüft vor dem Drucken ob die Zellen "geperrt" enthalten
Sh4 = Array("eP gK 2")
For Each I In Sh4
If Range("AE2") = "gesperrt" Then
MsgBox "Heute ist Dienstag"
Cancel = True
Exit Sub
End If
Next I
For Each I In Sh4
If Range("AB2") = "gesperrt" Then
MsgBox "Heute ist Mittwoch"
Cancel = True
Exit Sub
End If
Next I
Hat jemand eine Idee?
Grüße
Fred

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub hfhfh() Sh3 = Array("eP gK 1") With Sheets("Tabelle1") For Each i In Sh3 myNum = .Range("AB3") If CInt(myNum) = 1 Then GoTo Fisch Else GoTo Hamster End If Next i Fisch: 'Prüft vor dem Drucken ob die Zellen "geperrt" enthalten 'Sh3 = Array("eP gK 1") führt zu Fehler, wenn nochmal zugewiesen wird For Each i In Sh3 If .Range("AE2") = "gesperrt" Then MsgBox "Heute ist Sonntag" Cancel = True Exit Sub End If Next i For Each i In Sh3 If .Range("AB2") = "gesperrt" Then MsgBox "Heute ist Montag" Cancel = True Exit Sub End If Next i Hamster: 'Prüft vor dem Drucken ob die Zellen "geperrt" enthalten Sh4 = Array("eP gK 2") For Each i In Sh4 If .Range("AE2") = "gesperrt" Then MsgBox "Heute ist Dienstag" Cancel = True Exit Sub End If Next i For Each i In Sh4 If .Range("AB2") = "gesperrt" Then MsgBox "Heute ist Mittwoch" Cancel = True Exit Sub End If Next i End With End Sub

Hallo zusammen,
vielen Dank für eure Ratschläge, komme damit aber nicht wirklich zurecht...
ich erkläre nochmal, was ich genau will. Ich hoffe ihr habt genug Ausdauer zum lesen :-)
Einführung Teil 1
die Arbeitsmappe besteht aus insgesamt 16 Sheets.
Davon sind 4 Sheets (ich nenne diese mal "Hauptsheets") und jeweils immer 3 Sheets (ich nenne diese Mal "Nebensheets") den Haupsheets untergeordnet.
Aussehen würde das in der Tabellenleiste unten z. B. so:
"erstes Auto", "eA gK 1", "eA gK 2", "eA gK 3", "zweites Auto", "zA gK 1", "zA gK 2", zA gK 3", "drittes Auto", "dA gK 1", "dA gK 2", "dA gK 3", "viertes Auto", "vA gK 1", vA gK 2", "vA gK 3"
Wenn jetzt Eingaben in 3 bestimmte Bereiche der Hauptsheets gemacht wird, werden diese Eingaben auf die Nebensheets übernommen. Jeder Bereich auf den Hauptsheets ist einem Nebensheet zugeordnet.
Ich schreibe also einmal und habe jeweils immer zweimal die Angaben.
In den Nebensheets wird nicht geschrieben, diese sind nur zum Drucken!
Einführung Teil 2:
Vor dem Drucken soll geprüft werden, ob:
1. Alle nötigen Angaben im Hauptsheet gemacht wurden. Wenn NEIN, bleibt der Inhalt der Zelle "AB2" in jedem Nebensheet "gesperrt". Wenn Ja dann "Druck frei"
und
2. Ob zuvor schon mal diese Nebensheet gedruckt wurde. Wenn NEIN, beleibt der Inhalt in Zelle "AE2" in jedem Nebensheet "gesperrt". Wenn Ja dann "frei"
Sollte eines von beiden "gesperrt" sein, ist ein Drucken des jeweiligen Nebensheets nicht möglich.
Es erfolgt der Abbruch des Drucks und es kommt eine MsgBox die darauf hinweist, welcher Bereich auf welchem Hauptsheet nicht korrekt beschriftet wurde, oder das schonmal dieses Nebensheet gedruckt wurde.
Das ist wichtig, damit der Bediener weis wo er nach dem "Fehler" gucken muss.
Nun das Eigentliche Problem:
Es ist Gesetz, das ALLE Sheets hintereinander beschriftet oder gedruckt werden. Sie bauen also aufeinander auf. Die Arbeitsmappe "lebt" und es wird immer irgendwann mal ein weiterer Bereich der Hauptsheets ausgefüllt.
Es wird aber nicht immer ein Nebensheet gedruckt!
Jetzt könnte also z. B. das Nebensheet "eA gK 1" nicht gedruckt wurde, weil die Angaben im Hauptsheet die Nötigkeit des Drucks nicht aussagen. Die Arbeitsmappe wird geschlossen irgendwann wieder geöffnet und ein neuer Bereich beschrieben. Jetzt muss hier also geprüft werden ob z. B. im Nebensheet "eA gK 2" alle Angaben vorhanden sind.
Da das alles unter der Prozedur Before_Print läuft, muss er also die Prüfung für den oder die vorherigen Sheets "überspringen", damit nicht immer der Hinweis kommt, das ein Fehler in dem ersten Nebensheet ist, obwohl das gar nicht der Wahrheit entspricht.

Habe das mit GoTo und der 1 in der Zelle ("AB3") versucht (erstmal nur für die ersten beiden Nebensheets) klappt aber nicht. er geht direkt zum zweiten Nebensheet und gibt dafür die Massage, egal ob die 1 oder nix in der Zelle ist.
Folgenden Code nutze ich:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ScreenUpdating = False
Sh3 = Array("eP gK 1")
For Each I In Sh3
myNum = Range("AB3")
If myNum = 1 Then
GoTo erste_gelbe_Karte
Else
GoTo zweite_gelbe_Karte
End If
Next I
erste_gelbe_Karte:
'Prüft vor dem Drucken ob die Zellen "geperrt" enthalten
Sh3 = Array("eA gK 1")
For Each I In Sh3
If Range("AE2") = "gesperrt" Then
MsgBox "..."
Cancel = True
Exit Sub
End If
Next I
For Each I In Sh3
If Range("AB2") = "gesperrt" Then
MsgBox "..."
Cancel = True
Exit Sub
End If
Next I
zweite_gelbe_Karte:
'Prüft vor dem Drucken ob die Zellen "geperrt" enthalten
Sh4 = Array("eA gK 2")
For Each I In Sh4
If Range("AE2") = "gesperrt" Then
MsgBox "..."
Cancel = True
Exit Sub
End If
Next I
For Each I In Sh4
If Range("AB2") = "gesperrt" Then
MsgBox "..."
Cancel = True
Exit Sub
End If
Next I
......
Ich habe die anderen Nabensheets im Code hier weggelassen, damit die Nachricht nicht aus sämtlichen Nähten platzt :-) geht aber so weiter...
Im Grundsatz geht es immer so weiter ... wenn also die Zelle AB3 jedes Nebensheets nicht die 1 anzeigt, soll er immer das nächste Nebensheet prüfen.
Findet er ein Nebensheet mit einer 1, prüft er die Zelle AB2 und AE2 dieses Sheets auf "gesperrt". Steht dort nicht "gesperrt", druckt er dieses Nebensheet.

So! Es freut mich schon mal, das du genug Ausdauer hattest den ganzen Text zu lesen :-)
Ich hoffe jeder weis jetzt was ich genau will :-)
Viele Grüße
Fred

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread