Ich muss in einem Makro prüfen, ob ein Tabellenblatt bereits vorhanden ist.
In der gleichen Mappe gibt es auch ein verstecktes Tabellenblatt
Für die Prüfung auf Vorhandensein gibt es folgenden Code:
strTBName = "TextImport" ' zum Tabellenblatt-Namen hinzufügen
intAnzahl = ThisWorkbook.Sheets.Count ' zählen der Tabellenblätter
' prüfen, ob das Tabellenblatt schon vorhanden ist
For intIndx = 1 To intAnzahl ' alle Tabellenblätter auf doppelte durchsuchen
Worksheets(intIndx).Select ' Tabellenblatt auswählen
strBlattname = ActiveSheet.Name ' Tabellenblatt-Namen holen
If strBlattname = strTBName Then ' Name = neuem Namen?
strLoeschen = MsgBox("Die Datei '" & strTBName & "' besteht bereits." & vbCrLf _
& "Möchten Sie die bestehende Datei ersetzen?", _
vbQuestion + vbYesNo, "soll die Datei gelöscht werden ?")
If strLoeschen = "6" Then ' Ja angeklickt?
ActiveWindow.SelectedSheets.Delete ' Tabellenblatt löschen
Exit For ' For/Next verlassen
Else ' sonst
Exit Sub ' SubRoutine verlassen
End If
End If
Next intIndx
Beim Durchlaufen des Codes gibt es den Laufzeitfehler 1004 ‚Die Select-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.’
Wenn ich das ausgeblendete Tabellenblatt jedoch vor dem Code wieder einblende und hinterher wieder ausblende, läuft alles.
Gibt noch eine andere Möglichkeit der Blattprüfung als durch ‚alles ein-/ausblenden’ den Laufzeitfehler zu umgehen?
Für „sachdienliche“ Hinweise vielen Dank im voraus.
Gruß, Peter