CurrentProject.Path funktioniert nicht
21.02.2018 12:31:57
Linda
ich möchte gerne meine Daten per VBA zwischen 2 Mappen austauschen. Da ich den Order indem sich die beiden Mappen befinden auch kopieren und verschieben möchte, kann ich nicht den kompletten Pfad in der Formel hinterlegen. Deshalb möchte ich "CurrentProjekt.Path" verwenden.
Leider funktioniert es nicht. Ich habe wohl einen Denkfehler drin. Kann mir jemand helfen?
Sub Export()
' Export Makro'
'Überprüfen ob es Mitarbeiter 1 ist
.
If Sheets("Übersicht Rapporte").Range("C5").Value = 1 Then
'Ja? Dann werden folgende Zeilen kopiert
Sheets("Übersicht Rapporte").Rows("15:4055").Copy
'Mappe: Schlosser_Datenbank öffnen
Workbooks.Open Filename = _
(CurrentProject.Path & "\Schlosser_Datenbank.xlsx"), Password:="schlosser"
'Werte einfügen (ohne Formel - nur Werte)
Workbooks("Schlosser_Datenbank.xlsx").Sheets("Alle Rapporte").Rows("15-4055").PasteSpecial _
xlPasteValues
'Arbeitsmappe speichern
Workbooks("Schlosser_Datenbank").Save
'Arbeitsmappe schließen
Workbooks("Schlosser_Datenbank").Close
End If
End Sub