06.03.2020, 12:12 (Dieser Beitrag wurde zuletzt bearbeitet: 06.03.2020, 12:12 von marose67.)
Wenn Du das gemacht hast gehst du auf Kopieren - Inhalte einfügen - Transponieren ...
Gruß
Marcus
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Moin!
Ich würde das Array gleich direkt in den Bereich schreiben:
Code:
Sub Zeilentrenner()
Dim arr
arr = Split(Mid$("*GPS#052#80#958006420813#RB58519NN#20200224T133322#11.04791833#49.44939833#0.55#0###SB##958006420813;0*GPS#052#79#958006420813#RB58519NN#20200224T133322#11.04791833#49.44939833#0.55#0###TF##958006420813;0*GPS#052#78#958006420813#RB58519NN#20200224T133322#11.04791833#49.44939833#0.55#0###SF##958006420813;0*GPS#052#77#958006420813#RB58519NN#20200224T133322#11.04791833#49.44939833#0.55#0###TV##958006420813;0", 2, 9 ^ 9), "*")
Range("A1").Resize(UBound(arr) + 1) = _
WorksheetFunction.Transpose(arr)
End Sub
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)