Hallo Hermann,
nachfolgendes Makro kopiert Dir aus allen Dateien in einem fest vorgegebenen Verzeichnis den Wert aus A1 in die aktuelle Datei in Spalte A.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Const strPath = "C:\Eigene Dateien"
Sub Pfade_ermitteln()
Dim Datei$
Dim lngrow As Long
Datei = Dir(strPath & "\*.xls")
Do While Datei <> ""
If Right(Datei, 4) = ".xls" Then
GetObject (strPath & "\" & Datei)
lngrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Cells(lngrow, 1) = Workbooks(Datei).Sheets(1).Range("A1")
Workbooks(Datei).Close
End If
Datei = Dir()
Loop
End SubDu musst in der Zeile
Const strPath = "C:\Eigene Dateien"noch den Pfad zwischen den Anführungszeichen anpassen.
Mehr ist leider bei den wagen Angaben nicht drin.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]