Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
860to864
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelle in TXT - File exportieren

Tabelle in TXT - File exportieren
15.04.2007 21:02:11
Roger
Hallo zusammen,
ich habe folgendes Problem,
In meiner Tabelle befinden sich 3 Spalten mit Informationen.
Nun möchte ich den Inhalt der Spalten in ein TXT File exportieren.
Die Schwierigkeit dabei ist aber das die erste Spalte indexiert ist, das heisst nummeriert von zum Beispiel 1 bis 2000. Bei der 2 und 3 Spalte können dann beliebige Daten Eingegeben werden.
Beim exportieren in ein TXT File dürfen aber nur die Zeilen exportiert werden die Informationen besitzen.
Die erste Spalte mit dem index Zählt nicht als Information.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle in TXT - File exportieren
15.04.2007 21:09:22
Heinz
Hi,
lösch doch einfach die erste Spalte vor dem Export.
mfg Heinz

AW: Tabelle in TXT - File exportieren
15.04.2007 21:12:00
Peter
Hallo Roger,
auch bei VBA nein, wirst du dir im klaren darüber sein, dass es nur mit VBA zu machen ist:


Option Explicit
Public Sub Save_TxT_File()
'___Das aktuelle Blatt als TXT Datei abspeichern
'___Modifizierter Code von Herber - 19198
Dim Bereich      As Range
Dim lZeile       As Long
Dim iSpalte      As Integer
Dim lLetzte      As Long
Dim lSpalte      As Integer
Dim sTxt         As String
Dim Verzeichnis  As String
Dim Datei        As String
   Application.DisplayAlerts = False
   Verzeichnis = ActiveWorkbook.Path & "\"
   Datei = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".txt"
'___Zieldatei befüllen
   On Error GoTo ErrorHandler
   Close
   Open Verzeichnis & Datei For Output As #1
   On Error GoTo 0
   Set Bereich = Range("A1").CurrentRegion
   lSpalte = Intersect(Bereich.SpecialCells(xlVisible), Bereich.Rows(1)).Count
   lLetzte = Intersect(Bereich.SpecialCells(xlVisible), Bereich.Columns(1)).Count
   For lZeile = 1 To lLetzte
      For iSpalte = 2 To lSpalte
         If sTxt = "" Then
            sTxt = Cells(lZeile, iSpalte).Value
          Else
            sTxt = sTxt & " " & Cells(lZeile, iSpalte).Value
         End If
      Next iSpalte
      Print #1, sTxt
      sTxt = ""
   Next lZeile
   'MsgBox "Die Datei " & Datei & " wurde im gleichen Verzeichnis erstellt!"
   ActiveWorkbook.Close
ErrorHandler:
   Application.DisplayAlerts = True
End Sub 


Gruß Peter

Anzeige
AW: Tabelle in TXT - File exportieren
15.04.2007 21:22:00
Roger
Danke für die schnelle Antwort.
Mit VBA Nein habe ich gemeint das meine Kentnisse minimal sind.
Aber zurück zu meinem Problem.
Wenn die Spalte 2 und 3 leer sind brauche ich die Information aus Spalte 1 nicht.
Das heisst von dieser Zeile muss nichts exportiert werden.
Hier mein Versuch:

Private Sub CSVFile()
'CSV File generieren
Dim Bereich As Range
Dim Zeile As Range
Dim zelle As Range
Dim s As String
Set Bereich = Tabelle1.Range("A10:C1009")
Open "c:\Liste.csv" For Output As #1
For Each Zeile In Bereich.Rows
For Each zelle In Zeile.Cells
s = s & zelle.Text & ";"
Next zelle
s = Left(s, Len(s) - 1)
Print #1, s
s = ""
Next Zeile
Close #1
End Sub


Anzeige
AW: Tabelle in TXT - File exportieren
15.04.2007 21:53:00
Roger
Danke für die schnelle Antwort.
Mit VBA Nein habe ich gemeint das meine Kentnisse minimal sind.
Aber zurück zu meinem Problem.
Wenn die Spalte 2 und 3 leer sind brauche ich die Information aus Spalte 1 nicht.
Das heisst von dieser Zeile muss nichts exportiert werden.
Hier mein Versuch:

Private Sub CSVFile()
'CSV File generieren
Dim Bereich As Range
Dim Zeile As Range
Dim zelle As Range
Dim s As String
Set Bereich = Tabelle1.Range("A10:C1009")
Open "c:\Liste.csv" For Output As #1
For Each Zeile In Bereich.Rows
For Each zelle In Zeile.Cells
s = s & zelle.Text & ";"
Next zelle
s = Left(s, Len(s) - 1)
Print #1, s
s = ""
Next Zeile
Close #1
End Sub


Anzeige
Funktioniert noch nicht ganz
16.04.2007 06:09:32
Roger
Das Makro funktioniert wunderbar. Aber es werden immer noch Einträge exportiert die zwar in der 1 Spalte eine Information haben aber in der 2 und 3 nicht.

AW: Funktioniert noch nicht ganz
16.04.2007 09:14:00
Rudi
Hallo,

Private Sub CSVFile()
'CSV File generieren
Dim Bereich As Range
Dim Zeile As Range
Dim zelle As Range
Dim s As String
Set Bereich = Tabelle1.Range("A10:C1009")
Open "c:\Liste.csv" For Output As #1
For Each Zeile In Bereich.Rows
If Zeile.Cells(2)  "" Or Zeile.Cells(3)  "" Then
For Each zelle In Zeile.Cells
s = s & zelle.Text & ";"
Next zelle
s = Left(s, Len(s) - 1)
Print #1, s
End If
s = ""
Next Zeile
Close #1
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
Klappt einwandfrei
16.04.2007 14:22:28
Roger
Herzlichen Dank an Rudi.
Nun funktioniert es einwandfrei.

274 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige