Wert in Datei schreiben und einlesen

Hallo,
ich kann mit Hilfe der beiden Codes einen Wert in eine Datei auslesen und wieder einlesen.
Nun habe ich das Problem, das der Wert "Daueremail" aus einer Combobox kommt.
D.h. er kann verschiedene Werte annehmen.
Wie schaffe ich es nun, dass ich entsprechend des Listindex des Eintrages der Combobox eine entsprechende Zeile beim Auslesen anspreche und hier den Wert ablege. Beim Einlesen wird der gleiche Index verwendet, da die Daten der Combobox gleich sind. Es kann aber sein, dass immer unter dem letzten Eintrag noch Einträge dazukommen.
Auslesen:
F = FreeFile
Open "DeineDatei.txt" For Output As #F
Print #F, Daueremail
Close #F
Einlesen:
Dim F As Integer
Dim Zeile1 As String
Dim Zeile2 As String
F = FreeFile
Open "DeineDatei.txt" For Input As #F
Line Input #F, Zeile1
Close #F

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

wenn in der Combobox z Bsp der 3. Eintrag ausgewählt ist + auch an der 3. Stelle in der txt-Datei überschrieben werden soll, dann vllt so (ungetestet, weil keine Bsp-Datei verfügbar):

Sub Einlesen()
Dim liIdx As Integer, F, G
F = FreeFile
Open "neueDatei.txt" For Append As #F
G = FreeFile
Open "DeineDatei.txt" For Input As #G
Do Until Eof(F)  ""
Line Input #F, Zeile1
If Userform1.ComboBox1.ListIndex = liIdx Then
Print #F, Userform1.ComboBox1.Text
Else
Print #F, Zeile1
End If
liIdx = liIdx + 1
Loop
Close
Kill "DeineDatei.txt"
Name "neueDatei.txt" As "DeineDatei.txt"
End Sub

Mein Code...
...öffnet "DeineDatei.txt"
...es werden alle Einträge durchlaufen, bis die Zeile in der Datei gefunden ist, die dem aktuellen Listeintrag (ListIndex) der ComboBox entspricht
...solange nicht gefunden, wird der alte Eintrag aus "DeineDatei.txt" in "neueDatei.txt" gespeichert
...wenn gefunden, wird der Eintrag in "DeineDatei.txt" mit dem ausgewählten Eintrag aus ComboBox überschrieben + in "neueDatei.txt" gespeichert
...wenn alle Einträge durchsucht wurden, werden beide Dateien geschlossen, "DeineDatei.txt" wird gelöscht + "neueDatei.txt" wird in "DeineDatei.txt" umbenannt
Hilfts?
Wenn nicht, zeig per Upload bitte: Excel-Datei mit Userform + Codes und die txt-Datei mit Bsp-Einträgen

Beliebteste Forumthreads (12 Monate)

Wert in Datei schreiben und einlesen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert in Datei schreiben und einlesen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread