Habe noch ein kleines Problem

Forumthread: Habe noch ein kleines Problem
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Habe noch ein kleines Problem

22.05.2004 22:34:39

Walter

Hallo Zusammen,
habe folgendes Makro:


Sub Musterstück_aufrufen()
Application.ScreenUpdating = False
Dim ww
ww = "Musterstück.xls"
If ww <> "" Then
MsgBox "Datei ist da"
Else
Workbooks.Open Filename:="C:\Werkstatt\Musterstück.xls"
End If
Application.ScreenUpdating = True
End Sub

Wieso reagiert das Makro nur auf die MSGBox-Text, obwohl die Datei nicht offen.
Was habe ich Falsch gemacht ?
Gruss WAlter

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Habe noch ein kleines Problem

WernerB.
Super danke...

22.05.2004 23:22:32

Walter

AW: Habe noch ein kleines Problem

WernerB.

Hallo Walter,
versuche es mal in Verbindung mit einer benutzerdefinierten Funktion:
Option Explicit


Function MappeOffen(MappeName As String) As Boolean
Dim StName As String
On Error GoTo Nonexistent
StName = Workbooks(MappeName).Name
MappeOffen = True
Exit Function
Nonexistent:
MappeOffen = False
End Function


Sub Musterstück_aufrufen()
Dim ww As String
Application.ScreenUpdating = False
ww = "Musterstück.xls"
If MappeOffen(ww) = True Then
MsgBox "Datei ist geöffnet !"
Else
Workbooks.Open FileName:="C:\Werkstatt\Musterstück.xls"
End If
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

Super danke...

22.05.2004 23:22:32

Walter

Hallo Werner,
funktioniert Super.
Mir nicht klar warum das nicht mit einem Makro funktioniert, na ja...
Gruss Walter