Office: Tabellenblatt wenn vorhanden überschreiben

jimmcguinn · 15. Oktober 2012

Hallo office forum

mit einem Makro durchsuche ich Ordner nach Excel-Dateien und füge die gewünschten als Tabellenblatt zu der ausführenden Datei hinzu.
Zuvor wird das Tabellenblatt nach dem Ordner benannt, in dem sie gefunden wurden.

Wenn ein Tabellenblatt jedoch bereits mit gleichen Namen vorhanden ist, erscheint natürlich eine Fehlermeldung.

Wie muss ich den folgenden Teil des Codes verändern, damit das bestehende Tabellenblatt überschrieben wird? Oder eben das eine zuvor gelöscht wird, damit das andere hinzugefügt werden kann?

Code:

Sub such_mich_1(Pfad As String, Dateiname As String)
Dim wbdatei As Workbook
Dim oBlatt As Worksheet
Dim BrowseDir As Object, wb As Workbook
Dim strVerzeichnis As String, strSearch As String, strName As String, i As Integer
'MsgBox (Pfad & Dateiname)

'Ordner und Unterordner durchsuchen

Set BrowseDir = CreateObject("Shell.Application").BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
strVerzeichnis = BrowseDir.Items().Item().Path
If strVerzeichnis = "" Then Exit Sub
Do

'Die Suchkriterien werden eingegeben. Die ersten vier Ziffern sind entscheident
strSearch = Left(ThisWorkbook.Name, 4)
Loop While strSearch = "" Or Len(strSearch) 4

'Ordner mit den Namen 1 bis 12 werden durchsucht

For i = 1 To 12

'Die Tabellenblätter werden hinzugefügt und benannt
strName = Dir(strVerzeichnis & "\" & Format(i, "00") & "\" & strSearch & "*.xls")
Do While strName > ""
If strName ThisWorkbook.Name Then
Set wb = GetObject(strVerzeichnis & "\" & Format(i, "00") & "\" & strName)
wb.Sheets(1).Copy Before:=ActiveWorkbook.Sheets(1)
ActiveWorkbook.Sheets(1).Name = Format(i, "00")
wb.Close savechanges:=False
Set wb = Nothing
End If
strName = Dir
Loop
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Viele Dank!

:)

Zai-Ba · 17. Oktober 2012

Du könntest den Fehler in diesem speziellen Fall gezielt ignorieren:
Code:

on error resume next
wb.Worksheets(Ordnername).delete
on error goto 0
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann löscht er das Blatt wenn es vorhanden ist, ansonsten bringt er keinen Fehler.

jimmcguinn · 17. Oktober 2012

Danke für deine Antwort Zai-Ba,

kannst du mir auch sagen an welcher Stelle ich das genau einfügen müsste in den obigen Code?

Hajo_Zi · 17. Oktober 2012

nach der Zeile Sub.

Office: Tabellenblatt wenn vorhanden überschreiben

Tabellenblatt wenn vorhanden überschreiben

Tabellenblatt wenn vorhanden überschreiben

Tabellenblatt wenn vorhanden überschreiben

Tabellenblatt wenn vorhanden überschreiben - Similar Threads - Tabellenblatt vorhanden überschreiben

Arbeitszeiten aus mehreren Tabellenblätter

Zellen in anderes Tabellenblatt kopieren, wenn Zahl vorhanden

Abfrage ob Tabellenblatt-Name bereits vorhanden

VBA Prüfung ob Tabellenblatt vorhanden

Makro: vorhandenes Tabellenblatt kopieren und bennennen nach Wert in Zelle

Liste erstellen mit Daten aus vorhandenem Tabellenblatt

Abfrage ob Tabellenblatt vorhanden ist