Sub speichern()
Dim n As String
n = Range("B4").Value
ActiveWorkbook.SaveAs Filename:="C:\...\" & n & ".xls" ' Hier dein Pfad
End Sub
in die xlt kopieren
Gruß
Chaos
Sub speichern()
Dim n As String, n1 As String
n = Range("B4").Value
n1 = range("E45").Value
ActiveWorkbook.SaveAs Filename:="C:\...\" & n & " " & n1 & ".xls" ' Hier dein Pfad mit _
Leerzeichen zwischen n und n1
End Sub
Wenn' s ohne Leeziechen sein soll, dann das rauslöschen & " " .
gruß
chaos
Sub Akte_anlegen()
Dim n As String, n1 As String, n2 As String, n3 As String
n = Range("S10").Value
n1 = Range("E71").Value
n2 = Range("Q34").Value
n3 = Range("AF8").Value
ActiveWorkbook.SaveAs Filename:="Y:\Versicherungsakten\" & n & n1 & n2 & n3 & ".xls" '
End Sub