Range(C12:E30) als .txt speichern / exportieren ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub export_TXT() Dim fileSaveName As String Dim Trennzeichen As String, Text As String Dim Zeile As Long, Spalte As Long Close #1 fileSaveName = "C:\Test.txt" Open fileSaveName For Output As #1 Trennzeichen = "," With Sheets("Auswertung") For Zeile = 12 To 30 Text = "" For Spalte = 3 To 5 Text = Text & .Cells(Zeile, Spalte).Value & Trennzeichen Next Spalte Print #1, Text = Left(Text, Len(Text) - 1) Next Zeile End With Close #1 End Sub

passt es noch nicht ganz .
zum Beitrag von Backowe : schriebt lauter Falsch Falsch ... untereinander ?
zu NoNet : das Prob. dabei, ist dass die Datei später dann auf einem MAC Rechner laufen soll,
der kann wohl , so wurde mir versichert auch Exceldateien bewältigen, die haben da wohl so eine Art abgespecktes Excel das wohl auch von MS entwickelt wurde ?
nur haben bislang einige Anweisungen immer wieder geändert werden müssen.
Bzgl. deines Adins - ob das nachher dann da lauft ?
bei mir auf Windows best. aber ... ?
Ich habe eben zeitgleich noch folgendes gefunden in der Recherche:
funktioniert soweit schon prima ABER in spalte H stehen in dem Excelsheet Formeln, die
Spalten E F G addieren etc. und somit auch ein ergebnis in Zahlenform ( Geldbetrag ) anzeigen.
diese Formelergebnisse werden leider nicht mit exportiert ?
kennt Ihr euch da aus , und könnt evt. einsehen woran das liegen könnte ?
PS. hatte mich vorhin verschrieben der Exportbereich ist C12:H30
Dim intRow As Integer, intColCount As Integer, intCol As Integer
Dim strTmp, fileandpath As String
fileandpath = ActiveSheet.Parent.Path & "\" & Range("N25").Value & ".txt"
Danke Euch sehr , udo-d

Sub test() Dim Dein_Bereich As Range Dim sZiel As String, Ausgabe As String Dim F As Integer Const strTrennzeichen As String = ";" 'Trennzeichen festlegen Set Dein_Bereich = Sheets("Tabelle1").Range("C12:E30") 'Dein Bereich sZiel = Application.GetSaveAsFilename("MeinTextFile", "Textdateien (*.txt), *.txt") If sZiel <> CStr(False) Then With Application For Each Dein_Bereich In Dein_Bereich.Rows If .WorksheetFunction.CountIf(Dein_Bereich, "") < Dein_Bereich.Columns.Count Then Ausgabe = Ausgabe & Join(.Transpose(.Transpose(Dein_Bereich)), strTrennzeichen) & vbCrLf End If Next Dein_Bereich End With If Ausgabe <> "" Then Ausgabe = Left$(Ausgabe, Len(Ausgabe) - 1) F = FreeFile Open sZiel For Output As #F Print #F, Ausgabe Close #F Else MsgBox "keine Daten" End If End If

achso, entschuldige , ich vergas ... hab bei deiner Anweisung das ";" gegen " " eine leere Stelle getauscht.
Aber egal ob ich, nun ; oder " " verwende, wenn man per Code diesen Bereich exportiert, dann werden
wenn in einer der Zeilen, und Zellen dort nichts drinne steht, das in dem Fall nicht berücksichtigt.
Sodass er in der jew. zeile immer nur das " " exportiert.
Das hat zur Folge, das wenn man das TXT File sich anschaut , die Werte sich von Zeile zu Zeile " vertikal " versetzen bzw. verschieben.
schöner anzuschauen wäre in dem Fall , wenn sozusagen die Einträge in den Spalten ( von der Ausrichtung her ) untereinander blieben - auch im exportierten File , sprich er müsste glaub lediglich leere zellen auch berücksichtigen ?
Hatte anfangs das ganze Tab.Blatt als TXT. gespeichert, und da funktioniert das dann , allerdings ist eben auch der ganze restl. Bereich auch dabei ( ausserhalb C12:H30)
hoff ich konnt das verständl. erklären ,
Lieben Dank
udo

Beliebteste Forumthreads (12 Monate)

Range(C12:E30) als .txt speichern / exportieren ?

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Range(C12:E30) als .txt speichern / exportieren ?

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread