Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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

Anzeige
AW: Range("A:B").Clear oT.
22.10.2014 14:28:00
Ludicla
Danke ich mach mich an die Arbeit
Gruss Ludicla

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige