Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ich versuche es nochmal !

Ich versuche es nochmal !
24.01.2020 10:26:19
walter
Guten Morgen Fachfrauen und Männer,
ich brauche eine Lösung, wenn möglich, hatte gestern versucht aber ohne Ergebnis.
Ich erkläre jetzt Ausführlich:
1. Ich bin aktiv auf dem Laptop, nun öffne eine Excel-Datei vom Datei-Explorer des
Laptops "User=Laptop" des anderen PC's User="ww7" aus Verzeichnis "F" "Werkstatt"
die Datei "Werkstatt-Muster.xlsm".
2. Ich habe jetzt die Datei auf dem Laptop und kann ganz normal damit Arbeiten.
3. Ich sehe aber Datei-Explorer das im Verzeichnis "F" "Werkstatt" die Datei
"Werkstatt-Muster.xlsm" noch offen angezeigt wird.
4. Ich möchte die Datei jetzt aber auf meinem Laptop gleiches Verzeichnis
Verzeichnis "F" "Werkstatt" speichern.
krieg es per Makro nicht hin.
Wenn ich aber Makro aufzeichne und dann über "Speichern unter" speichere besteht
kein Problem.
Würde mich freuen, wenn sich jemand bereit erklärt mir zu helfen,
danke im Voraus
walter b

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ich versuche es nochmal !
24.01.2020 12:10:44
volti
Hallo Walter,
ich habe ein wenig aufgeräumt.
Vielleicht klappt es ja jetzt....
Public Sub Walter_C_Laufwerk_speichern()
 Dim sLW As String, sNameW As String, sVerzOrd As String
 sVerzOrd = "\#_Markisen-Aufträge\"
 sNameW = ThisWorkbook.Sheets("Auftragsbestätigung").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 & " <  gespeichert !", vbInformation, " Hinweis !"
  Application.DisplayAlerts = True
 Else
  MsgBox "Keine Angabe in S1 erfolgt!", vbCritical, " Hinweis !"
 End If
End Sub
viele Grüße
Karl-Heinz

Anzeige
Karl-Heinz Danke ! -)
24.01.2020 15:31:52
walter
Hallo Karl-Heinz,
supi, danke klappt einwandfrei !
gruß
walter b

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige