Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
120to124
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
120to124
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem Datei einlesen

Problem Datei einlesen
19.05.2002 16:45:31
Markus
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Problem Datei einlesen
19.05.2002 17:10:44
Rolf, Lgh.
Hallo Markus,
meinst Du so:

Gruss Rolf
Cool Danke
19.05.2002 18:29:39
Markus
Dir

Markus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige