Zähler im Dateinamen beim merhfachen Öffnen

Hallo zusammen,
ich habe in Excel eine geschlossene Datenbank mit diversen Eingabeformularen und Reports erstellt. Es ist angedacht, dass die Kollegen ein Eingabeformular befüllen, mittels Makro erfolgt eine Qualitätssicherung und Übermittlung eines Datensatzes per Email. Diese Daten können dann nach erfolgter Sichtung mittels eines weiteren Makros in die DB geschoben werden.
Ein Problem ist jetzt bei dem Eingabeformular entstanden: als ein Kollege die Datei mehrmals geöffnet hatte, funktionierten die Makros nicht. Excel hat den Dateinamen hochgezählt (z.B.: Dateiname(2).xls), während die Befehlszeile im Makro "Workbooks("Dateiname.xls") usw. erwartet.
Wie kann ich das Problem umgehen bzw. verhindern, dass die Datei mehrfach geöffnet wird?
Vielen Dank für Eure Hilfe.
Robert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Robert,
dies liegt definitiv an Outlook, da deine Datei vor dem Öffnen temporär gespeichert wird.
Existiert bereits der Name, so ergänzt Outlook automatisch die Datei mit einem Counter.
Beim schliessen der E-Mail löscht auch Outlook diese Datei wieder, jedoch nur wenn diese
beim Schliessen nicht durch Excel geöffnet ist.
Via VBA könntest Du beim Öffnen der Exceldatei eine eindeutige Datei auf deine Platte schreiben und
beim Schliessen der Exceldatei wieder löschen. Existiert beim Öffnen der Exceldatei schon diese durch VBA geschriebene Datei, so soll eine Fehlermeldung ausgegeben werden und anschließend die Datei wieder
geschlossen werden.
Hier ein Beispiel wie dies aussehen könnte:


Public Fehler As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Fehler = False Then Kill "c:\dateicheck.tmp"
End Sub
Private Sub Workbook_Open()
Open "c:\dateicheck.tmp" For Random As #1
If LOF(1) > 1 Then
Fehler = True
MsgBox "Datei bereits geöffnet"
Else
Print #1, "CHECK"
End If
Close #1
If Fehler = True Then Application.Quit
End Sub

Hab den Code jetzt selber nicht getestet, sollte aber funzen...
Grüße
Sven

Sub Beispiel() Dim objWB As Workbook 'zuerst den normalen Dateinamen suchen For Each objWB In Workbooks If objWB.Name Like "Dateiname.xls" Then Exit For End If Next objWB 'nicht gefunden, suche nach Dateiname mit zusatz If objWB Is Nothing Then For Each objWB In Workbooks If objWB.Name Like "Dateiname(#).xls" Then Exit For End If Next objWB End If If Not objWB Is Nothing Then MsgBox objWB.Name Else MsgBox "Datei nicht gefunden!" End If End Sub

Beliebteste Forumthreads (12 Monate)

Zähler im Dateinamen beim merhfachen Öffnen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zähler im Dateinamen beim merhfachen Öffnen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread