Speicher auf Desktop festlegen
07.05.2014 21:04:53
Oliver
eine kleine Bitte, diese beiden VBA zusammen zu legen.
Es soll mit definiertem Name D9 (erstes VBA)
die Tabelle immer und auf allen Computer auf
dem Desktop gespeichert werden
(zweites VBA)
Da das ein "sensibler" Vorgang ist, möchte ich es auch
sehr zuverlässig geschrieben wissen. Danke an Euch
Oliver
Public Sub SpeichernUnter()
Dim NeuerName As String
NeuerName = Range("d9")
ActiveWorkbook.SaveAs NeuerName
End Sub
____________________________________________________
Public Sub Desk()
Dim strPfad As String
strPfad = Environ("UserProfile") & "\Desktop\"
MsgBox strPfad
End Sub