Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ausgebländete Tabelle

Ausgebländete Tabelle
28.07.2006 15:44:13
Tino
Hallo,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgebländete Tabelle
28.07.2006 16:45:27
ChrisL
Hallo Tino
ungetestet folgender Versuch:

Sub Datei_lesen ()
Dim WB1 As Workbook, WB2 As Workbook
On Error Goto ErrorHandler
Application.ScreenUpdating = False
Set WB1 = ActiveWorkbook
Set WB2 = 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
WB2.Columns("A:A").Copy WB1.Worksheets(1).Range("A1")
Application.DisplayAlerts = False
WB2.Close
ErrorHandler:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Gruss
Chris
Anzeige
AW: geht nicht Syntaxfehler
28.07.2006 19:03:17
Tino
Hallo,
geht nicht "Fehler Beim Kompilieren Syntaxfehler"
Gruss Tino
AW: Ausgeblendete Tabelle
29.07.2006 07:45:52
Gerd
Guten Morgen Toni,
probier mal.
Den Pfadnamen bitte noch anpassen.
Kopiert wird in "Tabelle2", der Mappe, in der sich der Code befindet.

Sub Datei_lesen()
Dim name1 As String
ThisWorkbook.Worksheets("Tabelle2").Visible = False
Application.ScreenUpdating = False
Workbooks.OpenText Filename:= _
"C:\Eigene Dateien\testtext.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    '(läuft nicht unter xl2000)
Columns("A:A").Copy
name1 = ActiveWorkbook.Name
ThisWorkbook.Worksheets("Tabelle2").Range("A1").PasteSpecial
Application.DisplayAlerts = False
Workbooks(name1).Close
Application.DisplayAlerts = True
ThisWorkbook.Worksheets("Tabelle1").Select
Application.ScreenUpdating = True
End Sub

Gruß
Gerd
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige