Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Laufzeitfehler bei Sheet kopieren

Betrifft: Laufzeitfehler bei Sheet kopieren von: Erich M.
Geschrieben am: 15.09.2004 20:35:57

Hallo EXCEL-Freunde,

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
  


Betrifft: AW: Laufzeitfehler bei Sheet kopieren von: ypsilon
Geschrieben am: 15.09.2004 20:46:32

hi Erich,
wie würdest du denn reagieren wenn man dir den boden unter den füssen wegzieht ? *grins*
du löschst die tabelle und den code der gerade ausgeführt wird !
in das klassenmodul des workbooks:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "Start" Then
MsgBox "Wir haben ein Problem"
    Application.DisplayAlerts = False
ActiveSheet.Delete
 Application.DisplayAlerts = True
End If
End Sub


cu Micha


  


Betrifft: AW: Laufzeitfehler bei Sheet kopieren von: Erich M.
Geschrieben am: 15.09.2004 21:46:53

Hallo Micha,

besten Dank - aber bei dieser Variante habe ich das Problem, dass natürlich
alle Sheets gelöscht werden, die ich aktiviere, weil diese nicht "Start" heissen.
Ich will das aber nur bei Start-Sheet.

Noch eine Idee?

mfg
Erich


  


Betrifft: AW: Laufzeitfehler bei Sheet kopieren von: Udo
Geschrieben am: 15.09.2004 21:42:58

Schütz die Mappe einfach.

Udo


  


Betrifft: AW: Laufzeitfehler bei Sheet kopieren von: Erich M.
Geschrieben am: 15.09.2004 21:48:00

Hallo Udo,

danke - aber wenn ich die Mappe schütze, bin ich wieder zu unbeweglich.

mfg
Erich


  


Betrifft: AW: Laufzeitfehler bei Sheet kopieren von: Udo
Geschrieben am: 15.09.2004 22:00:47

Ist nicht ganz klar, willst du das bei allen Blättern verhindern oder nur bei einem bestimmten?

Udo


  


Betrifft: ....doch noch gelöst! von: Erich M.
Geschrieben am: 15.09.2004 21:59:18

Hier die Lösung fürs Archiv:
weglassen: "Application.DisplayAlerts = True"
Nach löschen des Blattes keine Anzeige mehr erforderlich / sinnvoll!!!!
(alles irgendwie logisch)


 

Beiträge aus den Excel-Beispielen zum Thema "Laufzeitfehler bei Sheet kopieren"