Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1660to1664
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
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige