txt einlesen zum x-ten mal :-)
Joachim
ersetze
Sep = Chr(9)
gegen
Sep = ";"
und ersetze die Zeile
RowNdx = ActiveCell.Row
gegen
RowNdx = Range("A65536").End(xlup).Row + 1
Gruss Rainer
vielen herzlichen Dank für die Hilfe.
Gruss Micha
soweit ich das jetzt verstehe, wird in der Zeile
FName = Application.GetOpenFilename ....
der Datei-Öffnen Dialog aufgerufen. Dort kannst Du dann deine Datei auswählen.
Gruss Micha
ich habe jetzt alles geändert, wie du es beschrieben hast. in der Zeile:
Cells(RowNdx, ColNdx).Value = TempVal 'kommt die Fehlermeldung 1004
Ob du vielleicht bitte noch einmal helfen könntest?? Ich packe das nicht.
Wäre fantastisch.
Danke im Voraus.
Gruss Micha