Office: Startzeile/-spalte (Einlesen Textdatei)

Hallo,

folgender Code ist Teil meines Makros, mit dem u.a. die Werte einer neu eingelesenen Textdatei in die Spalte nebenan geschrieben werden.

Code:

intCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
If ActiveSheet.Cells(1, 1) <> "" Then intCol = intCol + 1
ActiveSheet.Cells(1, intCol).Resize(UBound(arrFSO) + 1, 1) = WorksheetFunction.Transpose(arrFSO)

Leider kann man nur bedingt die Startzeile/-spalte, in der die ersten Werte eingetragen werden, bestimmen.
D.h. die vertikale Versetzung funktioniert.
Die horizontale jedoch nicht bzw. habe ich um bei Zelle z.B. “B1“ zu beginnen, die Programmzeile - If ActiveSheet.Cells(1, 2) – wie hier aufgeführt abgeändert, aber es wird trotzdem bei “A1“ begonnen.

Weis jemand warum? (Eventuell auch eine Lösung?)

 

Moin vivian ,

irgendwie passt der Code nicht so 100%ig zu dem, was du darunter darstellst. Vorschlag: Schreibe doch einmal genau, was du machen/erreichen willst. Vielleicht können wir dir dann besser helfen.