Herbers Excel/VBA-Archiv

Arbeitsblatt X & Y per Makro löschen ?

• Arbeitsblatt X & Y per Makro löschen ? von Klaus W. vom 14.08.2004 13:12:51
• AW: Arbeitsblatt X & Y per Makro löschen ? - von Annett am 14.08.2004 13:15:02
  • AW: Arbeitsblatt X & Y per Makro löschen ? - von Niels am 14.08.2004 13:18:57
    • AW: Arbeitsblatt X & Y per Makro löschen ? - von Annett am 14.08.2004 13:22:53
      • AW: Arbeitsblatt X & Y per Makro löschen ? - von Niels am 14.08.2004 13:27:27
        • AW: Arbeitsblatt X & Y per Makro löschen ? - von Annett am 14.08.2004 13:30:18
          • AW: Arbeitsblatt X & Y per Makro löschen ? - von Niels am 14.08.2004 13:33:14
            • AW: Arbeitsblatt X & Y per Makro löschen ? - von Annett am 14.08.2004 13:37:32
              • AW: Arbeitsblatt X & Y per Makro löschen ? - von Klaus W. am 14.08.2004 13:54:06

Betrifft: Arbeitsblatt X & Y per Makro löschen ? von: Klaus W.
Geschrieben am: 14.08.2004 13:12:51

Hallo,

Ich möchte gern ein Button einfügen und diesem ein Makro zuweisen.

Dieses Makro soll immer bestimmte Arbeitsblätter löschen.

Sub Makro1()
    Sheets("Vorbereitung").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Rohdaten").Select
    ActiveWindow.SelectedSheets.Delete
End Sub

Das oben abgebildetet funktioniert auch, nur kommt immer die nervige Sicherheitsabfrage ob man wirklich löschen will.

wie könnte man dies übergehen ?

Danke und VG
Klaus Wiehland


Betrifft: AW: Arbeitsblatt X & Y per Makro löschen ? von: Annett
Geschrieben am: 14.08.2004 13:15:02

Hallo Klaus

Sub Makro1()
    Application.EnableEvents = False
    Sheets("Vorbereitung").Delete
    Sheets("Rohdaten").Delete
    Application.EnableEvents = True
End Sub

Gruß Annett




Betrifft: AW: Arbeitsblatt X & Y per Makro löschen ? von: Niels
Geschrieben am: 14.08.2004 13:18:57

Das haut net hin!

Niels




Betrifft: AW: Arbeitsblatt X & Y per Makro löschen ? von: Annett
Geschrieben am: 14.08.2004 13:22:53

Hallo Niels

Danke für den Hinweis

Sub Delete()
    Application.DisplayAlerts = False
    Sheets("Vorbereitung").Delete
    Sheets("Rohdaten").Delete
    Application.DisplayAlerts = True
End Sub

Gruß Annett




Betrifft: AW: Arbeitsblatt X & Y per Makro löschen ? von: Niels
Geschrieben am: 14.08.2004 13:27:27

Da fehlt aber noch eine Fehlerbehandlung falls die Blätter net da sind oder die
Mappe nur die beiden Blätter enthält. Der Frager hat kaum Ahnung von VBA.

Niels




Betrifft: AW: Arbeitsblatt X & Y per Makro löschen ? von: Annett
Geschrieben am: 14.08.2004 13:30:18

Hallo Niels

man könnte sonst was noch einbauen. Aber Ich halte mich da an die Aufgabe

"Das oben abgebildetet funktioniert auch, nur kommt immer die nervige Sicherheitsabfrage ob man wirklich löschen will."

Gruß Annett




Betrifft: AW: Arbeitsblatt X & Y per Makro löschen ? von: Niels
Geschrieben am: 14.08.2004 13:33:14

Und gerade um diese nervige Abfrage gings ja. Du kannst einem Anfänger in Sachen VBA keine Antwort präsentieren, bei dem ihm u.U. Fehlermeldungen um die Ohren fliegen. Dann halt dich besser zurück.

Niels




Betrifft: AW: Arbeitsblatt X & Y per Makro löschen ? von: Annett
Geschrieben am: 14.08.2004 13:37:32

Hallo Niels

wor beantworten hier alle Fragen kostenlos. Möchte er eine 100% Lösung für alle eventualitäten, dann soll er sich dafür eine Firma suchen. Oder Du schreibst ihm den gesamten Code. Vergesse aber die sonstigen Abfragen nicht

Gruß Annett




Betrifft: AW: Arbeitsblatt X & Y per Makro löschen ? von: Klaus W.
Geschrieben am: 14.08.2004 13:54:06

Hey,

der Code funzt einwandfrei! Supervielen Dank !!!

Und die beiden Blätter sind immer da und sollte doch mal bei einer datei ein Fehlermeldung kommen, dann wird es bei der einen Datei wieder per Hand gemacht ;).

Ist doch kein Grund sich hier rumzuzoffen !

Danke nochmal :))

MFG
Klaus

Beiträge aus den Excel-Beispielen zum Thema "Arbeitsblatt X & Y per Makro löschen ?"