Office: (Office 2013) Blatt löschen, wenn vorhanden

Lilalauneandreas · 28. Oktober 2016

Hallo,

mal wieder eine Frage zum löschen. Mit dem Makrorecorder wird mir das nix.

Wenn in meiner Ablaufkette folgendes Makro abläuft, soll nach deren Ausführung die "Tabelle 1" gelöscht werden, und zu einer anderen Tabelle mit dem Namen "Bearbeiten" gesprungen werden.

Das löschen der Tabelle1 soll aber nur ausgeführt werden , wenn Tabelle "Kopie Original" besteht. Wenn nicht soll nix passieren.

Wer kann mir beim Code helfen?

Code Erstellen Blatt Sicherheitskopie

Code:

Option Explicit

Sub KopiereBlatt 'Tabelle1 als Sicherheitskopie Kopie Original speichern

Dim var
For Each var In ThisWorkbook.Sheets
If var.Name = "Kopie Original" Then
If MsgBox("Das Blatt 'Kopie Original' gibt es schon." & vbCrLf _
& "Soll ein neues Blatt erstellt werden?", vbQuestion + vbYesNo, "Sicherungskopie bereits vorhanden") = vbYes Then
Sheets("Tabelle1").Copy before:=Sheets(Worksheets.Count)
On Error Resume Next
ActiveSheet.Name = "Kopie " & Date
If Err.Description "" Then
MsgBox "Kopie " & Date & vbCrLf & Err.Description
Err.Clear
Exit Sub
End If
Else
Exit Sub
End If
End If
Next
Sheets("Tabelle1").Copy before:=Sheets(Worksheets.Count)
ActiveSheet.Name = "Kopie Original"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code Springen:
Code:

Sub GeheZu() 'Tabelle1

Dim i As Integer
Dim TabName As String
Dim gefunden As Boolean

TabName = "Tabelle1"
For i = 1 To Sheets.Count
If Sheets(i).Name = TabName Then
Sheets(TabName).Select
gefunden = True
Exit For
End If
Next i
If Not gefunden Then
MsgBox "Die Tabelle " & Chr(34) & TabName & Chr(34) _
& " existiert nicht in dieser Mappe!", vbCritical + vbOKOnly, _
"Fehler in Zelle C1"
End If

Worksheets("Tabelle1").Activate
ActiveCell.SpecialCells(xlLastCell).Select

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beides geht- brauche nur noch die Anweisung zum Löschen.
würde diese dann mit
Call ...
Call ...
Call ....
nacheinander ablaufen lassen.

Danke für die Hilfe

Andi

:)

Hajo_Zi · 30. Oktober 2016

Hallo Andi,

ich würde mal vermuten das ist der falsche Code. Löschen macht man mit Delete und dies ist nicht enthalten. Oder wie machst Du das?

Lilalauneandreas · 30. Oktober 2016

Hallo Hajo,
ist richtig - Löschen heißt Delete.
Dieser Befehl kann noch nicht auftauchen- da ich die LÖSCH-Funktion noch nicht habe. Laut meiner Frage

Beides geht- brauche nur noch die Anweisung zum Löschen.
würde diese dann mit
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

geht es ja genau darum.

Ich möchte aber da aber nix falschen schreiben-ist mir doch etwas gefährlich- mit dem Löschbefehl.

Also Ich benötige den Befehl zum Löschen der Tabelle 1" wenn die Tabelle "Kopie Original" besteht und möchte nach dem Ausführen in der Tabelle "Bearbeiten" sein.

Besser nochmal gefragt- als alles zerstört.

Danke Andi

Hajo_Zi · 30. Oktober 2016

Hallo Andi,

sehe ich das also richtig, der Code ist nur im Beitrag um ihn größer erscheinen zu lassen. Das ist nicht notwendig.

Code:

Sub Loschen()
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
If WsTabelle.Name = "Kopie Original" Then
Application.DisplayAlerts = False
Worksheets("Tabelle1").Delete
Application.DisplayAlerts = True
End If
Next WsTabelle
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es sollte ja keine Prüfung ob "Tabelle1" vorhanden ist.

Lilalauneandreas · 30. Oktober 2016

Die Löscht ohne Nachfrage des Bestehens der Tabelle "Kopie Original"

Sub Tabelle1Loeschen()
Application.DisplayAlerts = False
Sheets(Array("Tabelle1")).Delete
Application.DisplayAlerts = True
End Sub

LG Andi

Lilalauneandreas · 30. Oktober 2016

Danke Hajo,

der Code sollte nicht größer erscheinen, dachte nur ich sende das mal mit.

Aber nun geht es

Vielen dank

Office: (Office 2013) Blatt löschen, wenn vorhanden

Blatt löschen, wenn vorhanden

Blatt löschen, wenn vorhanden

Blatt löschen, wenn vorhanden

Blatt löschen, wenn vorhanden - Similar Threads - Blatt löschen vorhanden

Einzelnes Blatt aus Arbeitsmappte löschen - Bezüge?

Einfügen, Verschieben oder Löschen von Seitenumbrüchen auf einem Blatt

Blatt löschen verhindern

Blatt lässt sich nicht umbenennen/löschen

EXCEL 2007 Blätter einer Mappe lassen sich nicht löschen, neue hinzufügen geht nicht

Blatt schützen vor Löschen und Umbennen

Leere Blätter löschen