Speicherung direkt auch ins Netzwerk
15.03.2019 11:41:26
sigrid
ich speichere eine Datei und möchte diese direkt auf den anderen PC
über die bekannte IP Adresse speichern. z.B. 192.168.178.20
Würde mich freuen wenn jemand mir einen Tip geben kann, anbei mein aktuelles
Speichermakro.
Public Sub Markisen_Nur_C_Laufw_Speichern()
Dim Verz, VerzOrd, VerzNam As String
Dim vers
Verz = "C:\#_Möbel-Aufträge\"
Dim Antwort As String
Antwort = MsgBox("Achtung !!!" & Chr(13) & Chr(13) & _
"Möchten Sie die Datei nach dem speichern schließen ? " & Chr(13) & _
Chr(13) & Chr(13) & Chr(13) & _
"Schließen: JA drücken", vbCritical + vbYesNo, "Beenden ?")
If Antwort = vbYes Then
MsgBox "Datei: " & Chr(13) & Chr(13) & "##_UF_Möbel_für_Händler" & ".xlsm" & Chr(13) & Chr(13) & _
_
"wird ins Verzeichnis:" & vbLf & vbLf & "C:\#_Möbel-Aufträge" & vbLf & "gespeichert ! "
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="C:\#_Möbel-Aufträge\##_UF_Möbel_für_Händler" & ".xlsm"
Application.DisplayAlerts = True
ActiveSheet.Range("C5").Select
Application.DisplayAlerts = False 'Warnung vor Überschreiben abschalten
ActiveWorkbook.Close
Else
MsgBox "Datei: " & Chr(13) & Chr(13) & "##_UF_NEU_Möbel_für_Händler" & ".xlsm" & Chr(13) _
& Chr(13) & _
"wird ins Verzeichnis:" & vbLf & vbLf & "C:\#_Möbel-Aufträge" & vbLf & "gespeichert ! "
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="C:\#_Möbel-Aufträge\##_UF_Möbel_für_Händler" & ".xlsm"
MsgBox "Dann arbeite weiter..."
ActiveSheet.Range("C5").Select
End If
End Sub
mfg sigrid