Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Ich versuche es nochmal !

Betrifft: Ich versuche es nochmal ! von: walter b
Geschrieben am: 24.01.2020 10:26:19

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

Betrifft: AW: Ich versuche es nochmal !
von: volti
Geschrieben am: 24.01.2020 12:10:44

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


Betrifft: Karl-Heinz Danke ! -)
von: walter b
Geschrieben am: 24.01.2020 15:31:52

Hallo Karl-Heinz,
supi, danke klappt einwandfrei !

gruß
walter b