Möchte auf einem Excel Tabellenblatt, eine separate Textdatei (c:\messwerte.txt) als Information in einer TextBox1 anzeigen lassen!
mfg
Ruedi
Private Sub Worksheet_Activate()
Dim strText As String
Dim strD As String
Dim lngL As Long
strD = "c:\messwerte.txt"
lngL = FileLen(strD)
Open strD For Input As #1
Do While Not EOF(1)
strText = Input(lngL, #1)
Loop
Close #1
TextBox1 = strText
End Sub
Gruß Uwe