Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1432to1436
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob Tabellenblatt vorhanden

Prüfen ob Tabellenblatt vorhanden
21.06.2015 11:17:54
Friedhelm
Hallo zusammen,
ich möchte gerne in meinem Projekt ein Tabellenblatt "T1" einfügen und wieder löschen.
Um Fehlermeldungen zu vermeiden möchte ich vorher prüfen ob das Tb "T1" vorhanden ist.
Ich hab es versucht mit:
With ActiveWorkbook
If .Sheets("T1") Then
.Sheets.Add
End If
End With
das führt aber zur Fehlermeldung.
Wie schreibe ich es richtig zum Einfügen mit Prüfung ob vorhanden und zur Löschung mit Prüfung ob vorhanden.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Tabellenblatt vorhanden
21.06.2015 11:25:23
Beverly
Hi,
du kannst entweder in einer Schleife über alle Tabellenblätter laufen und sie auf ihren Namen prüfen, oder auf diesem Weg:
    If IsError(Evaluate("T1!A1")) Then
Worksheets.Add
Worksheets(Worksheets.Count).Name = "T1"
Else
MsgBox "T1 schon vorhanden"
End If

Bedingung ist allerdings, dass in der auszuwertenden Zelle A1 keine Formel steht, die einen Fehlerwert ausgibt.

Anzeige
AW: Prüfen ob Tabellenblatt vorhanden
21.06.2015 11:49:07
Friedhelm
Hallo Karin,
vielen Dank, ich glaube mit dem Bsp kann ich was anfangen, da die Zelle A1 keine Formel hat.
Die gleiche Prüfung mit dem Löschen dieser Seite, nicht nur der Zelle A1, brauche ich noch. Vielleicht kannst du mir dieses auch noch als Bsp zeigen. ich teste es dann heute nachmittag.
Vielen Dank
Friedhelm

AW: Prüfen ob Tabellenblatt vorhanden
21.06.2015 12:03:36
Beverly
Hi Friedhelm,
das geht dann genau anders herum:
    If Not IsError(Evaluate("T1!A1")) Then
Application.DisplayAlerts = False
Worksheets("T1").Delete
Application.DisplayAlerts = True
Else
MsgBox "T1 nicht mehr vorhanden"
End If

Anzeige
AW: Prüfen ob Tabellenblatt vorhanden
21.06.2015 17:52:25
Friedhelm
Hallo Karin,
vielen Dank, ich habe es erfolgreich getestet.
Danke auch an Sepp und AlexG für eure Mühe
Schönen Gruß
Friedhelm

AW: Prüfen ob Tabellenblatt vorhanden
21.06.2015 12:02:31
Sepp
Hallo Friedhelm,
das geht z. B. so.
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub einfuegen()
  
  If Not SheetExist("T1") Then
    Sheets.Add(after:=Sheets(Sheets.Count)).Name = "T1"
  End If
  
End Sub


Sub loeschen()
  
  If SheetExist("T1") Then
    Application.DisplayAlerts = False
    Sheets("T1").Delete
    Application.DisplayAlerts = True
  End If
  
End Sub


Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean
  Dim wks As Worksheet
  On Error GoTo ERRORHANDLER
  If Wb Is Nothing Then Set Wb = ThisWorkbook
  For Each wks In Wb.Worksheets
    If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function
  Next
  ERRORHANDLER:
  SheetExist = False
End Function

Gruß Sepp

Anzeige

17 Forumthreads zu ähnlichen Themen

perVBA prüfen, ob Internetadresse vorhanden
Rüdiger

Liebe Fachleute für InternetExplorer aus Excel-VBA heraus!
ich habe Excelsheet mit Adressen u.a. auch URLs (und Mailadr.)
ich möchte prüfen, ob die in meiner Liste (eine Spalte) erfassten URLs seit der letzten Mailingsaktion vor einem Jahr noch erreichbar sind:
(In einem weiteren Sc...
19.10.2009 13:06:55
Thread-ID: 1110593
6 Beiträge
Anzeige
Wie Prüfen ob Worksheet vorhanden
Holger

Hallo,
folgendes Problem.
Ich öffne aus einer Excel Datei eine andere Excel Datei. Hier muss ich prüfen,
ob es zwei WorkSheets gibt.
01 SH1 TH1
02 SH1 TH2
Wenn es einen von beiden nicht gibt, soll eine Fehlermeldung erscheinen.
Ich habe das hier mal programmiert aber...
28.06.2010 14:48:02
Thread-ID: 1164340
4 Beiträge
mit VBA Prüfen ob ein Wert in Spalte A existiert
marspoki

Hallo,
gibt es in VBA die Möglichkeit in VBA zu prüfen, ob in Spalte A10:A100 der Wert "x" exsistiert?
Vielleicht gib es auch eine Möglichkeit, rauszubekommen wie oft der Wert vorhanden ist?
Vielen Dank im Vorraus
Mars
18.03.2011 10:54:48
Thread-ID: 1206302
4 Beiträge
Anzeige
prüfen ob Tabellenblatt vorhanden und daten überne
Gehrmann

Guten Abend liebe Excelgemeinde
Suche nun sch 1 Stunde im wirklich gutem Archiv, finde aber keine Lösung für mein Problem da ich es möglichst ohne VBA realisieren möchte.
Jeden Monat erstelle ich eine neue Datei wo ich jeden Tag ein neues Tabellenblatt mit entsprechenden Datum dazufüge....
16.03.2013 19:47:59
Thread-ID: 1304365
4 Beiträge
Prüfen ob bestimmtes Tabellenblatt vorhanden
Markus

Folgendes Problem ...
ich möchte in einer Mappe2 auf eine Zelle aus einer Tabelle"XX" aus Mappe1 verweisen.
Die Tabelle"XX" ist aber unter Umständen nicht vorhanden.
Bei normalem Verweis erscheint dann ja immer #Bezug
um das zu vermeiden, möchte ich vorher prüfen ob es diese Ta...
05.11.2014 07:00:28
Thread-ID: 1390516
10 Beiträge
Prüfen ob Sheet vorhanden und wenn ja löschen
Elias

Hallo zusammen
Ich habe einen Updater. An und für sich funktioniert dieser. Jedoch muss ich jetzt noch eine zusätzliche Funktion einbauen, die mir immer einen Fehler anzeigt.
Aber zuerst mal hier der Code:
------------------------------------------------- Private Sub CommandButton1_...
22.01.2015 17:54:23
Thread-ID: 1404505
4 Beiträge
Überprüfen ob Worksheet vorhanden
Nermin

Hallo liebe Community,
ich hatte schonmal eine Frage gehabt zu diesem Thema, da wurde mir wunderbar geholfen. Jetzt ists ein bisschen abgeändert und ich habe irgendwie das Gefühl ich habe einen Denkfehler und seh den Wald vor lauter Bäumen nicht ;).
Geht um folgendes:
Der Code soll...
03.08.2016 11:54:30
Thread-ID: 1507552
8 Beiträge
VBA Tabellen erstellen und überprüfen ob vorhanden
Donald

Servus!
Nach anfänglichem Haareraufen komme ich nun zu euch, da das sicher ein Kinderspiel für euch ist. Folgende beiden Codes habe ich (teils glaube ich sogar hier aus dem Forum von Hajo_Zi anno 2012):
Sub NewSheets() For I = 1 To 12 Dim wsNew As Worksheet Set wsNew = Worksheets.Add Wi...
07.09.2016 12:56:27
Thread-ID: 1513332
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
3
3
7
3
9
3
7
4
13
2
4
2
5
4
5