Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob Mappe1 aktiviert

Forumthread: Prüfen ob Mappe1 aktiviert

Prüfen ob Mappe1 aktiviert
12.12.2018 16:38:07
Holger
Hallo,
ich möchte per VBA prüfen ob Mappe1 schon offen ist. Aber mein code stimmt nicht.
If Windows("Mappe1.xls").Activate Then
Exit Sub
End If
Danke für die Hilfe
Gruß Holger
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Mappe1 aktiviert
12.12.2018 16:48:59
PeterK
Hallo

Sub testWB()
Dim wb As Workbook
For Each wb In Application.Workbooks
If wb.Name = "Mappe1.xls" Then Exit Sub
Next
End Sub

AW: Prüfen ob Mappe1 aktiviert
12.12.2018 16:52:32
Peter(silie)
Hallo,
unten Code wie es geht.
Beachte dabei, dass du die Dateiendung angeben musst, wenn die Datei schonmal gespeichert wurde.
Wurde die Mappe gerade erst erstellt und nicht gespeichert, musst du nur nach dem Namen suchen.
Mappe1 ohne speichern finden = windowExists("Mappe1")
Mappe1 die gespeichert wurde finden = windowExists("Mappe1.xlsx")
Option Explicit
Sub test()
Debug.Print "Die Mappe 'Mappe1' ist bereits geöffnet: " & windowExists("Mappe1.xlsx")
End Sub
Private Function windowExists(ByVal wName As String) As Boolean
Dim xlApp As Application
Dim hWnd As Variant
Set xlApp = ThisWorkbook.Parent
On Error Resume Next
For Each hWnd In xlApp.Windows
If hWnd.Caption = wName Then
windowExists = True
Exit Function
End If
Next hWnd
End Function

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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