Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.06.2024 19:56:24
17.06.2024 19:39:46
Anzeige
Archiv - Navigation
756to760
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
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nur Zellen mit Inhalt in txt-Datei schreiben

Nur Zellen mit Inhalt in txt-Datei schreiben
26.04.2006 17:19:39
Seppl
Hallo
Hab hier ein Script das die Zellen Q8-Q1000 einer Tabelle in eine txt-Datei schreibt.
Kann mann das script so ändern, dass vom Bereich Q8-Q1000 nur die Zellen mit Inhalt in die txt Datei geschrieben werden und die leeren Zellen nicht?
Hier das Script:

Sub Textdatei()
Dim fs As Object, a As Object
Dim Rec As Range, Datnr&, Outp$
Dim Dat As String
'Datei "S01800.xxxx.txt" in D:\Eigene Dateien\ erzeugen
Dat = "S01800." & Sheets("Vorlaufsatz").Range("G8").Text
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\Eigene Dateien\" & Dat & ".txt", True)
a.Close
Datnr = FreeFile
Open "D:\Eigene Dateien\" & Dat & ".txt" For Output As #1
For Each Rec In Range("Q8:Q1000")
Outp = Rec.Text
Print #1, Outp
Outp = Empty
Next Rec
'Datei schließen.
Close #1
End Sub

Danke für eure Hilfe
Gruß
Sepp

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur Zellen mit Inhalt in txt-Datei schreiben
26.04.2006 17:37:13
Dan
Option Explicit

Sub Textdatei()
Dim fs As Object, a As Object
Dim Rec As Range, Datnr&, Outp$
Dim Dat As String
'Datei "S01800.xxxx.txt" in D:\Eigene Dateien\ erzeugen
Dat = "S01800." & Sheets("Vorlaufsatz").Range("G8").Text
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\Eigene Dateien\" & Dat & ".txt", True)
a.Close
Datnr = FreeFile
Open "D:\Eigene Dateien\" & Dat & ".txt" For Output As #1
For Each Rec In Range("Q8:Q1000")
Outp = Rec.Text
If (Outp <> "") Then Print #1, Outp ' hier eine Veraenderung ...
Outp = Empty
Next Rec
'Datei schließen.
Close #1
End Sub

Gruss Dan
Anzeige
AW: Nur Zellen mit Inhalt in txt-Datei schreiben
27.04.2006 07:22:21
Seppl
Super Danke
Das wars jetzt funzt alles
Gruß Sepp

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige