Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1048to1052
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
Inhaltsverzeichnis

Aus diversen Exceldateien einen Wert kopieren

Aus diversen Exceldateien einen Wert kopieren
13.02.2009 10:26:00
Fabio
Hallo zusammen,
kann mir jemand helfen (vielleicht mit der Lösung) - oder zumindest einen Tipp nach was ich suchen könnte.
Problem:
in einem Verzeichnis liegen knapp 50 Excel-Dateien
ich will in einer neuen Datei (gesamt.xls)
in der Spalte "C" alle Werte aus jeder einzelnen Exceldatei die im Feld Y61 stehen untereinander aufgelistet haben
Vielen Dank für Lösungen, Tipps und Tricks
Fabio

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus diversen Exceldateien einen Wert kopieren
13.02.2009 10:37:00
Josef
Hallo Fabio,
das geht zB. so.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub datenSammeln()
    Dim strPath As String, strFile As String, strTab As String
    Dim lngR As Long
    
    lngR = 2 'startZeile
    
    strTab = "Tabelle1" 'Auszulesende Tabelle - Anpassen
    
    strPath = "E:\Office\Excel\Forum" 'Verzeichnis - Anpassen
    
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    
    strFile = Dir(strPath & "*.xls")
    
    Do While strFile <> ""
        
        Cells(lngR, 3).Formula = "='" & strPath & "[" & strFile & "]" & strTab & "'!Y61"
        lngR = lngR + 1
        strFile = Dir
    Loop
    
End Sub

Pfad und Tabellenname musst du anpassen!
Gruß Sepp

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige