Auf ausgeblendetem Blatt zugreifen / etwas abprüfe
15.12.2004 11:09:37
Claudia
habe leider im Archiv und auf meiner CD nichts gefunden was ich als Anfänger anwenden kann oder selber verändern kann.
ich habe ein kleines Programm in dem mehrere Blätter ausgeblendet sind und
diese nur bei Bedarf (wenn ein Makro dort Arbeit verrichten soll) eingeblendet
werdend. Klappt auch alles soweit ganz gut.
Ich möchte aber zusätzlich bei einigen Makro's erst eine Abfrage auf ein
ausgeblendetes Blatt machen, ob in diesem Blatt die Zelle A3 gefüllt ist oder
nicht. Wenn nicht gefüllt dann soll eine MsgBox erscheinen.
Meinen bisherigen Code habe ich nachstehend aufgeführt, dort wird aber erst das
Blatt eingeblendet
Public
Sub H_L_verschieben()
'Es soll hier schon vermieden werden, das das Blatt eingeblendet wird
Sheets("His").Visible = True 'Blatt His wird eingeblendet
Sheets("His").Select 'Programm springt auf das Tabellenblatt His
'Hier ist die Abfrage und die MsgBox
If Range("A3") = "" Then
MsgBox "Es wurden noch keine Daten aus der Vorwoche übertragen!" & Chr(10) & _
Chr(10) & "Sie müssen zuerst auf Vorbereiten klicken"
Exit
Sub ' Und ab hier möchte ich gerne, das das Makro gar nicht mehr
weiterarbeitet
End If
'Und diese Makros sollen dann gar nicht mehr anlaufen, wenn Zelle A3 im
besagten Blatt leer ist aber wenn nicht leer dann laufen
Call Zwoelf
Call Vierzehn
End Sub
Kann mir jemand helfen, wie ich eine Afrage mache auf ein ausgeblendetes Blatt
und wenn dort die Zelle A3 nicht gefüllt ist, das Blatt auch ausgeblendet
bleibt und der Rest des Makro nicht mehr weiterläuft, aber wenn Zelle A4 gefüllt, dann die weiteren Makros laufen?
Puh, ich hoffe das ich das verständlich erklärt habe :-)
Danke für Eure Hilfe
Gruß
Claudia