Thema Datum  Von Nutzer Rating
Antwort
Rot Fehlerbehandlung beim Speichern
14.02.2019 15:04:40 Piecha
NotSolved
14.02.2019 15:12:03 Gast73011
NotSolved
15.02.2019 09:36:44 Gast40842
NotSolved
18.02.2019 11:43:09 Piecha
NotSolved
18.02.2019 12:15:14 Gast19261
NotSolved
18.02.2019 17:35:12 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Piecha
Datum:
14.02.2019 15:04:40
Views:
841
Rating: Antwort:
  Ja
Thema:
Fehlerbehandlung beim Speichern

Hallo,

ich versuche mit nachfolgendem Makro meine Datei zu spiechern. Wenn Sie von einnem andern Benutzer geöffnet ist, soll eine Meldung kommen. Dies funktioniert leidern nicht.

Was habe ich übersehen?

 

Danke

 

Piecha

Sub PlanVeröffentlichen() ' Kopie Speichern
    On Error GoTo 0
    On Error GoTo Fehlerbehandlung
    'ActiveWorkbook.SaveCopyAs Filename:="T:\99_Tools\Prodplan\PlanV" & Right(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
    ActiveWorkbook.SaveCopyAs Filename:="T:\99_Tools\Prodplan\PlanV7.15.xlsm" ' & Right(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
    On Error GoTo 0
    Exit Sub

Fehlerbehandlung:
    If Err.Number = 1004 Then MsgBox "Die Kopie ist zur Zeit geöffnet"
    On Error GoTo 0

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Fehlerbehandlung beim Speichern
14.02.2019 15:04:40 Piecha
NotSolved
14.02.2019 15:12:03 Gast73011
NotSolved
15.02.2019 09:36:44 Gast40842
NotSolved
18.02.2019 11:43:09 Piecha
NotSolved
18.02.2019 12:15:14 Gast19261
NotSolved
18.02.2019 17:35:12 Mackie
NotSolved