Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zahl in Text Datei hochzählen

Zahl in Text Datei hochzählen
17.05.2015 22:49:31
Andre´
Hallo alle zusammen,
ich möchte mit einem Makro erreichen, dass die Zahl in der ersten Zeile der Text-Datei mit jedem Ausführen um 1 hochgezählt wird.
Hier die Bsp.: TXT https://www.herber.de/bbs/user/97689.txt
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
MFG Andre

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zahl in Text Datei hochzählen
18.05.2015 00:52:55
MatthiasG
Hallo Andre,
so, zum Beispiel, allerdings noch ohne Fehlerprüfungen:

Option Explicit
Sub Hochzaehlen()
Dim ff1 As Integer, ff2 As Integer
Dim zeile As String
Dim fn As String
fn = ThisWorkbook.Path & "\text.txt"
ff1 = FreeFile
Open fn For Input As #ff1
ff2 = FreeFile
Open fn & ".tmp" For Output As #ff2
'erste Zeile lesen, erhöhen und schreiben
If Not EOF(ff1) Then
Line Input #ff1, zeile
Print #ff2, CStr(Val(zeile) + 1)
End If
'Rest kopieren
While Not EOF(ff1)
Line Input #ff1, zeile
Print #ff2, zeile
Wend
'Alles schließen
Close #ff1
Close #ff2
'Alte Datei löschen, neue umbenennen
Kill fn
Name fn & ".tmp" As fn
End Sub

Gruß Matthias

Anzeige
AW: Zahl in Text Datei hochzählen
18.05.2015 12:53:13
Andre´
Hallo Matthias,
vielen Dank für die Lösung, funktioniert wie gewünscht!
MFG Andre

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige