Sub Werteein()
Dim k As Single
Dim zeile As Single
Dim wert As String
Dim wert1 As String
Dim strdatei As String
Tabelle1.Rows.Clear
zeile = 2
k = 1
strdatei = Dir("E:\BADA_3.13\*.OPF")
Do While strdatei <> ""
Open strdatei For Input As #1
Do While Not EOF(1)
Line Input #1, wert
zeile = Tabelle1.UsedRange.Rows.Count + 1
If Left(wert, 2) = "CD" And zeile = 14 Then krit = 1
If Left(wert, 2) = "CD" And zeile = 19 Then krit = 2
If Left(wert, 2) = "CD" And zeile = 22 Then krit = 3
If Left(wert, 2) = "CD" And zeile = 56 Then krit = 4
Select Case krit
Case 1
wert1 = Mid(wert, 5, 8)
Cells(k, 1).Value = wert1
krit = 0
Case 2
wert1 = Mid(wert, 20, 11)
Cells(k, 2).Value = wert1
wert1 = Mid(wert, 47, 11)
Cells(k, 3).Value = wert1
krit = 0
Case 3
wert1 = Mid(wert, 34, 11)
Cells(k, 4).Value = wert1
krit = 0
Case 4
wert1 = Mid(wert, 7, 11)
Cells(k, 5).Value = wert1
krit = 0
End Select
Loop
Close #1
k = k + 1
strdatei = Dir
Loop
End Sub