ich habe im Archiv ein absolut passendes makro gefunden.
das neue tabellenblatt " Übergabe"sollte jedoch im CSV Format gespeichert werden.
kann da bitte jemand mal draufschauen und einen tip geben
vielen Dank.
Private Sub CommandButton6_Click()
Dim wks As Worksheet
Dim nme As Name
Dim iNme As Integer
Dim sNme As String
For Each nme In ThisWorkbook.Names
sNme = Right(nme.Name, 3)
If Len(sNme) = 3 And IsNumeric(sNme) Then
If CInt(sNme) > iNme Then
iNme = CInt(sNme)
End If
End If
Next nme
With ThisWorkbook
.Worksheets("Übergabe").Copy after:=.Worksheets(.Worksheets.Count)
End With
ActiveSheet.Name = "A" & Format(iNme + 1, "000")
Set nme = ActiveWorkbook.Names.Add( _
Name:="WKS" & Format(iNme + 1, "000"), _
RefersTo:=Range("A1"), _
Visible:=False)
End Sub