Herbers Excel-Forum - das Archiv

Problem Datei einlesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Problem Datei einlesen
von: Markus


Geschrieben am: 19.05.2002 - 16:45:31

Ich habe im Forum folgendes Makro gefunden:

Sub DateienEinlesen1()
On Error GoTo Fehler
Dim FileArray()
Dim i%, n%
Dim Ordner$, Extension$, dName$
Ordner = "C:\wer"
'Extension = InputBox("Dateityp:", , "*.xls")
ChDrive Left(Ordner, 1)
ChDir Ordner
dName = Dir(Extension)
Do While dName <> ""
n = n + 1
ReDim Preserve FileArray(1 To n)
FileArray(n) = dName
dName = Dir()
Loop
For i = 1 To n
ActiveSheet.Cells(i, 1) = FileArray(i)
Next
Exit Sub
Fehler:
MsgBox ("Ein Fehler ist aufgetreten." & Chr(13) & "Wahrscheinlich existiert das Verzeichnis:" & Chr(13) & "C:wer" & Chr(13) & "nicht!")
End Sub

Mein Problem ist hier, ich möchte das Excel nicht an der ersten Zeile anfängt, sondern an der fünften

Wenn ich bei I das einsetzte funktioniert das nicht

Danke schonmal

Markus

nach oben   nach unten

Re: Problem Datei einlesen
von: Rolf, Lgh.
Geschrieben am: 19.05.2002 - 17:10:44

Hallo Markus,
meinst Du so:

Gruss Rolf
nach oben   nach unten

Cool Danke
von: Markus
Geschrieben am: 19.05.2002 - 18:29:39

Dir

Markus


 nach oben

Excel-Beispiele zum Thema "Problem Datei einlesen"
Verschnittproblem mit Solver lösen Tabellenblattnamen in ein Listenfeld einlesen
Gefilterte Daten in eine ListBox einlesen Einlesen von Zellinhalten in Variablen
1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen Tabellenblattnamen in eine ListBox einlesen
Text aus UserForm-Textbox in Variable einlesen Blätter in ComboBox-Feld einlesen und auswählen
Dateinamen in Tabelle einlesen Namen einer Arbeitsmappe einlesen