Makro abbrechen aufgrund aufgerufenem Sub
28.12.2005 17:17:22
Peter
In meinem Workbook habe ich Sheets, die nicht angewählt sein dürfen, wenn ich ein Makro aufrufe.
Dazu habe ich den
Sub check
geschrieben. Wenn ein "verbotenes" Sheet aktiv ist, wird der Code mit "then exit sub" beendet.
Da ich jedoch diesen
Sub aus anderen Makros aufrufe, hat dieser Code keine Auswirkung, da zwar der Makro, aus dem der
Sub Check aufgerufen wurde, weiterläuft.
Wie kann auch der eigentliche Makro gestoppt werden? (Ich habe einen separaten
Sub geschrieben, weil ich diesen aus verschiedenen Makros am Anfang aufrufen will).
Danke für Feedback.
Peter
Sub check()
Dim strActiveSheet As String
strActiveSheet = ActiveSheet.Name
Application.Goto reference:=Range("Kein_Makro") 'Sheets, aus denen der
'Makro nicht laufen darf
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = strActiveSheet Then Exit Sub
Loop
End Sub