den nachfolgenden Code nutze ich in einer Excel-Mappe und er bewirkt, dass ich ein generiertes Tabellenblatt innerhalb der Arbeitsmappe gespeichert bekomme. Wie müßte ich den Code verändern, wenn ich das Tabellenblatt innerhalb des Ordners, in dem sich auch die Arbeitsmappe befindet, abgespeichert haben möchte? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Sub TabelleKopieren()
Dim objSh As Worksheet
Dim intCnt As Integer
For Each objSh In ThisWorkbook.Worksheets
If objSh.Name Like "Daten *" Then intCnt = intCnt + 1
Next
Sheets("Daten").Copy After:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = "Daten" & CStr(intCnt + 1) & Format(Date, "_DD.MM.YY")
.OLEObjects("CommandButton1").Delete
.OLEObjects("CommandButton2").Delete
End With
End Sub