Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Überprüfen ob Tabellenblatt vorhanden ist

Überprüfen ob Tabellenblatt vorhanden ist
Ingo
Hallo zusammen,
hab folgendes Problem. Ich öffne nacheinander verschiedene Dateien um bestimmte Zellen auszulesen.
Wenn in der geöffneten Datei das Tabellenblatt mit dem Namen "Motor" nicht vorhanden ist sollen die nachfolgenden Schritte nicht bearbeitet werden. Irgendwie klappt das bei mir nicht. Hat jemand eine Idee?
Set wkbInput = Application.Workbooks.Open(strPath & "\" & strFile) 'öffnen der Datei
If wkbInput.Name = "Motor" then 'dieser Code ist falsch. Was müßte ich hier stehen?
....
else
....Datei schließen
endif
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Überprüfen ob Tabellenblatt vorhanden ist
20.04.2010 11:44:29
Matthias
Hallo Ingo,
nimm diese Funktion:

Function Blatt_Existiert(wbk As Workbook, bname As String) As Boolean
Dim ws As Worksheet
For Each ws In wbk.Worksheets
If ws.Name = bname Then
Blatt_Existiert = True
Exit Function
End If
Next ws
End Function
Sub test()
Set wkbInput = Application.Workbooks.Open(strPath & "\" & strFile) 'öffnen der Datei
If Blatt_Existiert(wkbInput, "Motor") Then
Else
'....Datei schließen
End If
End Sub

Gruß Matthias
Anzeige
quick and dirty
20.04.2010 13:03:19
Rudi
Hallo,
on error resume next
set wks=Worksheets("Motor")
on error goto 0
if not wks is nothing then
'mach was
else
'Datei schließen
end if
Gruß
Rudi
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige