und danke @ Herby für die Hilfe und diesen Code!
Wie kann ich da jetzt einfügen das die Vorlage Auswahl kopiert wird und in "Auswahl und Datum oder lfd Nummer" genannt wird! und Als letztes Sheet angezeigt wird?
Also das jedes mal ein eigenes eindeutiges Auswahlblatt erzeugt wird?
Sub Auswahlt()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = Worksheets("Auswertung")
Set wks2 = Worksheets("Auswahl")
Dim zeile As Long, zz As Long, letzte As Long, letzteB As Long
Dim strFormel As String, intSpalte As Integer
Application.ScreenUpdating = False
For zeile = 6 To 31
If wks1.Cells(zeile, 17).Value = True Then
If wks2.Range("B65536").End(xlUp).Row
Vielen Dank