Sheetfound = False
For Each w In Worksheets
If w.Name = Sheetname Then
Sheetfound = True
End If
Next
'Wenn vorhanden, aktivieren, sonst Neues anlegen
If Sheetfound Then
Worksheets(Sheetname).Activate
Else
Sheets.Add
ActiveSheet.Name = Sheetname
End If
Ab hier kann man dann per PASTESPECIAL den Inhalt einfügen..
z.B. ActiveSheet.Range("A1:XX:XX").PasteSpecial Paste:=xlPasteValues
ist ein Code von micha, der guckt ob die Tabelle vorhanden ist, sonst wird sie erstellt.
Leider erkennt er nicht, wenn die Tabelle vorhanden ist und versucht sie neu zu erstellen und es tritt ein fehler auf.
Sieht wer nen Fehler, ich hab keinen gefunden.
Thx Basti