Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1836to1840
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Prüfen ob Datei in Ordner

VBA Prüfen ob Datei in Ordner
08.07.2021 17:25:40
Fritz_W
Hallo Forumsbesucher,
benötige wieder einmal die Hilfe der VBA-Kundigen wie folgt.
Ich möchte erreichen, dass wenn in der Zelle die Datei mit exakt der Dateibezeichnung aus G1 der Tabelle1 sich im in G2 (Tabelle1) enthaltenen Ordner, ein Makro ausgeführt wird.
Für eure Hilfe besten Dank im Voraus.
mfg
Fritz

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Prüfen ob Datei in Ordner
08.07.2021 17:32:57
Hajo_Zi
Hallo Fritz,
für Datei
If Dir(strPfad & strSuchMuster, vbDirectory) "" Then
GrußformelHomepage
AW: VBA Prüfen ob Datei in Ordner
08.07.2021 17:43:48
Fritz_W
Hallo Hajo,
vielen Dank, ich werde es heute abend testen, wenn ich Fragen haben sollte, melde ich mich noch mal.
mfg
Fritz
AW: VBA Prüfen ob Datei in Ordner
08.07.2021 20:29:45
Fritz_W
Hallo,
bin überfordert, kann das leider nicht entsprechend meinen Vorstellungen umsetzen.
In Tabelle 1 G1 steht der Dateiname, in G2 der Ordner (Pfad), in dem die Datei evtl. vorhanden ist.
Das Makro soll also prüfen, ob die Datei mit der Bezeichnung in G1 im in G2 enthaltenen Ordner ist und wenn ja, soll Makro1 ausgeführt werden, ansonsten soll nichts geschehen. VBA nur mit Makrorekorder entsprechend bitte ich um eure Unterstützung.
Danke im Voraus.
mfg
Fritz
Anzeige
AW: VBA Prüfen ob Datei in Ordner
08.07.2021 20:45:32
Hajo_Zi
Hallo Fritz,
ich konnte Deine Codeversuch nicht sehen.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo
Anzeige
AW: VBA Prüfen ob Datei in Ordner
08.07.2021 21:34:36
Firmus
Hallo Fritz,
anbei ein Beispiel, das funktioniert.

Sub Test_Exists_v1()
Dim fs As Object
Dim x   'Verzeichnis (Pfad)
Dim y   'Dateiname
Set fs = CreateObject("Scripting.FileSystemObject")
x = Range("G2").Value   'Pfad
y = Range("G1").Value   'Datei
If Right(x, 1)  "\" Then x = x & "\"	'Backslash anfügen
'Testen, ob das Verzeichnis existiert
fs.folderexists (x)
If fs.folderexists(x) = False Then
MsgBox x & " existiert nicht, Makro wird beendet."
Exit Sub
End If
y = x & y           'Pfad und Datei zumsammenhängen
'Testen, ob die Datei existiert
fs.fileexists (y)
If fs.fileexists(y) = False Then
MsgBox y & " existiert nicht, Makro wird beendet."
End If
If fs.fileexists(y) = True Then
Call meinMacro
End If
End Sub
Gruß,
Firmus
Anzeige
AW: VBA Prüfen ob Datei in Ordner
08.07.2021 21:47:30
Fritz_W
Hallo Firmus,
und wie das funktioniert, perfekt, genau wie gewünscht.
Großartig!
Vielen Dank.
mfg Fritz

327 Forumthreads zu ähnlichen Themen

Makro prüft ob Datei vorhanden ist.
Peter

Hallo!
Ich bin wirklich ratlos: in meinem Sheet wird eine spezielle Schriftart verwendet. Das Sheet wird leider nur dann leserlich angezeigt, wenn die Schriftart installiert ist. Deshalb soll ein Makro prüfen, ob die Datei "Grafikfonds.TTF im folgenden Ordner vorhanden ist C:\WINDOWS\Fonts\...
28.12.2008 01:46:00
Thread-ID: 1035513
3 Beiträge
Anzeige
Prüfen ob Zelle vorhanden...
pervenches

Guten Tag
Diese Formel sollte überprüfen, ob die Zelle "Erfolg" mit Inhalt "2" vorhanden ist und falls ja den entsprechenden Wert ausgeben. Falls diese Zelle nicht vorhanden ist sollte Sie den Wert von "G1" ausgeben. Die Zelle ist nicht immer vorhanden, da es sich um eine Pivot-Tabelle han...
09.09.2009 09:02:19
Thread-ID: 1101377
5 Beiträge
Prüfen ob Datei vorhanden
Marcus

Hallo,
kann mir jemand sagen, wie folgender Code aussehen muss:
Prüfen ob eine Datei, die ich als Bild in Excel mit VBA einfügen möchte, vorhanden ist.
If Dir(K:\Modelle Zeichnungen\Sal\Bilder TIF\...001.TIF) "" Then
Allerdings steht die Pfadangabe in der Zelle H2, da es verschi...
15.10.2009 07:05:26
Thread-ID: 1109751
2 Beiträge
Anzeige
Prüfen ob Schaltfläche vorhanden
walli

Guten Tag,
ALLEN ein frohes Weihnachtsfest !
Ich habe mal gestöbert und dies gefunden.
Ich möchte nur prüfen ob ein Schaltfläche mit der Nummer 10 vorhanden ist, das klappt so nicht.
Dim shShape As Shape
For Each shShape In Worksheets("Test").Shapes
If shShape.Name = "Sc...
25.12.2009 15:52:15
Thread-ID: 1125912
7 Beiträge
Prüfen ob Tabellen vorhanden
Kurt

Guten Morgen,
wünsche allen ein gesundes neues Jahr !
Danke für die bisherige Unterstützung !
Frage:
Ich habe eine Datei mit Tabellen die mit Monatsnamen hinterlegt
sind. (MMM)
Ich möchte prüfen ob ein Monat fehlt.
mfg Kurt P
05.01.2010 09:31:14
Thread-ID: 1127179
7 Beiträge
ControlPopup prüfen ob 2 mal vorhanden
marco

Hallo Kollegen,
Habe momentan ein problem mit der abfrage ob das popup vorhanden ist. Obwohl in der Menueleiste das Popup mit dem Namen "PT-Tool" vorhanden ist.
Popup wird ertellt.
Public Sub prcCreateButton() Dim myCommandBar As CommandBar Dim myCommandBarPopup As CommandBarContro...
28.01.2010 17:44:30
Thread-ID: 1133863
3 Beiträge
prüfen ob versch. Ziffern in Zellen vorhanden sind
Heinz

Hallo Excellenten,
viele Grüße an Alle an an diesem (im Süden) sonnigen Tag.
Mein Problem: Ich habe eine Spalte mit folgenden Zellen:
A1: 1;0000000 9; 10;000 14;00000000 23;0 25;0 27; 28; 29;0
A2: 00000000 9;00000000000000 24; 25;00000
A3: 00 3;0000000000000000 27;000
A...
08.04.2010 21:26:15
Thread-ID: 1150683
4 Beiträge
Überprüfen ob Tabellenblatt vorhanden ist
Ingo

Hallo zusammen,
hab folgendes Problem. Ich öffne nacheinander verschiedene Dateien um bestimmte Zellen auszulesen.
Wenn in der geöffneten Datei das Tabellenblatt mit dem Namen "Motor" nicht vorhanden ist sollen die nachfolgenden Schritte nicht bearbeitet werden. Irgendwie klappt das bei...
20.04.2010 11:44:29
Thread-ID: 1152802
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
4
1
5
6
6
2
3
2
3
3
2
4
6
6
3
3
2
3
3
3
7
4
4