Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1668to1672
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
prüfen ob Datei offen
18.01.2019 20:11:24
walter
Guten Abend zusammen,
ich suche ein Makro, wenn ich in der Datei "Test.xlsm" bin,
soll das Makro:
call Nummerierung
durchgeführt werden, sonst nicht !
mfg
walter k

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: prüfen ob Datei offen
18.01.2019 20:13:17
Hajo_Zi
Hallo Walter,
Prüfen ob Datei schon offen
Private Sub Workbook_Open()
Dim BoOffen As Boolean
Dim WoDatei As Workbook
For Each WoDatei In Workbooks
If WoDatei.Name = "test.xls" Then
MsgBox "Datei ist schon geöffnet!"
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then
MsgBox "Test wird automatisch geöffnet!"
Workbooks.Open Filename:="C:\Eigene Dateien\Test.xls"
End If
End Sub


Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: prüfen ob Datei offen
18.01.2019 20:14:28
Nepumuk
Hallo Walter,
frag doch einfach den Namen der Mappe ab:
If ActiveWorkbook.Name = "Test.xlsm" Then
'Dein Code
End If

Gruß
Nepumuk
Danke Hajo und Nepumuk, klappt -))
18.01.2019 21:29:33
walter
Wenn Problem gelöst...
18.01.2019 21:49:59
Werner
Hallo Walter,
...dann bitte nicht den Haken setzen, so wird der Post als offen, also ungelöst, gekennzeichnet. Lies mal den Text der da steht.
Gruß Werner

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige