Schiffe versenken 2 Spieler, Datei-Verknüpfungen
18.03.2010 16:58:46
fcs
Hallo Thomas,
hier mal 2 Beispieldateien in der ZIP-Datei. In denen auch die nachfolgenden Makros eingerichtet sind.
Wesentlich ist, dass hier in regelmäßigen Abständen die Dateien gespeichert und die Verknüpfungen aktualisiert werden. Ich hab hier mal 2 Sekunden Abstand eingestellt.
https://www.herber.de/bbs/user/68639.zip
Das Problem bei dem Ganzen ist, dass es gelegentlich Probleme gibt, wenn die eine Datei gespeichert wird und die andere Datei im selben Zeitraum die Datenaktualisierung versucht.
Falls diese Fehlermeldung kommt, dann Debuggen = OK und im VBA-Editor auf den Fortsetzen-Button klicken.
Die Formeln mit den Verknüpfungen zu der jeweil anderen Datei sind in den Bereichen "Schüsse Gegner" und "Auswertung meine Schüsse".
Gruß
Franz
Option Explicit
Private datZeit As Date, bolSpiellaeuft As Boolean
Sub FlotteNeu()
If bolSpiellaeuft = True Then
MsgBox "Spiel läuft, bitte erst Spiel beenden!"
Else
Range("B3:K12").ClearContents
End If
End Sub
Sub SpielStart()
If bolSpiellaeuft = True Then
MsgBox "Spiel läuft, bitte erst Spiel beenden!"
Else
ThisWorkbook.UpdateRemoteReferences = True
Range("M15:V24").ClearContents
Call Spiel
bolSpiellaeuft = True
End If
End Sub
Sub SpielStop()
On Error Resume Next
bolSpiellaeuft = False
Application.OnTime earliesttime:=datZeit, Procedure:="Spiel", schedule:=False
End Sub
Sub Spiel()
Application.DisplayAlerts = False
On Error Resume Next
Sheets(1).Unprotect
ThisWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources(1)
Sheets(1).Protect
Application.Calculate
ThisWorkbook.Save
datZeit = Now + TimeValue("00:00:02")
Application.OnTime earliesttime:=datZeit, Procedure:="Spiel"
Application.DisplayAlerts = True
End Sub