Daten in cvs-Datei verschieben
01.10.2015 13:11:54
svenja
Hallo Armin,
die Beispieltabellen sind:
https://www.herber.de/bbs/user/100525.xlsx
https://www.herber.de/bbs/user/100526.xlsx
Und ich habe etwas kompakter geschrieben wie folgt:
Sub csvformatieren()
' csvformatieren Makro
Range("A:A,C:C,E:E,G:G,I:I,K:K,M:M,O:O,Q:Q,S:S,U:U,W:W,Y:Y,AA:AA,AC:AC,AE:AE").Select
'Range("U1").Activate
Selection.Delete Shift:=xlToLeft
Cells.Select
Cells.EntireColumn.AutoFit
'Wenn Export aus NCR Tool angepasst ist, so:
'Range("A1:O1").Select
'Ansonsten mit dieser Lösung
Range("A:A").Select
'Leerzeile Einfügen
Selection.Insert Shift:=xlToRight
'Leerzeile Einfügen
Selection.Insert Shift:=xlToRight
With .activepage
.Cells(2, "G") = Cells.Offset(1, "C")
.Cells(2, "M") = Cells.Offset(1, "D")
.Cells(2, "N") = Cells.Offset(1, "E")
.Cells(2, "D") = Cells.Offset(1, "F")
.Cells(2, "E") = Cells.Offset(1, "G")
.Cells(2, "H") = Cells.Offset(1, "H")
.Cells(2, "I") = Cells.Offset(1, "I")
.Cells(2, "L") = Cells.Offset(1, "J")
.Cells(2, "O") = Cells.Offset(1, "K")
.Cells(2, "P") = Cells.Offset(1, "L")
.Cells(2, "Q") = Cells.Offset(1, "M")
.Cells(2, "R") = Cells.Offset(1, "N")
.Cells(2, "S") = Cells.Offset(1, "O")
.Cells(2, "C") = Cells.Offset(1, "P")
.Cells(2, "J") = Cells.Offset(1, "Q")
End With
End Sub
Aber mit dem "With" funktioniert es nicht richtig, kannst Du bitte mal darum helfen?
lg
Svenja