Kopieren / Markieren Tabellen

Private Sub CommandButton2_Click()

ChDir "N:\Admin\ZEITERF\LOG"
Workbooks.OpenText FileName:="N:\Admin\ZEITERF\LOG\ZeLog.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1))

Columns("D:D").Select <==Hier scheint ein Fehler zu sein!!!
Selection.Copy
Windows("testmappe2.xls").Activate
Range("G1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFilter
Range("H3").Select
End Sub