kann mir jemand den Code verkleinern und den fehler beseitigen:
Sub LagerplatzkapazitätN()
' Makro1 Makro
ChDir "L:\Tra\All\Datei Txt"
Workbooks.OpenText Filename:= _
"G:\Transfer\Allgemein\Datei Txt\Platzkapazität GD16 Rollregal.txt", Origin:= _
xlWindows, StartRow:=6, 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), Array(4, 1)), TrailingMinusNumbers:= _
True
Columns("A:C").Select
Selection.Copy
Windows("Nachschub Rollregal.xlsm").Activate
Sheets("Tabelle1").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Platzkapazität GD16 Rollregal.txt").Activate
ActiveWindow.Close
Workbooks.OpenText Filename:= _
"L:\Tra\All\Datei Txt\Platzkapazität GD16 Reserve.txt", Origin:= _
xlWindows, StartRow:=6, 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), Array(4, 1)), TrailingMinusNumbers:= _
True
Columns("A:C").Select
Selection.Copy
Windows("Nachschub Rollregal.xlsm").Activate
Sheets("Tabelle2").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Platzkapazität GD16 Reserve.txt").Activate
ActiveWindow.Close
Sheets("Tabelle2").Select
Sheets("Tabelle2").Name = "Reserve"
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Rollregal"
Range("G20").Select
ActiveWindow.SmallScroll Down:=-15
Range("E1").Select
End Sub
Zwar kommt immer die MEldung: "Es befindet sich eine große Menge von Informationen in der Zwischenablage........"Kann man das irgendwie umgehen, aber die Listen sollen geschlossen (Platzkapazität GD16 Reserve.txt und die Platzkapazität GD16 Rollregal .txt )werden.
Kann mir jemand helfen, leider bin ich in VBA weng planlos
Danke
Gudrun