Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Namensüberprüfung beim öffnen

Namensüberprüfung beim öffnen
13.10.2003 09:31:09
Marc Voelker
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Namensüberprüfung beim öffnen
13.10.2003 09:41:43
Hajo_Zi
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/

Anzeige
AW: Namensüberprüfung beim öffnen
13.10.2003 10:16:09
Marc Voelker
Thx Hajo

nach ein bissel austauschen hats geklappt.

Gruß+Dank
Marc
AW: Namensüberprüfung beim öffnen
13.10.2003 11:22:40
Marc Voelker
Noch ne frage.
wie kann ich das makro bei start ausführen lassen?

Gruß
Marc
AW: Namensüberprüfung beim öffnen
13.10.2003 11:26:12
Hajo_Zi
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/

Anzeige
Thx
13.10.2003 11:52:25
Marc Voelker
..

300 Forumthreads zu ähnlichen Themen


Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
Anzeige

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
Anzeige

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige