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

Alle Dateien eines Verzeichnisses bearbeiten

Alle Dateien eines Verzeichnisses bearbeiten
24.01.2003 10:22:29
Nino19
Hallo,
ich habe folgendes Problem:
Eine Datei ist geöffnet, aus dem starte ich ein Makro.
Dieses soll mit jeder Excel-Datei, die es in einem vorbestimmten Verzeichnis findet, dasselbe tun: Bestimmte Werte herauskopieren und in der Sammeldatei ablegen. Das habe ich bereits programmiert.
Ich weiss allerdings nicht, wie das mit dem Anwenden auf jede Excel-Datei eines bestimmten Verzeichnisses am besten automatisch geht.
LG, Nino

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Alle Dateien eines Verzeichnisses bearbeiten
24.01.2003 10:29:25
Andreas Walter
Ein Blick in der Recherche hilft Dir

https://www.herber.de/forum/archiv/156to160/t156107.htm

wäre ein Anfang. Such mal z.B. nach DIR (Directory)

Hilft nicht wirklich weiter
24.01.2003 10:50:27
Nino19
Hallo Andreas
danke, habs mir angesehen, versteh aber nichts.
Vielleicht kannst Du mir bei meinem spezifischen Problem helfen.
LG, Nino
Re: Hilft nicht wirklich weiter
24.01.2003 11:05:59
Andreas Walter
Wie wäre es mit
https://www.herber.de/forum/archiv/24to28/t25841.htm

Der Befehl lautet Dir()
Das ist der Ansatzpunkt den Du brauchst

Danke, und hier ist die Lösung
24.01.2003 14:07:40
Nino19
Danke,
Hier ist die Gesamtlösung, die ich nach Deinem Hinweis erarbeitet habe.
Nochmals das Problem:
Ein Makro ("Arbeit02") mit allen Dateien eines bestimmten Verzeichnisses bearbeiten.

Sub Jahr()
Dim DVerzeichnis As String
Dim DName As String
DVerzeichnis = Application.InputBox("Pfad eingeben") & "\"
DName = Dir(DVerzeichnis & "*.xls")
Do While DName <> ""
Workbooks.Open DVerzeichnis & DName
Arbeit02
DName = Dir
Loop
End Sub

LG, Nino

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige