Überprüfung ob Blatt vorhanden-mit Löschfunktion
19.12.2016 20:07:29
Silke
ich habe mehrere Druck-Buttons, wobei beim Ausführen von diesen immer das "Tabellenblatt1" erstellt wird. Geht wunderbar bis auf...
Es kann vorkommen, das das "Tabellenblatt1" noch vorhanden ist ( vom letzten Druckvorgang). Das Ergebnis ist dann ein Laufzeitfehler und händisches Löschen von Tabellensplittern, die bis zum Abbruch erstellt wurden.
Würde das ganze umgehen wollen,- so das beim Ausführen der "Druckbuttons" als erstes eine Überprüfung auf Vorhandensein der "Tabelle1" erfolgt, und wenn Ja- eine Aufforderung zum Löschen dieser- oder Abbrechen erfolgt.
Wie könnte der VBA Code dafür aussehen? Muss dieser in ein allgemeines Modul? Oder könnte ich den gleichen Code allen Druckbuttons voranstellen. Es sind 8 Stück.
Hier mal ein Druckbutton
Sub Erstelle_58()
Application.ScreenUpdating = False
Sheets("Zweierblatt").Copy Before:=Sheets(1)
ActiveSheet.Name = "Tabelle1"
Sheets("Drucken").Range("A10:Q21").Copy Sheets("Tabelle1").Range("A9")
Sheets("Drucken").Range("A4:L8").Copy Sheets("Tabelle1").Range("A3")
Sheets("Drucken").Range("A4:L8").Copy Sheets("Tabelle1").Range("A59")
Sheets("Bearbeiten").Range("A4:Q33").Copy
Sheets("Tabelle1").Range("A26").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Bearbeiten").Range("A34:Q62").Copy
Sheets("Tabelle1").Range("A69").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Drucken").Range("A25:Q39").Copy Sheets("Tabelle1").Range("A100")
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Danke für die Hilfe.
Grüße Silke