Hallo,  bei Herber muss ich noch reinschauen.

Ich habe so geändert das copy in ein neues Blatt kommen.

Dieses wird dann korrekt bearbeitet, und das Blatt z.B D2 wieder gelöscht.

Alles supi - nur das die Exceltabelle auch umbennant wird.
So komm ich von einem Problem zu nächsten - aber auch dem End Sub immer näher

Auf jeden Fall vielen Dank für deine Hilfe

Das habe ich bislang geändert:

'############ Zellbereich Bearbeiten

    Application.ActiveSheet.Copy After:=Worksheets("Testseite") 'Kopiert in neues Blatt CSV-Transpot
    Application.ActiveSheet.Cells.Clear                      'löscht alle Zellen in neuem Blatt
    Application.ActiveSheet.Cells.Formats    '????und nach A1?? 'Blatt Formatierung. An sich unnötig
                               
    'MsgBox "3. " & ActiveSheet.Name
    'MsgBox WorkRng.Address  '+++ zeigt Zellauswahl an +++
    WorkRng.Copy Application.ActiveSheet.Range("A1") 'Kopiert "Bereich/Range" ab A1 in neuem Blatt
    Application.DisplayAlerts = False   'WarnMeldung wenn überschreiben ? AUS
    
 ' ok: Bereich ist kopiert in neues Blatt   -nun muss das Blatt als Workbook gespeichert werden und _
                                         das Blatt gelöscht werden.
                                  
''     ActiveSheet.Move
''     ActiveWorkbook.SaveAs Filename:="CSV-Export.csv", FileFormat:=xlCSV
''     ActiveWindow.Close

    Application.ActiveSheet.SaveAs Filename:=ThisWorkbook.Path & "\" & CSVName, FileFormat:=xlCSV, _
         CreateBackup:=False, Local:=True    'Speichert im Pfad der Exceldatei
    
    'Application.ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & CSVName, FileFormat:=xlCSV, _
        CreateBackup:=False, Local:=True    'Speichert im Pfad der Exceldatei
    Application.DisplayAlerts = False    'WarnMeldung überschreiben ? Ein
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    ' Sheets(Worksheetx).Select
    
'##################
    
    Call MessageBox_zeitgesteuert(CSVName, lngDauer, AzBuecher)
Fehler:
End Sub