Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

prüfung

Forumthread: prüfung

prüfung
15.12.2004 15:16:26
Micha
Hallo Leute,
ich möchte gern, das ich mittels VBA-Code eine Prüfung mache, ob die Datei "Statistik" geöffnet ist. Wenn ja, soll nix weiter passieren, wenn nicht möchte ich gern einen Hinweis haben und das Makro soll abbrechen.
Geht das?
Vielen Dank für Eure Hilfe...
Micha
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: prüfung
hg
Probier's 'mal damit

Sub datei()
Ja = False
For i = 1 To Workbooks.count
If Workbooks(i).Name = "Statistik.xls" Then Ja = True
Next
If Ja = False Then Eingabe = MsgBox("Statistik.xls nicht gefunden", vbOKOnly)
End Sub

viel spaß
hg
AW: prüfung
WernerB.
Hallo Micha,
wie gefällt Dir das?

Sub Micha()
Dim DatNam As String
DatNam = "Statistik.xls"
If MappeOffen(DatNam) = False Then
MsgBox "Datei '" & DatNam & "' ist nicht geöffnet !" & _
vbCr & vbCr & "Makro-Abbruch !", vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
End Sub



Function MappeOffen(MappeName As String) As Boolean
Dim Wkb As Object
On Error Resume Next
Set Wkb = Workbooks(MappeName)
If Err = 0 And Not Wkb Is Nothing Then
MappeOffen = True
End If
On Error GoTo 0
End Function

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Danke o.T.
15.12.2004 15:56:49
Micha
thx
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige