Werte aus SAP kopieren und in Excel einfügen

[DietmarD]

Hallo @all,
danke für eure vielen Lösungen und Erklärungen dazu.

Ich möchte eigentlich mit der VBA-Lösung weitermachen. Ob hier die Quelldaten in B16 eingefügt und dann gelöscht werden oder direkt von C16 aufgeteilt werden, ist eigentlich egal, die Quelldaten werden in B16 nach dem Text in Spalten nicht mehr benötigt.

Der Grund, warum ich es mit VBA machen möchte ist, dass nach dem Kopiervorgang aus SAP und dem Einfügen in Excel der Vorgang manchmal schon ohne Eingreifen so eingefügt wird, wie ich es benötige, und manchmal die Quelldaten im Zusammenhang in B16 stehen, warum weis ich erlichgesagt nicht. Im Fall, dass es schon beim Einfügen direkt klappt, würden die Formeln überschrieben.

Diese Erkenntnis habe ich allerdings erst jetzt beim Testen festgestellt. Deshalb entschuldigt bitte, wenn es unnötige Arbeit verursacht hat.

[schauan]

... reicht zw. passt denn mein Ansatz aus #18 - zweiter code oder brauchst Du weitere Unterstützung?

[DietmarD]

Hallo André,
der Ansatz passt.

Ich möchte den kopierten Text in B16 einfügen und wie beschrieben ab c16 über einen Button nach rechts verteilen. Das funktioniert mit meiner Makro Aufzeichnung. Nur wenn die Zelle leer oder eine andere Zelle markiert ist bekomme ich einen Fehler.
Dieser müsste angefangen werden.

Danke.
Es kann sein das ich hier erst wieder am Montag melde.

[schauan]

Bei mir wird's nun auch nicht mehr vor Sonntag Abend

[schauan]

Code:

Private Sub CommandButton1_Click()
If Range("b16").Value <> "" Then
  Range("b16").TextToColumns Destination:=Range("c16"), 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), Array(5, 1), Array(6, 1)), _
    TrailingMinusNumbers:=True
  Range("B16").ClearContents
End If
End Sub

[DietmarD]

Hallo Andre,

vielen Dank für deine Mühe, funktioniert einwandfrei. 

Würde das Thema dann auf erledigt setzen!