Namensüberprüfung beim öffnen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Namensüberprüfung beim öffnen
von: Marc Voelker
Geschrieben am: 13.10.2003 09:31:09

Wunderschönen Start in die neue Woche wünsch ich euch.

Man kann ja ich Excel eine Datei mittels Makro öffnen.
Gibts da ne Möglichkeit, zu prüfen ob eine bestimmt Datei überhaupt existiert?

Ich habe ein Mappe, die unter dem aktuellem Datum mittels Makro gespeichert wird.
Sprich: D:\Archiv\mappe_2003-10-13.xls für heute. ("D:\Archiv\mappe_" & date)
Beim Öffnen der Datei mappe.xls möchte ich eine Prüfung einbauen.
Es soll geprüft werden, ob es die aktuelle Datei schon gibt.
Wenn ja, dann soll diese geöffnet werden und nicht die datei mappe.xls
Wenn nein, dann soll der User nichts davon mitbekommen und die Datei mappe.xls soll geöffnet werden.

Gruß
Marc

Bild


Betrifft: AW: Namensüberprüfung beim öffnen
von: Hajo_Zi
Geschrieben am: 13.10.2003 09:41:43

Hallo Marc

Option Explicit


Sub Vorhanden_Datei()
'   Fehler falls LW nicht vorhanden
    If Dir("D:\Eigene Dateien\Hajo\Adresse1.xls") <> "" Then
        MsgBox "vorhanden"
    Else
        MsgBox "nicht vorhanden"
    End If
End Sub



Sub Vorhanden_Phad()
'   Fehler falls LW nicht vorhanden
    If Dir("D:\Eigene Dateien\Hajo1\") <> "" Then
        MsgBox "vorhanden"
    Else
        MsgBox "nicht vorhanden"
    End If
End Sub



Sub Ordner_vorhanden()
'   von Berti Koern
    Dim Fso, Ordnername
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Ordnername = "D:\Eigene Dateien\Hajo\"
    MsgBox Fso.FolderExists(Ordnername)
End Sub



Sub Datei_vorhanden()
'   von Berti Koern
    Dim Fso, Dateiname
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Dateiname = "D:\Eigene Dateien\Hajo\Adresse.xls"
'   Egänzung öffnung Hajo
    If Fso.FileExists(Dateiname) Then
        Workbooks.Open Dateiname
    End If
End Sub




Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



Bild


Betrifft: AW: Namensüberprüfung beim öffnen
von: Marc Voelker
Geschrieben am: 13.10.2003 10:16:09

Thx Hajo

nach ein bissel austauschen hats geklappt.

Gruß+Dank
Marc


Bild


Betrifft: AW: Namensüberprüfung beim öffnen
von: Marc Voelker
Geschrieben am: 13.10.2003 11:22:40

Noch ne frage.
wie kann ich das makro bei start ausführen lassen?

Gruß
Marc


Bild


Betrifft: AW: Namensüberprüfung beim öffnen
von: Hajo_Zi
Geschrieben am: 13.10.2003 11:26:12

Hallo Marc

Fragen immer zu der Antwort schreiben, was gibt es mir, wenn ich Deine Antwort sehe???

Schreibe es inVBA unter Diesearbeitsmappe unter Private Sub Workbook_Open()



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



Bild


Betrifft: Thx
von: Marc Voelker
Geschrieben am: 13.10.2003 11:52:25

..


 Bild

Beiträge aus den Excel-Beispielen zum Thema " AW: MsgBox auf Englisch?"