ich stehe etwas auf dem Schlauch.
Ich hab ein Makro erstellt mit dem ich Dateien umbennenen kann. Klappt auch.
Aber natürlich nur wenn die Datei nicht geöffnet ist. Eigentlich wollte ich in das Makro einbauen, dass diese Datei (KEINE EXCEL - meistens PDF aber nicht immer) einfach geschlossen wird und dachte mir das so:
Pfad/Datei.Close
Hat leider nicht funktioniert. Hab ich mir wohl zu einfach gemacht.
Dann dachte ich mir, ich kann dafür sorgen, dass das Makro statt der Debug Fehlermeldung eine andere Meldung ausgibt und mir sagt "Kann Datei nicht umbenennen - vielleicht noch geöffnet?" und mir ein OKAY button oder so zur Verfügung stellt. Dann kann ich die Datei bequem suchen, schließen und das Makro dannach weiterlaufen lassen.
Aber irgendwie bekomme ich das nicht so ganz hin.
Kann mir dazu jemand Bitte weiterhelfen?
'Datei wird umbenannt
NPfad = Left(APfad, InStrRev(APfad, "\") - 0) & NDatNam
On Error GoTo Fehler
WEITER:
Name APfad As NPfad
'Hyperlink Überschrift wird angepasst
ActiveSheet.Hyperlinks.Add Anchor:=Cells(a, 3), Address:=NPfad, TextToDisplay:=NDatNam
'Spalte Pfad wird umgeschrieben
ActiveSheet.Cells(a, b + 7) = NPfad
Fehler:
If MsgBox("Datei noch geöffnet?", vbOKCancel, "Sicherheitsabfrage") = vbCancel Then
Exit Sub
Else
Resume WEITER
End If
Range("N_Vorgang").Clear
End Sub
Ich schaffe zwar diese Fehlermeldung einzubauen, aber nie klappt es richtig. Eigentlich sollte der nur starten wenn ein Fehler auftritt, aber nun startet Fehler immer und lässt sich auch nur mit Abbrechen beenden. Zunächst hier mal meinen Code. Das Dick-geschriebene ist das was die Fehlerbehandlung einläutet.
https://www.herber.de/bbs/user/142402.zip
und hier meine Datei. Das fragliche Makro heisst: Aenderung
Vielen Dank und viele Grüße
Steve