Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
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
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einlesen aus Ascii-File

Forumthread: Einlesen aus Ascii-File

Einlesen aus Ascii-File
16.06.2003 17:06:50
Karl Chadim
Hallo Excel-Experten!
Ich möchte aus dem Excel heraus mittel VBA einen Zahlenwert aus einer Ascii-Datei auslesen, diesen Wert in eine bestimmte Zelle stellen und diesen Wert um 1 erhöht wieder zurück schreiben. Anschließend das Excel - File als PDF via Makro ablegen. Hat jemand eine Lösung dafür?

Herzlichen Dank
Karl Chadim


Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Einlesen aus Ascii-File
17.06.2003 16:28:27
Karl Chadim

Hallo Kollegen!
Ich habe selbst die Lösung gefunden. Vielleicht brauchts wer anderer auch noch:

Sub counter_setzen()

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("C:\temp\rechnr.txt")
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
s = ts.ReadLine
MsgBox s
ts.Close
Set f = fs.GetFile("C:\temp\rechnr.txt")
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
s = s + 1
ts.Write s
Cells(1, 1).Value = s
ts.Close

End Sub


Anzeige
;

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