' Warnung : Dies ist ein EXCEL- MAKRO CODE
'----------------------------------------------------------------------
ChDir "D:\puffer" ' ins verzeichnis wechseln wo die b4x Datei ist
' import befehl mit @ als Trennzeichen
Workbooks.OpenText Filename:="D:\puffer\puffer.csv", _
Origin:=-535, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:="@", FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Rows("2:656").Select ' Makieren der Tabelle ab Zeile 2 bis zeile 656
Selection.Copy ' copieren
Sheets("meine_fertigen_tabelle").Select ' Ziel Tabelle auswählen
Range("A2").Select ' 1 Zelle der Ziel Tabelle makierern
Application.CutCopyMode = False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False ' Einfügen der Inhalte ("nur Werte damit die Datei nicht zerstört wird)
Sheets("Puffer").Select ' die nackte import-tabelle auswählen
ActiveWindow.SelectedSheets.Delete ' und killen ;)
End Sub