Datei öffnen mit For-Schleife und auslesen
26.10.2005 11:59:56
Christian
ich versuche mich am automatischen Öffnen mehrerer Dateien und möchte hier das Datum auslesen (das Format ist 24. Sep 05) und dieses unterteilen in drei zellen (also für tag, monat und jahr jeweils eine) und den tag um einen erhöhen.
Da ich oben geschrieben habe mehrere Dateien: es langt schon, wenn bei der ersten datei das Datum ausgelesen wird.
Mein Problem: das öffnen klappt, allerdings nicht mit For-Schleife! Wieso?
-----
Sub oeffnen()
Dim i As Integer
Dim namen As String
For i = 3 To Range("E3")
namen = "c:\daten\" & Range("b3" & i).Value 'in B3 steht der erste Name der Datei, ohne .xls
Workbooks.Open namen
Next i
End Sub
------
Danke!
Anzeige