TextBox & Textdatei

Hallo zusammen,
ich hoffe, dass meine Frage nicht zuuuu lang wird, aber möchte versuchen mein Problem genau zu schildern..... *bitte lesen*
Der folgende Code wird mit einem Button ausgeführt:
Dim ff As Byte
Dim datum As Date
ff = FreeFile
Open "c:\Programme\MS Reisekosten\datum.txt" For Output As ff
datum = Cells(5, 23)
Write #ff, datum
Close ff
Dim fff As Byte
Dim Datuuum As Date
fff = FreeFile
Open "c:\Programme\MS Reisekosten\datum.txt" For Input As fff
Input #fff, Datuuum
Cells(5, 22) = Datuuum
Close fff
Dieser Code schreibt das Datum aus Zelle W5 in eine Textdatei und der zweite Teil des Codes liest das Datum aus der Textdatei und schreibt es in V5.
Das Datum soll aber nicht in V5 geschrieben werden, sondern direkt beim Starten von UserForm5 in TextBox1 angezeigt werden.
Wenn ich die Exceldatei öffne, dann wird automatisch Userform9 gestartet. Die UserForm beinhaltet folgenden Code:


Private Sub UserForm_Activate()
Application.Wait (Now + TimeValue("00:00:04"))
Unload Me
UserForm5.Show
End Sub

Es wird also die UserForm5 nach Anzeige der Neunten UserForm angezeigt. In UserForm5 soll dann in TextBox1 das Datum aus der Textdatei eingelesen werden.
Wer kann mir weiterhelfen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ersteinmal vielen Dank, dass Du mir hilfst!
In UserForm9 steht jetzt folgender Code: (Habe As String durch As Date ersetzt, da in der Textdatei ausschliesslich ein Datum steht)
Function DatumAuslesen() As Date
Dim fff As Byte
Dim Datuuum As Date
fff = FreeFile
Open "c:\Programme\MS Reisekosten\datum.txt" For Input As fff
Input #fff, Datuuum
'Cells(5, 22) = Datuuum
DatumAuslesen = Datuuum
Close fff
End Function


Private Sub UserForm_Activate()
Application.Wait (Now + TimeValue("00:00:04"))
Unload Me
Load UserForm5
UserForm5.TextBox1.Text = DatumAuslesen
UserForm5.Show
End Sub

In UserForm5 steht folgendes:


Private Sub CommandButton1_Click()
Worksheets("oanda (2)").Range("A1").QueryTable.Refresh BackgroundQuery:=False
Sheets("Eingabe").Range("W5") = Now
Dim ff As Byte
Dim datum As Date
ff = FreeFile
Open "c:\Programme\MS Reisekosten\datum.txt" For Output As ff
datum = Cells(5, 23)
Write #ff, datum
Close ff
Unload Me
UserForm5.Show
End Sub

Das Textfeld1 bleibt leider leer..... Was mache ich falsch? Habe ich die von Dir vorgeschlagenen Codes falsch eingefügt????
Vielen Dank für Deine Hilfe!
Michael S.

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread