Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1420to1424
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

Workbooks.open macht nicht, auch keinen Fehler

Workbooks.open macht nicht, auch keinen Fehler
15.04.2015 17:32:24
Karsten
Hallo
Das Makro hat immer gut funktioniert.
Der Workbooks.open Befehl wird kurz vorher noch mit der geleichen Datei erfolgreich gemacht.
Dann will ich die Datei schließen, die dan ndas startet.
Zeitweise funktioniert die Funktion, zeitweise nicht.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Update_Aus
Call datei_öffnen_a("Urlaubsplanung\", "offenNEU", "Schreiben")
If Workbooks("offenNEU.xlsx").Sheets("Tabelle1").Cells(Range("Zeile"), Range("Spalte_Jahr") + 2) _
_
 "x" Then
Workbooks("Abwesenheit.xlsm").Activate
MsgBox "Die Datei wurde von einem anderen Rechner aus entsperrt und vermutlich bearbeitet.  _
Daten daher besser nicht sichern!!!"
End If
Workbooks("offenNEU.xlsx").Close SaveChanges = False
Speicher_Abfrage.Show
End Sub
Mit dem Call Befehl wir dein Makro gestartet, was zu diesem Befehl führt:
Workbooks.Open Filename:=Pfad_NOR + CStr(Dateiname) + ".xlsx", ReadOnly:=lesen
Es werden alle Werte richtig übertragen, trotzdem öffnet sich die Datei nicht, es kommt aber auch kein Fehler.
Bin schon am verzweifeln.
Gruß
Karsten

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbooks.open macht nicht, auch keinen Fehler
15.04.2015 17:45:57
Christian
hallo Karsten,
wenn du im Code schreibst, dass Fehler einfach übergangen werden sollen, darfst du dich nicht wundern, wenn genau das passiert -> lass mal das "On Error Resume Next" weg.
Und setze in die oberste Zeile des Moduls "Option Explicit".
Das sollte dir beim debuggen helfen.
Ggruß
Christian
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige