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

Habe noch ein kleines Problem

Forumthread: Habe noch ein kleines Problem

Habe noch ein kleines Problem
22.05.2004 20: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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.
Anzeige
Super danke...
22.05.2004 21:22:32
Walter
Hallo Werner,
funktioniert Super.
Mir nicht klar warum das nicht mit einem Makro funktioniert, na ja...
Gruss Walter
;

Beliebteste Forumthreads (12 Monate)

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