Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1508to1512
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1508to1512
1508to1512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Freigegebene Dateien nicht zeitgleich speichern kö

Freigegebene Dateien nicht zeitgleich speichern kö
24.08.2016 21:50:52
Sabrina
Hallo Leute,
ich habe folgendes Szenario:
- Mehrere Daten sind auf dem Server und für alle Freigegeben.
- Jeder hat eine eigene Datei ( Eingabemaske ) auf seinem Rechner.
- Jeder greift auf die Freigegeben Dateien zu, ändert die und speichert sie ab. Dies läuft über ein Makro Namens „Speichern“ ab.
Wenn aber einer zugreift und am Speichern ist und ein anderer in der Zeit auch speichert, bekommt er eine Fehlermeldung und das Makro wird mit einem Fehler beendet.
Hat jemand eine Idee wir man es machen kann das sobald einer das Makro „Speichern“ gestartet hat kein anderer es startet kann bevor das Makro des Ersten beendet ist.
LG
Sabrina

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Freigegebene Dateien nicht zeitgleich speichern kö
24.08.2016 22:43:07
ChrisL
Hi Sabrina
Hat jemand eine Idee wir man es machen kann das sobald einer das Makro „Speichern“ gestartet hat kein anderer es startet kann bevor das Makro des Ersten beendet ist.
Ich glaube geht nicht.
Vielleicht ein Loop und im Falle eines Fehlers nach z.B. 2 Sekunden erneut probieren. Dazu würde ich das bestehende Makro in eine Funktion umwandeln, sinngemäss:
Sub NeuesMakro()
Do Until DeineFunktion = True
DeineFunktion
Loop
End Sub


Function DeineFunktion() As Boolean
On Error Goto ErrorHandler
' der Inhalt vom aktuellen Makro hier
DeineFunktion = True
Exit Function
ErrorHandler:
Application.Wait(Now + TimeValue("0:00:02")) '2 Sekunden schlafen
End Function
Achtung, wenn der Fehler nicht weg geht, ist es eine endlos Schleife. Könnte man dann zur Sicherheit noch mit einem Zähler versehen (nach x-Versuchen abbrechen).
cu
Chris
Anzeige
AW: Freigegebene Dateien nicht zeitgleich speichern kö
25.08.2016 08:24:35
ChrisL
HI
Hier noch mit Zähler, 3 Versuche...
Sub NeuesMakro()
Dim Zaehler As Integer
Do Until DeineFunktion = True
Zaehler = Zaehler + 1
If Zaehler > 3 Then
MsgBox "Aus die Maus"
Exit Sub
End If
Loop
End Sub

Function DeineFunktion() As Boolean
On Error GoTo ErrorHandler
' der Inhalt vom aktuellen Makro hier
DeineFunktion = True
Exit Function
ErrorHandler:
Application.Wait (Now + TimeValue("0:00:02")) '2 Sekunden schlafen
End Function

cu
Chris

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige