ich habe folgendes Problem:
Ich lese mit diesem Code eine Textdatei aus
Private Sub CommandButton1_Click()
Dim x As String
Dim Filenum As Integer
Filenum = FreeFile()
h = 1
Open "C:\T.TXT" For Input Access Read As #Filenum
Do While Not EOF(Filenum)
Line Input #Filenum, x
Worksheets("Tabelle1").Cells(h, 2) = x
h = h + 1
Loop
Close #Filenum
End Sub
Nun möchte ich, wenn es Änderungen gibt diese wieder zurück in die T.txt schreiben lassen.
z.B. Stand in der ersten Zeile in der t.txt 05.03.2003 dieser Wert wird ins worksheet übernommen. Beim beenden der Anwendung steht dann z.b. 06.03.2003 drinnen und das sollte wieder in die t.txt in dessen erste zeile geschrieben werden.
Kann mir da jemand helfen?
Danke euch schonmal
Markus