Laufzeitfehler 1004
30.07.2015 10:16:43
Tommy241
Hallo
Bekomme bei folgendem Script einen Laufzeitfehler:
Laufzeitfehler 1004
Die Methode "saveas" für das objekt "_Workbook" ist fehlgeschlagen.
Wo ist der Fehler?
Sub Schaltfläche2_Klicken()
Dim strPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.ButtonName = "Speichern unter"
.InitialFileName = "D:\"
.Title = "Ordner auswählen"
If .Show = -1 Then strPath = .SelectedItems(1)
If Len(strPath) Then
With ActiveWorkbook
strPath = strPath & "\" & .Sheets("Messergebnisse").Range("G6").Text & ".xls"
.SaveAs Filename:=strPath, FileFormat:=xlWorkbookNormal
End With
End If
End With
End Sub