Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
916to920
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gleiche Datei in mehreren Unterordner

Gleiche Datei in mehreren Unterordner
24.10.2007 16:49:00
Andre
Hallo VBA Profis,
ich habe ein Problem. Ich habe die gleiche Datei mit dem gleichen Namen in verschiedenen Unterordnern. Ich möchte jetzt, dass die Änderung die ich in einem Sheet per Makro mache auch in allen Sheets in den Unterordnern gemacht werden. Mit GetFileName kann ich ja jeweils einen Ordner öffnen und das File anklicken und dann geht mein Makro los und macht Änderungen. Ich suche aber eine Funktion, die alle gleichlautenden Dateien in den 80 Unterordnern für mich aufmacht, die änderung durchführt und dann wieder schließt oder die Änderungen vornimmt ohne die Datein überhaupt zu öffnen?
Könnt ihr mir bitte helfen.
Danke
Andre

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

Betreff
Datum
Anwender
Anzeige
Kopiere die Datei doch einfach
24.10.2007 16:58:07
NoNet
Hallo Andre,
genügt es nicht, die Datei einfach in die betreffenden Ordner zu kopieren ?
Gruß, NoNet

AW: Kopiere die Datei doch einfach
24.10.2007 17:07:01
Andre
Halo NoNet,
leider nicht. Ich muß mehr erklären. Die Dateien heißen zwar alle gleich aber jeder Ordner steht für einen anderen Bereich. Ich muß Daten umarbeiten von einem System auf ein anderes und wenn der Chef jetzt kommt und sagt: "In allen Sheets muß die Spalte A jetzt in Spalte C kopiert werden", dann muss ich alle Dateien aufmachen und das umkopieren.
Danke für die Hilfe
Gruß
Andre

AW: Kopiere die Datei doch einfach
24.10.2007 21:05:00
Tino
Hallo,
mit diesen Code müsste es gehen!
Klicken auf Extras | Verweise… und markieren im nun folgenden Fenster in der Liste den Eintrag Microsoft Scripting Runtime

Public FSO As New FileSystemObject
Sub Speichern()
Dim f As Folder
For Each f In FSO.GetFolder(ActiveWorkbook.Path).SubFolders
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
f & "\" & ActiveWorkbook.Name, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
Next
End Sub


Gruss
Tino

Anzeige
NEIN, damit ÜBERSCHREIBST Du Dateien
25.10.2007 09:03:00
NoNet
Hallo Tino,
mit Deinem Code werden die Dateien überschrieben, genau DAS wollte Andre ja NICHT !
Ansonsten wäre filecopy auch schneller !
Andre wollte ja nur TEILE der Workbooks gezielt ändern !
Dazu muss allerdings jede Mappe einzeln geöffnet und der betreffende Teil ausgetauscht werden.
Da halte ich allerdings eine Verknüpfung dieser Mappen zu einer änderbaren MASTER-Mappe für sinnvoller !
Gruß, NoNet

AW: NEIN, damit ÜBERSCHREIBST Du Dateien
25.10.2007 10:22:00
Tino
Hallo,
habe ich falsch verstanden. sorry
Gruss
Tino

Dachte eher an so etwas!!!
25.10.2007 14:09:00
Andre
Hallo Tino und NoNet,
Danke für eure Hilfe, aber ich dachte eher an soetwas, wie ich es in einem anderen Thread hier gelesen habe.
Hallo Zusammen,
da ich in der letzten Zeit tolle Unterstützung erfahren habe, wäre ich super-dankbar, wenn sich noch einmal jemand einem neuen Problem von mir annehmen würde ;-)
Das u.g. Skript öffnet, bearbeitet und schließt in einem bestimmten Ordner alle Excel-Dateien und verändert einen gewünschten String; ich hätte jedoch gerne, dass neben dem Ordner auch ALLE Unterordner nach Excel-Dateien durchsucht werden; das würde meine Sache sehr erleichtern.
Würde mich freuen, wenn es Vorschläge gäbe...
Herzlichen Dank,
Grüße,
Alexander

Sub GRAN_TOURISMO()
Dim f$, p$, i&
p = "C:\Ordner\"
f = Dir(p & "*.xls")
i = 1
Do While f  ""
Workbooks.Open Filename:=p & f
For Each w In Workbooks
If w.Name  ThisWorkbook.Name Then
For Each ws In Worksheets
ws.Columns().Replace _
What:="Flughafen", Replacement:="airport", _
SearchOrder:=xlByColumns, MatchCase:=False
Next ws
w.Close savechanges:=True
End If
Next w
i = i + 1: f = Dir
Loop
End Sub


Hio...
Nimm das Application Filesearch Objekt, da kannst du Seach Subfolders = True setzen...
Beispiel hier
***********************************************************************
c0bRa verweist auf ein anderes Forum, in dem die Lösung an einem anderen Beispiel gezeigt wird. Leider reichen meine VBA Kenntnisse nicht aus, dies miteinander zu kombinieren.
Gruß
Andre

Anzeige

302 Forumthreads zu ähnlichen Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
Anzeige
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 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
5
9
3
3
1
11
8
6
1
14
4
3
4
3
17
3
3
3
1
13
6
1
3
5
17