Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien schreiben

Forumthread: Dateien schreiben

Dateien schreiben
04.02.2004 00:03:11
Torben
Ich hätte da noch eine Frage...
wie kann ich mit VBA eine Textdatei erstellen in der von Tabelle1 die Zellen A4, B6, C7 und D19 untereinander geschrieben werden?
Mit bestem Dank im vorraus, der Torben
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien schreiben
04.02.2004 01:10:39
Nike
Hi,
mal in die Excel FAQ's von Hans reinspicken,
http://xlfaq.herber.de/
da findet sich fast immer was brauchbares ;-)
wie z.B. hier:
http://xlfaq.herber.de/gruppen/ex_textexport.html
Meld dich wenn du es noch etwas genauer brauchst,
ich gehe immer davon aus,
das Leute auch noch ein bischen selber knobeln wollen,
manchmal ist das aber nicht der Fall ;-)
Bye
Nike
Anzeige
AW: Dateien schreiben
04.02.2004 01:35:46
Josef Ehrensberger
Hallo Torben!
Dieser Code sollte das erledigen!


Sub text_exportieren()
Dim intC As Integer
Dim intK As Integer
Dim rng As Range
Dim Zellen As Range
Dim strText As String
Dim strSep As String
Dim sFile As String
'Tabelle und Zellen die in Textfile geschrieben werden
Set Zellen = Sheets("Tabelle1").Range("A4,B6,C7,D19")
'Variablen zur Ermittlung des letzten Wertes
intC = Zellen.Count
intK = 1
Close #1
'Name und Speicherort festlegen
sFile = Application.GetSaveAsFilename(initialfilename:="NewstrTextFile.txt", _
   fileFilter:="strText Files (*.txt), *.txt")
   If sFile = "" Then Exit Sub
'Öffnen der strTextdatei
Open sFile For Output As 1
'Schreiben der Daten
For Each rng In Zellen
strText = CVar(rng)
If intK = intC Then Print #1, strText; Else Print #1, strText
intK = intK + 1
Next
 
'Schließen der Textdatei
Close #1
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
AW: Dateien schreiben
04.02.2004 01:43:38
K.Rola
Hallo,
die Textdatei wird automatisch erzeugt, wenn sie noch nicht besteht:
Option Explicit

Sub Textdatei()
Const STRPFAD As String = "C:\Eigene Dateien\"
Const STRDATEI As String = "MeineDatei.txt"
Dim wsh As Worksheet, ff As Integer
Set wsh = Sheets("Tabelle1")
ff = FreeFile
Open STRPFAD & STRDATEI For Append As #ff
Print #ff, wsh.[a1]
Print #ff, wsh.[a2]
Print #ff, wsh.[a3]
Print #ff, wsh.[a4]
Print #ff, wsh.[a5]
Close ff
End Sub

Die Zellen musst du natürlich anpassen.
Gruß K.Rola
Anzeige
Danke an euch!!
04.02.2004 02:42:43
Torben
Danke ihr habt mir sehr geholfen! Es läuft!!!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige