Hi,

ich soll ein Makro erstellen und muss dabei alle Exceldateien eines Ordners öffnen, allerdings weiß ich nicht, wie ich diese öffnen kann, denn diese Dateien habe unterschiedliche Namen.

ich hoffe ihr könnt mir helfen.

mfg

Borsti

versuchs mal damit:

Sub DateiOpen()

    Dim Datei As Variant

    With Application.FileSearch

        .NewSearch

        .LookIn = "C:\XXX\"

        .SearchSubFolders = True

        .FileName = "*.dot"

        If .Execute > 0 Then

            For Each Datei In .FoundFiles

                'hier die datei öffnen

            Next

        End If

    End With

End Sub

gruss

versuchs mal damit:

        .FileName = "*.dot"

gruss

würde ich in

        .FileName = "*.xls"

ändern

ja klar, war ein auszug aus nem quelltext

Hi, danke für eure Hilfe!

@k4fu

da ich den Quelltext ja haben möchte, und ihn versuche zu verstehen, fiel mir das auch auf

Aber trotzdem danke für den Hinweis!

Und nun zum aktuellen Code!

Sub DateiOpen()

Dim Datei As Variant

With Application.FileSearch

.NewSearch

.LookIn = "C:\XXX"

.SearchSubFolders = False

.Filename = "*.xls"

If .Execute > 0 Then

For Each Datei In .FoundFiles

'hier die datei öffnen

Workbooks.Open (Datei)

Sheets("bestSheet").Select

Rows("12:18").Select

Selection.Copy

'Workbooks(Datei).Close

Workbooks("DateiDieMakroEnthält").Activate

Sheets("ANSheet").Select

Cells(2, 3).Select.Paste

Next

End If

End With

End Sub

Er meckert mir beim Paste rum, dass ich ein Object angeben soll!

Ist meine Zelle die ich angegeben habe kein Object? Daran scheiterts im Moment noch.

mfg

Borsti

Habe es selber mit:

Cells(Zelle, 1).PasteSpecial Paste:=xlValues

gelöst.

Vielen Danke für euer bemühen!

Borsti