' Spalten ausschneiden und kopieren
Windows("sport.txt").Activate
Columns("B:B").Select
Selection.Cut
Windows("karsten-k.txt").Activate
Columns("K:K").Select
ActiveSheet.Paste
Windows("sport.txt").Activate
Columns("C:C").Select
Selection.Cut
Windows("karsten-k.txt").Activate
Columns("D:D").Select
ActiveSheet.Paste
Windows("sport.txt").Activate
Columns("D:D").Select
Selection.Cut
Windows("karsten-k.txt").Activate
Columns("F:F").Select
ActiveSheet.Paste
Windows("sport.txt").Activate
Columns("E:E").Select
Selection.Cut
Windows("karsten-k.txt").Activate
Columns("L:L").Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="C:\Temp\karsten-k.txt", _
FileFormat:=xlText, CreateBackup:=False
End Sub