Folgendes Modul entspricht meinen Erwartungen- jedoch fehlt noch der Befehl Kopieren.
Nach dem Ausführen sollte aber die "Tabelle1" Aktiv bleiben.
Kann wer Nachhilfe geben?
Sub Kopie_Tabelle1()
'** neues Blatt Anlegen
Dim blatt As Object
Dim BlattName As String
Dim bloFlg As Boolean
'** Blattname festlegen
BlattName = "Originalkopie"
'** Prüfen, ob das Blatt, welches eingefügt werden soll bereits vorhanden ist
'** Nur einfügen, wenn Blatt noch nicht vorhanden ist
For Each blatt In Sheets
If blatt.Name = BlattName Then bolflg = True
Next blatt
'** Blatt nur einfügen, wenn noch nicht vorhanden
If bolflg = False Then
With ThisWorkbook
.Sheets.Add After:=Sheets(Worksheets.Count)
.ActiveSheet.Name = "Originalkopie"
End With
End If
End Sub