Office: Datei per VBA auf Desktop speichern

Hallo liebes Forum,

ich habe mir ein Makro erstellt, welches ein geöffnetes Tabellenblatt als eine eigene Excel-Datei auf dem Desktop speichert.

Das Problem: die Datei wird immer im Ordner "Dokumente" und NICHT auf dem Desktop gespeichert. Vielleicht findet ja jemand den Fehler in meinem Code?

Lieben Dank für eure Hilfe!

Code:

:)

 

es fehlt die Ordnerangabe bei
strPfad_Dateiname
mal Makrorecorder benutzen.

 

Hallo,

der Desktop-Ordner befindet sich nicht direkt auf C sondern in deinem Profil.

Teste mal:

Public Sub Test()
MsgBox Environ$("USERPROFILE") & "\Desktop\"
End Sub

 

\@Hajo_Zi: Was muss ich denn bei "strPfad_Dateiname" hinschreiben bzw. ändern?

@ Nepumuk: Deinen Code habe ich getestet und er zeigt mir einen Pfad an...und nun?

 

kopieren den Pfad aus der Makroaufzeichnung vor strd...

 

Hallo,

na so (ich hab mal alles überflüssige entfernt):

Public Sub eigene_Datei_speichern_automatisch()
Dim strDateiname As String
Dim strPfad As String

strPfad = Environ$("USERPROFILE") & "\Desktop\"
strDateiname = Replace(Range("M11").Value, "-", " -") 'Doppelpunkt ersetzen

If Len(strDateiname) = 0 Then
MsgBox ("Ungültiger Dateiname: Die Zelle 'M11' darf nicht leer sein!")
Else
ActiveSheet.Copy 'Kopiert nur das AKTUELLE Blatt in eine neue Datei !
ActiveSheet.Protect
ActiveWorkbook.SaveAs Filename:=strPfad & strDateiname, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
MsgBox "Datei gespeichert!"
End If
End Sub

 

Das kommt bei der Makroaufzeichnung raus:

Code:

Ich bin in der Sache nicht sehr erfahren...vielleicht kann das ja dankenswerterweise oben jemand in meinen Code an passender Stelle einfügen...

 

Du kannst den Ordner also nicht kopieren, wenn Du dies nicht kannst solltest Du VBA sein lassen.

 

Nepumuk, mit deinem Code scheint es nun zu funktionieren - vielen Dank!

@Hajo_Zi: die Beiträge von Nepumuk und mir haben sich etwas überschnitten, deshalb mein Beitrag mit der Frage...
Davon mal abgesehen ist das nicht gerade die feine Art wie DU hier mit einem Anfänger umgehst. Wenn du nur Stichwörter schreibst hilft dies einem Anfänger nicht weiter...und manche Bemerkungen kann man sich auch sparen.