title image


Smiley Da sieht man den Unterschied zwischen dunkelblauem und grünem Stern
Hallo ff,



Deinem Betreff stimme ich voll und ganz zu. Bei Deinem Code fällt mir das auseinanderklamüsern aber schon ziehmlich schwer. Zum Glück gibt es mehrere (auch für Anfänger begehbare) Wege. Sonst wäre VBA nur was für Experten. Und was die Länge des Codes angeht, unterscheiden sich die Varianten auch nicht so sehr *ganzganzstolz* :Sub XLS_Open()

XLSPfad = "Dein_Pfad\"

Set fso = CreateObject("Scripting.FileSystemObject")

Set fo = fso.GetFolder(XLSPfad)

Set fc = fo.Files

For Each Datei In fc

fn = Datei.Name

If Right(fn, 4) = ".xls" Then

Workbooks.Open (XLSPfad & fn)

Z1 = 1

Do While Not ThisWorkbook.Sheets(1).Cells(Z1, 1) = ""

Z1 = Z1 + 1

Loop

ThisWorkbook.Sheets(1).Cells(Z1, 1).Value _

= Workbooks(fn).Sheets(1).Cells(1, 1).Value

Workbooks(fn).Close

End If

Next

End Sub

Gruß, Frank



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: