Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1492to1496
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
Inhaltsverzeichnis

Excel Zeile per makr lückenlos in .txt exportieren

Excel Zeile per makr lückenlos in .txt exportieren
24.05.2016 09:41:54
MaxSt
Hallo Liebe Leute,
ich habe schon die makros erstellt die mir letztendlich die gewünschte Datenform bringen.
Nun will ich diese als lückenlose Zeile in ein .txt exportieren.
Ich schaffe es nur,dass es in der txt-datei untereinander steht, aber ich will es so:
Excel : A / B / C / D / E
Zeile 1: egal/ egal/ [a,b] /[c,d] /[e,f]
das soll in der .txt Datei nun so aussehen:
[a,b][c,d][e,f]
Kann mir hier jmd weiterhelfen ?
Vielen Dank im vorraus !

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

Betreff
Datum
Anwender
Anzeige
Alles in einer Variable zusammenfügen
24.05.2016 10:40:44
Michael
Dein Quellcode würde hier helfen. So kann ich nur vermuten was du machst und vage antworten.
Ich schätze mal du nutzt ein print Statement und druckst die einzelnen Zellen.
Was du machen kannst ist vorher eine Variable "zeile" zu deklarieren in er du alle Werte für die betreffende Zeile zusammenstellst und dann die komplette Variable druckst.
Dim zeile as String
zeile = zelle-1 & " / " & zelle-2 & " / " & ... & " / " & zelle-n
Wenn du einzelne Werte rauslassen willst kannst du das in eine for Schleife packen:
for each wert in Range("A1:E1")
if wert  "egal"
zeile = zeile & " / " & wert
end if

next wert

Anzeige
AW: Alles in einer Variable zusammenfügen
24.05.2016 12:00:21
MaxSt
Danke für die Rückmeldung Michael !
Mein Code sieht derzeit so aus:
Sub Text()
Dim strFile As String, strTmp As String
Dim rng As Range, rngC As Range
strFile = "C:...Desktop\Konverter.txt" 'Ausgabedatei
On Error Resume Next
Set rng = Rows(1).SpecialCells(xlCellTypeConstants)
On Error GoTo 0
If Not rng Is Nothing Then
Open strFile For Output As #1
For Each rngC In rng
strTmp = rngC.Text
Print #1, rngC.Text
Next
Close #1
End If
End Sub
Es handelt sich dabei bis zu 1000 Zelleneinträge, die wenn ich sie in eine kopieren will aus Platzgründen nicht erlaubt ist.
Kann man deine Idee da irgendwie einbauen ?
Vielen Dank :)
Max
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige