schon fast Wochenende. Leider bin ich grad bzw. heute morgen noch auf einen Fehler in einem meiner Makros gestossen. Hoffe es kann mir jemand helfen damit das Teil endlich ordentlich durchläuft. Der Fehler ("Type Missmatch") kommt immer wenn ich bei der MsgBox auf "Save drücke. DAnke.
Grüße Sebatian
Sub SaveFolderFile()
Dim SaveFile As String
Dim dName As String
SaveFile = "SIP_ITS_Nomi_" & Sheets(1).Range("B4") & "_" & Sheets(1).Range("K17") & "_" & Sheets(1).Range("K15") & ".xls"
dName = Application.GetSaveAsFilename(SaveFile, , , "Speichern unter...")
If dName = False Then
Exit Sub
Else
ActiveWorkbook.SaveAs dName
End If
End Sub