Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
428to432
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige