Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
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
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Dateien vorhanden oder nicht?

VBA - Dateien vorhanden oder nicht?
22.07.2021 18:48:45
Frösi
Hallo zusammen,
ich bin auf der Suche nach einer Excelabfrage, wo geprüft wird, ob die zu kopierenden Dateien schon im Pfad (steht in Zelle B2 bis bis B11) vorhanden sind.
Die Datei mit der Abfrage heißt „Volume“ und das Arbeitsblatt „Tabelle1“. Die 10 Pfade, wo sich die Ursprungsdateien befinden sind in den Zellen A2 bis A11 hinterlegt.
Es sollte mir ausgegeben werden, welche Dateien schon vorhanden sind, wenn es zutrifft, ansonsten soll der Kopiervorgang gestartet werden.
Für eine Lösung wäre ich sehr Dankbar.
Viele Grüße

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Dateien vorhanden oder nicht?
22.07.2021 18:53:56
Hajo_Zi
If Dir(strVerzeichnis&Dateiname, vbDirectory) "" Then
GrußformelHomepage
AW: VBA - Dateien vorhanden oder nicht?
23.07.2021 06:29:49
Frösi
Vielen Dank für das erste Feedback.
Wie aber beziehe ich die Zellenbereiche im Skript ein, B2 bis B11 wo die Zielpfade und A2 bis B11 wo die Quelldateien sind, um zu schauen ob schon Dateien mit dem gleichen Namen vorhanden sind?
AW: VBA - Dateien vorhanden oder nicht?
23.07.2021 06:55:59
ralf_b
steht doch da strVerzeichnis&Dateiname
mit einer Programmschleife von A2 bis A11 kannst du deine Bereich dann abarbeiten
B2 bis B11 wo die Zielpfade und A2 bis B11 'hast dich verschrieben?
z.b.
If Dir(Range("B2").value, vbDirectory) "" Then 'hier wird geprüft ob es ein Verzeichnis gibt.
Anzeige
AW: VBA - Dateien vorhanden oder nicht?
23.07.2021 10:22:55
Yal
Hallo Frösi,
Liest sich zwar nicht wie ein Rosamund Pilcher, aber schwierig ist der Code auch nicht zu verstehen (zuerst in VB-Editor kopieren. Farblich ist es leichter zu erfassen).
Falls Du Details über einem VBA-Befehl (Trim, Cells, Left, Dir, ...) lege den Cursor drauf und tippe Strg+F1.

Sub Datei_vorhanden()
Dim i
Dim Verz As String
Dim DName As String
For i = 2 To 11
DName = Trim(Worksheets("Tabelle1").Cells(i, 1).Value) 'A1, A2, ...
Verz = Trim(Worksheets("Tabelle1").Cells(i, 2).Value) 'B1, B2, ...
If Left(Verz, 1)  "\" Then Verz = Verz & "\"
If Dir(Verz & DName)  "" Then
Debug.Print DName & " in " & Verz & " vorhanden."
Else
Debug.Print DName & " in " & Verz & " nicht vohanden."
End If
Next
End Sub
VG
Yal
Anzeige
AW: VBA - Dateien vorhanden oder nicht?
23.07.2021 12:58:37
Frösi
Hallo Yal, hallo Forenuser,
was müsste ich im Skipt ändern, wenn nach "Else" nicht Debug.Print DName & " in " & Verz & " nicht vorhanden." kommen soll, sonder da die Datei nicht vorhanden ist, die Datei aus dem Pfad, steht in Spalte dahinter E2, E3... nach Pfad steht in D2, D3... kopiert werden soll?
Über ein zielführendes Feedback wäre ich sehr dankbar.
VG
AW: VBA - Dateien vorhanden oder nicht?
23.07.2021 13:02:09
Oberschlumpf
Hi,
eine Bsp-Datei von dir, per Upload, könnte auch..ähh...zielführend sein.
Ciao
Thorsten
AW: VBA - Dateien vorhanden oder nicht?
23.07.2021 14:37:11
Yal
Hallo Frösi,
was Du da fragst, ist grundlage der VBA-Programmierung in Excel. Da Du ganz am Anfang bist, bekommst Du eine Starthilfe.
Ganz einfach:
Der Variable "Verz" (auf die linke Seite des "=") wird ein Wert aus der Blatt-Zellen übergeben (rechte Seite).
Umgekehrt: Zellen als Empfänger (linke Seite) und Werte ("vorhanden" / "nicht vorhanden") auf die rechte Seite.

Sub Datei_vorhanden()
Dim i
Dim Verz As String
Dim DName As String
For i = 2 To 11
DName = Trim(Worksheets("Tabelle1").Cells(i, 1).Value) 'A1, A2, ...
Verz = Trim(Worksheets("Tabelle1").Cells(i, 2).Value) 'B1, B2, ...
If Left(Verz, 1)  "\" Then Verz = Verz & "\"
If Dir(Verz & DName)  "" Then
Worksheets("Tabelle1").Cells(i, 5).Value = "vorhanden" 'Spalte 5 ist "E"
Else
Worksheets("Tabelle1").Cells(i, 5).Value = "nicht vorhanden"
End If
Next
End Sub
Tipps für den Einstieg:
_ Mach alles mögliche unter laufende Makro-Rekorder und schaue Dir den Code an. Immer wenige Aktionen, sons hast Du schnell 100 Zeilen Code.
_ gehe für alle Begriffe mit Strg+F1 auf die Online-Hilfe. Oft sind dort Beispiele vorhanden (Copy-pasten!)
_ probiere viel.
Ohne ein gesundes Grundwissen ist es schwierig, jemand zu unterstützen.
Viel Erfolg
Yal
Anzeige
AW: VBA - Dateien vorhanden oder nicht?
23.07.2021 07:03:33
Oberschlumpf
Guten Morgen,
zeig doch bitte mal per Upload eine Beispiel-Datei.
Wenn wir sehen können, was genau in den Zellen steht, können wir dir bestimmt besser helfen, als nur mit Beschreibungen, wie alles funktioniert.
Ciao
Thorsten

304 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