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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen