Private Sub Importstart()
Dim Text As String, Hfile As Integer, index As Integer
Hfile = FreeFile()
Open sSave For Input As Hfile
For index = 1 To 7
Input #Hfile, Text
UserForm1.Controls("TextBox" & CStr(index)).Text = Text
Next index
Close #Hfile
End Sub
Private Sub UserForm_Activate()
Dim intZeile As Integer
Dim intDatei As Integer
Dim strText As String
intDatei = FreeFile()
Open "C:\Ein Spatzenpaar.txt" For Input As #intDatei
Do Until EOF(intDatei)
'intZeile = intZeile + 1 ' die gelesenen Zeile zählen
Input #intDatei, strText
'If intZeile = 10 Then Exit Do ' nur 10 Zeilen lesen
If strText <> "" Then
If TextBox1.Text = "" Then
TextBox1.Text = strText
Else
TextBox1.Text = TextBox1.Text & Chr(10) & strText
End If
End If
Loop
Close #intDatei
End Sub
Private Sub UserForm_Activate()
Dim intZeile As Integer
Dim intDatei As Integer
Dim sFile As String
Dim strText As String
sFile = Application.GetOpenFilename("Text Dateien (*.txt), *.txt")
If sFile = "Falsch" Then Exit Sub
intDatei = FreeFile()
Open sFile For Input As #intDatei
Do Until EOF(intDatei)
'intZeile = intZeile + 1 ' die gelesenen Zeile zählen
Input #intDatei, strText
'If intZeile = 10 Then Exit Do ' nur 10 Zeilen lesen
If strText <> "" Then
If TextBox1.Text = "" Then
TextBox1.Text = strText
Else
TextBox1.Text = TextBox1.Text & Chr(10) & strText
End If
End If
Loop
Close #intDatei
End Sub