Sub find()
Dim myFile As String, text As String, textline As String, A As Long, file1 As Object, test As Object
A = 2
Do ' loopet starter
Dim pospri As Integer, posvarenr As Integer, posvltnr As Integer
Range(Cells(A, 1).Address).Select 'vælger cellen med filnavnet i
Set file1 = Selection 'sætter file1 = filnavnet
myFile = "Min folder\" & file1 'myfile sættes = filnavnet + stien
Open myFile For Input As #1 ' txt filen åbnes
Do Until EOF(1) 'Den "læser hele filen"
Line Input #1, textline 'Den gemmer det hele som en linje
text = text & textline
pospri = InStr(text, "Test 1") ' Den tekst som den skal finde
posvarenr = InStr(text, "Test 2") ' Den tekst som den skal finde
posvltnr = InStr(text, "Test 3") ' Den tekst som den skal finde
Range(Cells(A, 2).Address).Value = Mid(text, pospri + 10, 4) ' teksten der placeres i kolonne b
Range(Cells(A, 3).Address).Value = Mid(text, posvarenr + 10, 8) ' teksten der placeres i kolonne c
Range(Cells(A, 4).Address).Value = Mid(text, posvltnr + 8, 10) ' teksten der placeres i kolonne D
Range(Cells(A, 5).Address) = "=CONCATENATE(RC[-2],RC[-1])" ' teksten der placeres i kolonne e
Loop
Close #1 ' lukker filen
A = A + 1
Loop Until A = 5
End Sub