Datum über Variable in Dateinamen

Hallo zusammen,
... ich komm nicht mehr weiter.
Bis vor kurzem hat das Makro funktioniert und jetzt tut es das nur noch nach Lust und Laune...
Mit der Hilfe aus dem Forum konnte ich einen Teil meines Codes vervollständigen, bzw. richtig zusammenstellen.
Der Anwender ruft eine xltm auf, die später als xlsm gespeichert werden soll.
Der neue Dateiname setzt sich aus dem Datum aus F34, dem Nach- & Vornamen zusammen.

'#  Prozedur Speichern                          #
'Variablen festlegen
'Datum
Dim Datum
'Nachname
Dim Name
'Vorname
Dim Vorname
'Speicherpfad
Dim Speicherpfad
'Dateiname
Dim Dateiname
'Zähler
Dim Zähler
'Datei
Dim Datei
'    WS1.Range("B34").Copy
'    WS1.Range("F34").Select
'    ActiveSheet.Paste
'    WS1.Range("F34").NumberFormat = "YY-MM-DD"
'Variablen bestimmen
'Datum
Datum = WS1.Range("F34").Text
'Nachname
Name = WS1.Range("B7").Value
'Vorname
Vorname = WS1.Range("B9").Value
'Speicherpfad
Speicherpfad = "Dateiname"
'Dateiname
Dateinamezähler = Datum & "_" & Name & " " & Vorname & "*" & ".xlsx"
Dateiname = Datum & "_" & Name & " " & Vorname
'Zähler
Zähler = 1
'Datei
Datei = Dir(Speicherpfad & Dateinamezähler)
Do Until Datei = ""
Zähler = Zähler + 1
Datei = Dir()
Loop
Sheets.Copy
'Kopie von Datei als xlsx speichern
Application.DisplayAlerts = False
If Zähler = 0 Then
ActiveWorkbook.SaveAs Filename:=Speicherpfad & Dateiname & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook
ActiveWorkbook.Close
Else
ActiveWorkbook.SaveAs Filename:=Speicherpfad & Dateiname & "_" & Zähler & ".xlsx",  _
FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
End If
Application.DisplayAlerts = True