Pfad und Dateiname aus Zellen, die Ergebnisse aus Formeln sind

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Pfad und Dateiname aus Zellen, die Ergebnisse aus Formeln sind

    Hallo zusammen,

    mit folgendem Code möchte ich unter anderem ein Tabellenblatt als neue Arbeitsmappe speichern. Der Speicherpfad ist variabel und stammt aus berechneten Zellen, wobei diese Inhalte (Ordner + DatName) teilweise aus formelbasierten Berechnungen stammen.


    Leider bringt mir excel in Codezeile 51 den "Laufzeitfehler 1004: Die Methode 'SaveAs' für das Objekt '_Workbook' ist fehlgeschlagen". Ich gehe davon aus, dass ich irgendwo einen einfachen "Schusselfehler" drin habe, aber Ich finde den Fehler nicht, weiß jemand Rat?

    Visual Basic-Quellcode

    1. Sub Liste_export()
    3. Dim pfad As String
    4. Dim Ordner As String
    5. Dim DatName As String
    6. Dim sFileSave As String
    7. Dim m As Integer
    8. Dim datumneu As Variant
    10. Range("k1").Copy
    11. Range("K2").Value = _
    12. Replace(Replace(Range("K1").Text, Chr(10), ""), Chr(13), "")
    13. Range("L1").Copy
    14. Range("L2").Value = _
    15. Replace(Replace(Range("L1").Text, Chr(10), ""), Chr(13), "")
    17. Workbooks.Add
    19. With ThisWorkbook.Sheets("Teilnehmerliste")
    20. Rows("7:10").Select
    21. Selection.EntireRow.Hidden = True
    22. .Range("A2:G100").SpecialCells(xlCellTypeVisible).Copy
    23. Rows("7:10").Select
    24. Selection.EntireRow.Hidden = False
    25. With Range("A1")
    26. .PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    27. .PasteSpecial Paste:=xlValues
    28. .PasteSpecial Paste:=xlPasteFormats
    29. End With
    31. Application.CutCopyMode = False
    33. ActiveSheet.Name = .Name
    35. pfad = "F:\10 Info\Schulungen\Kernschulungsthemen\07 Schulungstermine und -protokolle\"
    36. Ordner = Sheets("Teilnehmerliste").Range("K2").Value
    37. DatName = Sheets("Teilnehmerliste").Range("L2").Value
    39. m = 1
    40. If Dir(pfad & Ordner & DatName & ".xlsx") <> "" Then
    41. sFileSave = pfad & Ordner & DatName & "_" & m & ".xlsx"
    42. Do While Dir(sFileSave) <> ""
    43. m = m + 1
    44. sFileSave = pfad & Ordner & DatName & "_" & m & ".xlsx"
    45. Loop
    46. ActiveWorkbook.SaveAs sFileSave
    47. Else
    49. End If
    51. ActiveWorkbook.SaveAs Filename:=pfad & Ordner & DatName & ".xlsx"
    53. If MsgBox("Die Teilnehmerliste wurde hier abgelegt: " & pfad & Chr(13) & "Soll die Teilnehmerliste auf dem Standarddrucker gedruckt werden?", vbYesNo) = vbYes Then
    54. 'Application.Dialogs(xlDialogPrint).Show
    55. ActiveSheet.PrintOut
    56. Else
    58. End If
    61. End With
    63. End Sub

    Welchen Wert hat denn der komplette Pfad? Ist er plausibel? Ist das Verzeichnis erreichbar?
    Lass ihn Dir anzeigen, bevor Du versuchst zu speichern. Entweder durch Wertüberwachung oder in Zeile#50 durch eine MsgBox:

    Visual Basic-Quellcode

    1. Dim KompletterDateipfad As String
    2. KompletterDateipfad = pfad & Ordner & DatName & ".xlsx"
    3. MsgBox KompletterDateipfad
    4. ActiveWorkbook.SaveAs Filename:=KompletterDateipfad
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.