vielleicht könnt Ihr mir helfen!
Möchte über diesen Code eine Textdatei einlesen.
Datei wird geöffnet, Zellen kopiert und Datei wieder geschlossen.
Nun möchte ich die Tabelle in der die Daten reinkopiert werden ausblenden.
(beim einfügen nicht einblenden) Dies bekomme ich einfach nicht hin.
Vielleicht gibt es auch einen Code der die Textdatei nicht in einer neuen Mappe öffnet sondern direkt in einer vorgegebenen Tabelle!?
Bin für jede Hilfe dankbar
Euer Tino
Hier noch mein Code:
Sub Datei_lesen ()
Dim name1 As String
Workbooks.OpenText Filename:= _
"C:\Dokumente und Einstellungen\ts\Desktop\Versuch.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Columns("A:A").Copy
name1 = ActiveWorkbook.name
Windows("Mappe1").Activate
Range("A1").PasteSpecial
Sheets(1).Range("A1").PasteSpecial
Application.DisplayAlerts = False
Workbooks(name1).Close
Application.DisplayAlerts = True
End Sub