Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
532to536
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
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige