Office: Überprüfen ob Tabellenblatt existiert

GregMichel · 6. November 2013

Hallo Leute,

eine kleine Frage. In meinem bisherigen Makro kopiere ich Werte aus einer Datei namens Projektübersicht in meine aktuelle Datei. Die Tabellenblätter der Datei heißen immer so wie die aktuelle Projektnummer. Bisher hatte ich das Makro so aufgebaut, dass er bei dem Standartwert PXXXXX die Fehlermeldung "Projektnummer nicht gefunden!" ausgibt. Dies will ich so erweitern, dass diese Fehlermeldung auch kommt, wenn der Benutzer eine Projektnummer verwendet, die aktuell nicht vergeben ist (also kein Tabellenblatt mit diesem Namen in der Datei Projektübersicht vorhanden ist).
Jemand eine Idee?

Code:

Set wsZiel = ActiveWorkbook.ActiveSheet
loletzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
For Loi = 7 To loletzte Step 18
Projektname = wsZiel.Cells(Loi, 2)
If Projektname = "PXXXXX" Then
wsZiel.Cells(Loi + 14, 4).Value = "Projektnummer nicht gefunden!"
Else
Set wsQuelle = Workbooks.Open(Filename:="D:\Dateien\Projektübersicht.xlsm").Worksheets(Projektname)
Set pb = wsQuelle.Range("a1:as20").Find(What:=Personalbedarf, LookAt:=xlWhole)
Jahr = wsZiel.Cells(Loi + 12, 4)
Monat = wsZiel.Cells(Loi + 13, 4)
Set Bereich = wsQuelle.Range("A1:A20")
For Each Zelle In Bereich
If Zelle.Value = Jahr _
And Zelle.Offset(0, 1) = Monat Then
wsZiel.Cells(Loi + 14, 4).Value = Zelle.Offset(0, pb.Column - 1).Value
End If
Next
End If
Next Loi
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Beverly · 8. November 2013

Hi,

auf dem folgenden Weg kann man prüfen, ob ein bestimmtes Tabellenblatt vorhanden ist bzw. nicht vorhanden ist:

Code:

Sub TabVorhanden()
Dim strTabelle As String
strTabelle = "Tabelle2"
If IsError(Application.Evaluate("=" & strTabelle & "!A1")) Then _
MsgBox "Tabelle " & strTabelle & " nicht vorhanden"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Überprüfen ob Tabellenblatt existiert

Überprüfen ob Tabellenblatt existiert

Überprüfen ob Tabellenblatt existiert

Überprüfen ob Tabellenblatt existiert - Similar Threads - Überprüfen Tabellenblatt existiert

Teilstring einer Zelle auf Wert aus anderer Zelle überprüfen

Während der Eingabe überprüfen ob Zahl oder Text

Dateien vorab auf Serienbrief überprüfen

Überprüfen ob Tabellenballt mit Namen aus Zelle vorhanden ist

1.Excel soll 100 Excel-Tabellen überprüfen

Datum & Uhrzeit Überprüfung

Mehrere Zellen auf Inhalt überprüfen