Public Sub Command1_Click()
Dim F As Integer
Dim sFilename As String
Dim sLines As String
sFilename = "C:\Daten.dat"
sLines = Text1.Text & ";" & Text2.Text & ";"
F = FreeFile
Open sFilename For Output As #F
Print #F, sLines
Close #F
MsgBox "Eingaben wurden erfolgreich unter " & sFilename & " gespeichert."
Unload Me
End Sub
Textbox in Userform
herbybeatle 15.02.2007 - 106 Hits - 4 Antworten
Textboxen in Userform
herbybeatle 21.02.2007 - 80 Hits - 1 Antwort
Textboxen für Excel
ReneS 18.07.2007 - 12 Hits - 1 Antwort