Laufzeitfehler bei Sheet kopieren
15.09.2004 20:35:57
Erich
ich suche eine Lösung, die verhindert, dass ein Sheet mit Strg+Ziehen
nicht dupliziert werden kann (Drag und Drop ausschalten von Herbers CD
hat nicht gereicht). Nun hätte ich eine Lösung, die aber noch den
Fehlerhinweis bringt:
Laufzeitfehler '-2147221080(800401a8)':
Automatisierungsfehler
Hier der Code in Tabelle1 (=Bezeichnung Start)
Private Sub Worksheet_Activate()
If ActiveSheet.Name <> "Start" Then
MsgBox "Wir haben ein Problem"
Application.DisplayAlerts = False
ActiveSheet.Delete
End If
Application.DisplayAlerts = True
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige