Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Arbeitsblatt löschen wenn vorhanden

Arbeitsblatt löschen wenn vorhanden
11.02.2018 08:38:39
Bernd
Hallo,
ich arbeite gerade an einer Auswertungstabelle. Bei der Erstellung hat es sich ergeben, dass es sinnvoll ist, die Arbeitsblätter teilweise immer neu zu erstellen.
Es soll wie folgt vorgegangen werden:
Es soll immer geprüft werden, ob die Arbeitsblätter "Temp" und "01Verprobung" schon vorhanden sind.
Wenn sie vorhanden werden sind, sollen sie gelöscht werden und anschließend und neu erstellt werden.
Wenn sie nicht vorhanden sind sollen sie beide neu angelegt werden
Gruß Bernd

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblatt löschen wenn vorhanden
11.02.2018 08:43:15
Hajo_Zi
Hallo Bernd,
Es gibt also eine Mustervorlage für "Temp" und "01Verprobung"?
Oder soll es nur ein leeres sein?

AW: Arbeitsblatt löschen wenn vorhanden
11.02.2018 08:55:45
Bernd
Hey,
es sollen nur leere Blätter sein.
Gruß Bernd
AW: Arbeitsblatt löschen wenn vorhanden
11.02.2018 09:04:47
Hajo_Zi
Hallo Bernd,
Die namens kannst Du ja anpassen, das dürfte kein Problem, sein.
Option Explicit
Sub TabAuswahl()
Dim BoVorhanden1 As Boolean
Dim BoVorhanden2 As Boolean
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
If WsTabelle.Name = "Tabelle1" Then
BoVorhanden1 = True
ElseIf WsTabelle.Name = "Tabelle3" Then
BoVorhanden2 = True
End If
If BoVorhanden1 And BoVorhanden2 Then
Exit For
End If
Next WsTabelle
Application.DisplayAlerts = False       ' Mitteilungen
If BoVorhanden1 Then
'vorhanden
Worksheets("Tabelle1").Delete
End If
If BoVorhanden2 Then
'vorhanden
Worksheets("Tabelle3").Delete
End If
Application.DisplayAlerts = True       ' Mitteilungen
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Tabelle1"
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Tabelle3"
End Sub

Gruß Hajo
Anzeige
AW: Arbeitsblatt löschen wenn vorhanden
11.02.2018 09:20:26
Bernd
Hey,
einfach prima.
Schönes Rest-Wochenende noch.
Gruß Bernd
AW: Arbeitsblatt löschen wenn vorhanden
11.02.2018 17:02:13
Herbert
Hallo Hajo,
ich habe beim experimentieren mit Deinem Code gesehen, dass es auch mit weniger Aufwand machbar ist. Doch kann ich jetzt nicht sagen, ob Dein Code mit den "Boolean"-Dimensionierungen nicht doch seine Berechtigung hat. Kannst Du mir bitte kurz sagen, ob es eine begründete Notwendigkeit gibt, die "Boolean"-Dimensionierungen zu verwenden, oder ob die kürzere Version auch verwendbar ist?
Dafür vielen Dank im Voraus.
Servus
AW: Arbeitsblatt löschen wenn vorhanden
11.02.2018 17:05:05
Herbert
sorry, und hier noch mein Code:
Sub TabAuswahl()
Dim WsTabelle As Worksheet
Application.DisplayAlerts = False
For Each WsTabelle In Worksheets
If WsTabelle.Name = "Tabelle3" Then
Worksheets("Tabelle3").Delete
ElseIf WsTabelle.Name = "Tabelle4" Then
Worksheets("Tabelle4").Delete
End If
Next WsTabelle
Application.DisplayAlerts = True
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Tabelle3"
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Tabelle4"
End Sub
Servus
Anzeige
AW: noch einer
12.02.2018 08:49:14
hary
Moin
So geht es auch.
Application.DisplayAlerts = False
If Not IsError(Evaluate("Tabelle1!A1")) Then Worksheets("Tabelle1").Delete
If Not IsError(Evaluate("Tabelle3!A1")) Then Worksheets("Tabelle3").Delete
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Tabelle1"
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Tabelle3"
Application.DisplayAlerts = True

gruss hary
AW: noch einer
12.02.2018 09:50:59
Herbert
Hi Hary,
geil das Teil! Klasse!
Servus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige