mit dem letzten Versuch bin ich schon ein wenig näher gekommen aber es ist immer noch nichts im Sheet data erschienen.
Hier mal mein Code, vlt. hat ja jemand von euch eine bessere Idee:
Workbooks.Open Messdaten
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
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), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array( _
_
_
13, 1 _
)), TrailingMinusNumbers:=True
Columns("M:M").Select
Selection.Delete
Columns("A:A").Select
Selection.Copy
ActiveWorkbook.Close True
Workbooks("originalbezüge1").Activate
With Sheets("data")
Range("A2").Select
Selection.Paste
End With
anmerkung1:
JA ich weiss mit Select sollte man nicht arbeiten, aber da alles andere auch nicht funktioniert hat habe ich es mal so ausprobiert.
anmerkung2:
Der obere Teil des Codes dient dazu die Daten (die alle in Spalte A mittels Leerzeichen getrennt sind) so zu formatieren dass sie in verschiedene Spalten kommen
anmerkung3:
Die Daten befinden sich in einem anderen File als das Makro + Ziel
Vielen Dank im vorraus und entschuldigt bitte die Rechtschreibung, bin ziemlich im Stress