String in mehrere Zellen aufteilen
03.11.2023 15:54:30
reiner
https://www.herber.de/bbs/user/164012.xlsm
mit der Prozedur:
Sub TextZuSpalten1()
Range("A1:A3").TextToColumns FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1))
End Sub
werden die 3 Textstrings in Zelle A1, A2, A3 jeweils durch ein Semikolon getrennt und in nebeneinanderliegende Zellen verschoben.
Die Textstrings werden aus einer anderen Anwendung in EXCEL importiert. Die Einfügezelle ist jedesmal in einer anderen Zeile, da die Tabelle ständig fortgeschrieben wird.
Es kann auch sein dass sich die Einfügezelle in einer anderen Spalte als "A" befindet.
Aus diesen beiden Gründen ist es erforderlich, die Zelladressierung ("A1:A3") durch Variablen zu realisieren.
Die Spalte "A" sollte durch die Variable "Spalte" / die Zelle "1" sollte durch die Variable "ZelleAnf" / die Zelle"3" sollte durch die Variable "ZelleEnd" ersetzt werden.
Mein Problem ist nun, dass ich noch nicht die richtige Schreibweise gefunden habe um die Zelladressierung durch Variablen zu ermöglichen.
Wenn jemand einen Lösungsvorschlag hat wäre ich sehr dankbar
reiner