Sicherheitsabfrage funktioniert nicht!
11.07.2003 10:01:13
Chris
ich habe ein Makro, von einem Blatt auf das nächste Blatt zugreifen soll!
Jetzt möchte ich zu diesem Makro noch eine Sicherheitsabfrage machen, d.h. falls ein Blatt nicht geöffnet ist, dann soll das Makro zum nächsten Punkt springen!
Mein leider nicht funktionierendes Makro sieht leider so aus:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Err = 9 Then
GoTo ende
If Target.Address = "$G$3" Then
Sheets("Tabelle3").[g3] = Target
End If
End If
ende:
End Sub
Das Problem hierbei ist, dass er mir wenn das Blatt nicht geöffnet ist, zwar keinen Fehler anzeigt, das Makro aber (auch wenn das Blatt geöffnet ist) nicht mehr ausführt!
Vielleicht hat ja jemand von Euch einen Verbesserungsvorschlag oder vielleicht sogar auch einen neuen Ansatz für mich!
Danke im Voraus für Eure Bemühungen!
Gruß Chris