Hallo,
ich möchte gerne einen Wert/Text aus einer TextBox in einer externen Textdatei ablegen und einlesen.
ablegen
Dim F As Integer
F = FreeFile
Open "CC.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 "CC.txt" For Input As #F
Line Input #F, Zeile1
Close #F
TextBox1.Text = Zeile1
Nun habe ich aber das Problem das der TextBox noch eine Combobox vorgeschaltet ist.
Dadurch kann für jeden Eintrag in der Combobox ein Wert/Text im Textfeld zugeordnet werden.
Mein Problem ist nun, dass bisher der bestehende Text/Wert in der Textdatei überschrieben wird.
Es müsste der Listenindex des Eintrags in der Combobox ausgelesen werden und dann als Vorgabe für die Zeile in der der Text/wert in der Textdatei geschrieben werden soll, verwendet werden.
Anbei meine Datei mit der Userform (Prinzipeller Aufbau)
https://www.herber.de/bbs/user/103712.xlsm
Kann jemand helfen?
Gruß