Vielleicht Karl-Heinz ?
28.01.2020 17:21:28
walter
Karl-Heinz hatte mir mal das Makro erstellt.
Das läuft soweit, wenn ich allerdings die Datei vom Netzlaufwerk "ww" Laufwerk "f" hole,
klappt es mit dem speichern nicht.
Fehlermeldung: Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt.
Ich möchte die Datei durch Explorer vom Laufwerk: "\\ww\f\#_Werkstatt-Aufträge\" & sNameW
holen und auf C Laptop speichern.
mfg
walter b
Public Sub Walter_C_Laufwerk_speichern()
Dim sLW As String, sNameW As String, sVerzOrd As String
sVerzOrd = "\#_Werkstatt-Aufträge\"
sNameW = ThisWorkbook.Sheets("Auftrag").Range("S1").Value
If Trim$(sNameW) "" Then
If Environ("Username") Like "LAPTOP" Then
sLW = "C:"
Else
sLW = "F:"
End If
Application.DisplayAlerts = False ' Warnung vor überschreiben abschalten
ActiveWorkbook.SaveAs Filename:=sLW & sVerzOrd & sNameW
MsgBox "Es wurde im PC vom User: " & vbLf & Environ("Username") & vbLf & "auf Laufwerk > " _
_
& sLW & "