Office: Fehlermeldung ausgeben wenn Sheet nicht vorhanden

Einen schönen Freitag Nachmittag alle zusammen!
Habe eine kleine Aufgabenstellung, die ich leider per Google nicht lösen konnte.
Und zwar habe ich ein kleines Skript, das aus einer Haupttabelle Datensätze in die Tabellenblätter sortiert (nach Kostenstelle, pro Kostenstelle ein Tabellenblatt).
Wenn das entsprechende Kostenstellentabellenblatt vorhanden ist, funktioniert das auch perfekt, aber ich würde mein Skript gerne auch auf den Fall vorbereiten, das VBA aufgrund eines fehlendes Blattes eine Fehlermeldung ausspuckt und die Codeausführung abbricht.
Also in dem Sinne:
Code:

Ist es so möglich wie ich es mir vorstelle? Wenn ja, wie?
Viele Grüße und ein schönes Wochenende,
Chris

:)

 

Hallo Chris,

wenn das Blatt nicht vorhanden ist, produziert der Zugriff einen Fehler, den man abfangen und auswerten kann (Nummer 9: Index außerhalb des gültigen Bereichs).

Ein kleines Beispiel:

Code:

Hoffe, es hilft Dir weiter.

Grüße
EarlFred

 

hört sich ja recht gut an, danke schonmal =) !
allerdings fehlt mir gerade etwas die Vorstellung, wie ich das für meinen Code anpassen soll (RAM ist ein Array):
Code:

 

Hallo Tranceport,

der von Dir genannte Befehl ist genau der, der den von mit genannten Fehler auslöst, wenn das Blatt nicht vorhanden ist. Denn Ram(Index,1) ist ein Element bzw. Wert aus dem Array - und diesen kannst Du ja beliebig im weiteren Code verwenden...

Grüße
EarlFred

 

Wunderbar, dann probiere ich das mal aus =) Herzlichen Dank für deine Hilfe!

 

Hallo Fabian,

bittesehr und Danke für's Feedback!

Grüße
EarlFred

 

Hab es nun ausprobiert, funktioniert soweit auch super, nur wenn ich noch etwas zusätzlich zur MsgBox ausgeben will (z.B. GoTo) scheint er das nicht mehr dem "If Fehler then" zuzuordnen (End If geht hier ja nicht). Ich hatte nämlich vor, das bei einem Fehler (Blatt nicht gefunden), der aktuelle Arrayinhalt in ein "Fehler"Tabellenblatt geschrieben wird und der Code den nächsten regulären Schritt überspringt. Ist so etwas möglich?
Viele Grüße,
Chris (nicht Fabian ;-D )

 

Hallo Chris,

erstmal sorry für die falsche Anrede! War keine und schon gar keine böse Absicht! *wink.gif*

Die If-Abfrage kannst Du noch aufweiten: Siehe folgendes Beispiel:

Code:

Nicht sehr elegant ist es im oben stehenden Beispiel, dass die Fehlerbehandlung innerhalb des eigentlichen Codes stattfindet. Der wird dadurch schnell unübersichtlich, wenn er umfangreicher wird. Ich nehme diese Programmteile dann lieber entweder an das Ende der Sub oder lagere sie gleich ganz aus in eine separate Sub.

Das könnte dann so aussehen:

Code:

Grüße
EarlFred

 

Weiß ich doch dass das keine Absicht war ;-D
Knifflig! Ich müsste ja unterbinden, dass das Hauptsub den Code nach dem Aufruf des Fehlersubs ausführt(das Hauptsub will ja danach Daten in das geöffnete Blatt schreiben). Die einfachste Lösung wäre es, gleich die Eingangstabelle entsprechend zu durchsuchen. Ich nehm mal deine erweiterte If-Version und lasse sie über die Inputtabelle laufen, nicht findbare Kostenstellen werden dann gleich in die Fehlertabelle geschrieben. Dadurch werden diese garnicht erst in das Array eingelesen =) Dann spar ich mir viel Arbeit ;-D (Der Mensch ist nunmal faul)
Herzlichen Dank für deine schnelle und kompetente Hilfe =)
Gruß
Chris

 

Hallo Chris,

das Problem muss doch sicher diesem Prinzip folgen - hier mal als Skizze:

Code:

Bei abgefangenen Fehlern sieht das halt so aus:

Code:

Benutze an einem einfachen Beispiel mit gültigen und ungültigen Werten den Debugger (Mit F9 Haltepunkt setzen, z. B. in der Zeile mit "On Error..." und dann von Hand mit F8 durchschalten, um Schritt für Schritt zu sehen, was Dein Code tut) - das hilft ungemein...

Grüße
EarlFred

 

Schönen Dank noch mal, habe es dank deiner Hilfe schon lösen können, der Code filtert gleich in der Inputtabelle die Fehler aus, bevor das Array überhaupt eingelesen wird. Falls es jemand etwas nutzt, hier der Code:

Code:

Gruß,
Chris