Private Sub daten_einlesen_Click()
 
Dateiname = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
    If Dateiname = "Falsch" Then Exit Sub
 
    Open Dateiname For Input As #1
    Do While Not EOF(1)
 
 
 
    Dim strPosNr1(5) As String                      'Array erstellen
    varPosNr1 = Array()                             '"Zellen" aus .txt auswählen
    End Sub