TXT-Spalten leeren

Forumthread: TXT-Spalten leeren

TXT-Spalten leeren

22.10.2014 13:41:56

Ludicla

Hallo Profis,
ich steh auf dem Schlauch
ich öffne aus Excel per Commandbutton eine TXT-Datei und möchte die
Spalte A und B leeren. Anschließend aus Excel Daten hineinkopieren.
Columns A:B. select komm ich auf einen Laufzeitenfehler
Wie muss es heissen das TXT Spalten geleert werden.
schon mal im voraus Dank für die Hilfe
Gruss Ludicla.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Range("A:B").Clear oT.

22.10.2014 13:52:41

Tino
AW: Range("A:B").Clear oT.

22.10.2014 14:03:10

Ludicla
AW: Range("A:B").Clear oT.

22.10.2014 14:24:59

Tino
AW: Range("A:B").Clear oT.

22.10.2014 14:28:00

Ludicla

Range("A:B").Clear oT.

22.10.2014 13:52:41

Tino

AW: Range("A:B").Clear oT.

22.10.2014 14:03:10

Ludicla

Hallo Danke für die Hilfe
aber es wird mir die Spalte A:B in Excel geleert und nicht in der Txt-Datei
dies ist die Aufzeichnung ohne leeren der Spalten der Txt-Datei
Workbooks.OpenText Filename:="L:\Förderenergien\Batchinput\tennet.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Windows("EEG-Abschlagsrechnung ab Oktober14.xlsm").Activate
Range("J2:K127").Select
Selection.Copy
Windows("tennet.txt").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("EEG-Abschlagsrechnung ab Oktober14.xlsm").Activate
Range("F10").Select
wo müsste das clear stehen ?
Gruss Ludicla

AW: Range("A:B").Clear oT.

22.10.2014 14:24:59

Tino

Hallo,
ich dachte du willst die Änderung nur in Excel machen.
Sonst müsstest du die Daten noch in die Textdatei schreiben.
Die alte TxT-Datei wird gelöscht, also erst mal nur testen!!!!!!!!
Hier ein Beispiel:

Sub Beispiel()
Dim F%, sFileName$, sLine$, n&
Dim ArData
'Pfad
sFileName = "C:\Datei.txt"
'löschen wenn vorhanden
If Dir(sFileName, vbNormal)  "" Then Kill sFileName
'Tabelle1 benutzter Bereich, evtl. anpassen
With Tabelle1.UsedRange
'in Textdatei, Zeilenweise einfügen
F = FreeFile
Open sFileName For Append As #F
For n = 1 To .Rows.Count
ArData = Application.Transpose(.Rows(n))
'Trennzeichen angeben für die Spalten, hier vbTab
sLine = Join(Application.Transpose(ArData), vbTab)
Print #F, sLine
Next n
Close #F
End With
End Sub

Gruß Tino

AW: Range("A:B").Clear oT.

22.10.2014 14:28:00

Ludicla

Danke ich mach mich an die Arbeit
Gruss Ludicla

Beliebteste Forumthreads (12 Monate)

Forumthread: TXT-Spalten leeren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread