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

Absturz: Query automatisch aktualisieren

Absturz: Query automatisch aktualisieren
10.03.2020 08:30:02
Christoph
Hallo zusammen,
folgendes Problem:
Ich habe auf dem Server einige teambezogene Datei (Team A, Team B...) im xlsm-Format abgelegt, welche sich beim Öffnen automatisch Daten aus einer Masterdatei zieht.
Mit dem Öffnen werden also einige Abfragen angestoßen, sodass jemand aus dem jeweiligen Team nur seine Werte einsieht bzw. bearbeiten kann.
Prinzipiell läuft soweit auch alles reibungsfrei.
Allerdings kommt es von Zeit zu Zeit vor, dass einzelne Dateien nach dem Öffnen sofort wieder abstürzen (Start der Datenaktualisierung).
Auch nach mehrmaligen Versuchen stürzt die Datei immer wieder ab.
Öffnet man die Datei allerdings bspw. einen Tag später, so läuft wieder alles wie gewünscht.
Woran kann es liegen, dass ab und an die Dateien beim Starten der Aktualisierung sofort abstürzen?
Beste Grüße

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Absturz: Query automatisch aktualisieren
10.03.2020 10:48:13
EtoPHG
Hallo,
Zitat: Woran kann es liegen, dass ab und an die Dateien beim Starten der Aktualisierung sofort abstürzen?
An Vielem:
Server response-time.
Authentifizierung.
Datei durch andere App gesperrt.
aber meistens...
An dilletatischem VBA Code, denn du nicht gewillt bist zu zeigen
oder ungenügende Fehlerbehandlungen...
Gruess Hansueli
AW: Absturz: Query automatisch aktualisieren
10.03.2020 11:54:23
Chris
Hallo,
Mit dem VBA-Code starte ich beim Öffnen nur das Löschen von bestimmten Einträgen in drei Tabellenblätter (1 Blatt = Planung), sowie das Dokumentieren der User:
Public Sub Löschen_Planung()
ls = Sheets("Planung").Cells(250, Columns.Count).End(xlToLeft).Columns.Column
For s = ls To 1 Step -1
If Sheets("Planung").Cells(250, s).Value = 1 Then
Range(Sheets("EPlanung").Cells(6, s), Sheets("ET-Planung").Cells(146, s)).ClearContents
End If
Next s
End Sub
Außerdem wird der User im Blatt 'Übersicht' festgehalten, welcher das Blatt geöffnet hat:
Private Sub Workbook_Open()
Call Planung
Call Durchführung
Call IT
With Sheets("Übersicht")
lastrow = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Range("A" & lastrow) = Application.UserName
.Range("B" & lastrow) = Now()
ThisWorkbook.Save
End With
End Sub

Mag es doch tatsächlich am Speichern der User liegen, dass die Datei abstürzt?
Besten Dank
Anzeige
AW: Absturz: Query automatisch aktualisieren
10.03.2020 16:17:47
EtoPHG
Hallo Chris,
Aufgrund der Codeschnipsel kann ich keine Aussage machen.
Im Open fehlt z.B. die Prüfung, ob die Mappe schreibgeschützt geöffnet wurde.
Was du mit " tatsächlich am Speichern der User liegen" kann ich nicht nachvollziehen und sehe auch nichts darauf hindeutendes im Code. Gibt es überhaupt eine Fehlermeldung ? oder was verstehst Du unter Absturz?
Gruess Hansueli

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige