Laufzeitfehler '9':
Index ausserhalb des gültigen Bereichs
ich verstehe den Fehler nicht noch habe ich irgendwo gefunden, wie ich mehrere csv Dateien der Reihe nach öffnen kann.
der Code soweit:
Private Sub Einlesen_Click()
pfad = Application.ActiveWorkbook.Path 'Pfad von aktuellem Excel file speichern - _
kann nicht angezeigt werden...?
Filename = ThisWorkbook.Name '"ECL_Partikelmessung.xlsm"
pfado = pfad & "\" 'N:\010-DS-CH\225-ECL\20_Docu\01_Cleanroom\ _
10_particle_measurements\ortsaufgeloest\ECL Partikel 191026\
datnam = Dir(pfado & "*.csv") 'Dateiname wird eingelesen "ecl01a.csv" _
LeereZeile = Sheets("Historie").Cells(1, 1) 'bei A1 wird die Aktuelle Zeile ausgegeben wo _
eingetragen werden soll
LeereSpalte = 2 'Laufvariable um gewünschte Spalte für die _
Einträge zu finden
MsgBox "Dateiname: " & datnam
'Start der Schleife um die Daten ins Hauptformular einzutragen
Do While datnam ""
ECLplatz = Sheets("Historie").Cells(3, LeereSpalte) & ".csv" 'PROBLEM ZEILE NACH DEM _
ERSTEN DURCHLAUF!!!**********************************************************************
Workbooks.Open (pfado & datnam) 'öffnet das csv File
sheetnam = Workbooks(datnam).ActiveSheet.Name
'Im Hauptformular die Stelle Finden, welche mit dem Filename übereinstimmt um dort einzutragen
Do While datnam ECLplatz
LeereSpalte = LeereSpalte + 4
ECLplatz = Workbooks(Filename).Sheets("Historie").Cells(3, LeereSpalte) & ".csv"
Loop
'Die 4 Zellen (0.3 bis 1um) werden vom csv File ins Hauptformular übertragen
Text = Split(Workbooks(datnam).Sheets(sheetnam).Cells(2, 1), ";")
Workbooks(Filename).Sheets("Historie").Cells(LeereZeile, LeereSpalte + 3) = Text(1) _
'0.3um
Workbooks(Filename).Sheets("Historie").Cells(LeereZeile, LeereSpalte + 2) = Text(2) _
'0.5um
Workbooks(Filename).Sheets("Historie").Cells(LeereZeile, LeereSpalte + 1) = Text(3) _
'0.7um
Workbooks(Filename).Sheets("Historie").Cells(LeereZeile, LeereSpalte) = Text(4) _
'1.0um
MsgBox "loop ende"
Loop
MsgBox "makro fertig"
Close #1
End Sub
Danke für eure Imputs :)
Patrick