Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1196to1200
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

Wert in Textdatei ändern

Wert in Textdatei ändern
SteffenS
Hallo Zusammen,
ich möchte gern einen bestimmten Wert in einer Textdatei über ein Makro ändern.
Die Textdatei ist dabei wie folgt aufgebaut:
2011;1
12325;TestTest
112325
Wie schaffe es den Wert in Zeile 3 - 112325 in z.B.: 9999999 zu ändern ohne die Datei in Excel als Tabellenblatt zu öffnen.
Das ändern der Werte möchte ich gern über eine schleife durchführen und die zu ändernden Werte stehen in einer Tabelle mit der Struktur
Dateiname, neuer Wert
99999.txt, 9999999
Danke Euch schonmal
VG
Steffen Schmerler

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wert in Textdatei ändern
02.02.2011 20:51:18
Rudi
Hallo,
die Tabelle auf Blatt 1.
Teste mal:
Sub xxx()
Dim i As Long, sDaten
With Sheets(1)
For i = 2 To .Cells(Rows.Count, 1).End(xlUp)
Open "c:\test\" & .Cells(i, 1) For Input As #1
sDaten = Split(input(LOF(1), 1), vbCrLf)
Close #1
sDaten(2) = .Cells(i, 2)
Open "c:\test\" & .Cells(i, 1) For Output As #1
Print #1, Join(sDaten, vbCrLf)
Close #1
Next i
End With
End Sub

Gruß aus’m Pott
Udo

OT: Bist du =Rudi, Udo...? ;-> Gruß owT
02.02.2011 21:38:50
Luc:-?
:-?
Danke Dir
02.02.2011 21:44:50
SteffenS
hat so funktioniert :-)
Steffen
eigentlich nicht
02.02.2011 22:15:16
Uduuh
Hallo Luc,
weiß der Teufel, wie Rudi da rein kommt.
Gruß aus’m Pott
Udo

Anzeige
AW: eigentlich nicht
02.02.2011 23:36:49
Reinhard
Hallo Udo,
das ist mir auch ein großes Rätsel *wild rumrat*
Gruß aus’m Pott
Udo

:-)
AW: Wert in Textdatei ändern: wie größ?
03.02.2011 09:54:49
ing.grohn
Hallo Udo,
in den Forumseinträgen gibt es immer wieder analoge Beispiele für Textdateien.
Sie werden immer in "einem Rutsch" eingelesen!!
(ist ja fürs handling auch sehr praktisch)
Wie groß darf son Ding denn eigentlich sein?
Mit freundlichen Grüßen
Albrecht
AW: Wert in Textdatei ändern: wie größ?
03.02.2011 10:27:55
Rudi
Hallo,
darf ich auch antworten?
Ich glaube, bis der Speicher platzt.
36MB (275.000 Zeilen a 20 Spalten) hab ich gerade problemlos gelesen.
Geht per Input erheblich schneller, als die .txt mit dem Editor zu öffnen.
Gruß
Rudi
Anzeige
AW: Wert in Textdatei ändern: wie größ?
03.02.2011 10:33:58
ing.grohn
Hallo Rudi,
ich auch Dich ansprechen können (Udo war der erste mit ner Antwort).
bis der Speicher platzt ist ne schöne Formulierung. 275.000 Zeilen a. 20 Spalten ist ja auch schon einen Messlatte.
Vielen Dank und einen schönen Tag
Mit ferundlichen Grüßen
Albrecht

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige