mit dem u.a Code speichere ich eine einzelnes Arbeitsblatt in eine neue xls. auf dem Desktop des Users funktioniert auch tadellos.
Einzig was ich nicht schaffe ist, den Dateinamen so zu generieren wie ich möchte. Nr_ Name_Datum
Die Variablen hab ich auch definiert, funkt aber nicht.
Könnt Ihr vielleicht ein Blick darauf werfen?
vielen Dank
lg
fatih
Hier der Code:
Sub Bild9_BeiKlick()
Dim Vermittlernr As String
Dim Name As String
Dim Pfad As String
Vermittlernr = Cells(14, 7)
Name = Cells(17, 7)
Pfad = Environ("Userprofile") & "\Desktop"
Worksheets("Auswertung").Copy
With ActiveWorkbook
.Worksheets("Auswertung").UsedRange.Value = .Worksheets("Auswertung").UsedRange.Value
.SaveAs Filename:=Pfad & Application.PathSeparator _
& "Vermittlernr " & "Name " & Format(Date, "YYYY-MM-DD")
.Close
End With
End Sub