AdsIn aktivieren

Sub Akte_anlegen()
Dim n As String, n1 As String, n2 As String, n3 As String, n4 As String
n = Range("F8").Value
n1 = Range("H8").Value
n2 = Range("M8").Value
n3 = Range("L6").Value
n4 = Range("L1").Value
ActiveWorkbook.SaveAs Filename:=n4 & "LB-" & n & " - " & n1 & n3 & n2 & ".xls"  '
End Sub