Copy Paste Problem mit VBA

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Zelle alle Werte inclusive aller TAB's der gesamten Zeile stehen.
Beispiel: Sichtbar ist in dieser Zelle:
AutoOpel2500EUR
Eigentlich gehört dieser Text verteilt auf 4 Zellen:
Auto Opel 2500 EUR
Der String enthält aber die Informationen:
"Auto<TAB>Opel<TAB>2500<TAB>EUR"
Per Hand kann ich den Fehler einfach beheben, indem ich aus dem String den Teil hinter dem ersten Text heraus schneide und dan einfach in die erste Zelle der Zeile hereinkopiere
D.h. ich schneide mir mit "Strg+x" <TAB>Opel<TAB>2500<TAB>EUR ab und kopiere ihn in die erste Zelle und die Werte werden schön auf die Zelle B1, C1 und D1 verteilt. Dann schreibe ich in Zelle A1 das zuvor gemerkte "Auto"
Das habe ich jetzt versucht mit VBA nachzubasteln:
AA = Selection.Value
If Len(AA) > 4 Then
AA1 = Left$(AA, 4)
AA2 = Right$(AA, Len(AA) - 4)
ActiveCell.Value = AA2
ActiveCell.Value = AA1
End If
Leider verliert bei dieser Programmierung der String die "Tabs" für die nächtes Zellen.
Könnt Ihr mir weiterhelfen?
Vielen Dank
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Splitter() ''Das sagt der Makrorekorder Cells.Replace What:="", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _ True End Sub

Hallo Horst,
Super, das bringt mich um einiges weiter und...
mit kleiner Abänderung funktioniert das schon ganz gut.... statt Space= True -> Tab=True
Selection.TextToColumns Destination:=Range("A547"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True
Die <TAB> in meinem Beispiel sind von mir Platzhalter für die Steuerzeichen Tab im String
In meinem echten String sind aber leider auch mehrfach Tabs hintereinander. - <TAB> steht für Nächste Zelle
Um bei meinem Beispiel zu bleiben:
Auto<TAB><TAB>Opel<TAB>2500<TAB><TAB><TAB>EUR
Eigentlich möchte ich das die leeren Zellen auch leer bleiben, also das nach dem auslesen folgendes Ergebnis steht:
A1 B1 C1 D1 E1 F1 G1
Auto "Leer" Opel 2500 "Leer" "Leer" EUR
Wenn dieses Ergebnis erreicht ist, dann ist mein Problem gelöst :c)
Chris

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Copy Paste Problem mit VBA

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread