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 ' Hochzähler der Zeilennummer zum Eintrag der Werte in Tabelle
k = 1 'Zeilennummern, die fortlaufend hochzählen
strdatei = Dir("E:\BADA_3.13\*.OPF")
Do While strdatei <> ""
'Zeileweise auslesen der Textdatei bis zum Dateienden
Open strdatei For Input As #1
Do While Not EOF(1)
Line Input #1, wert
zeile = Tabelle1.UsedRange.Rows.Count + 1 'hochzählen Zeile
If Left(wert, 2) = "CD" And zeile = 14 Then krit = 1 'Bedingungen für select case, Zeile beginnt mit CD und Zeilennummer 14 für ersten Wert
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) 'hier wird die Zeile zurechtgestutzt , was gebraucht wird
Cells(k, 1).Value = wert1 'hier wird dieser Wert in die entsprechende Zelle geschrieben
krit = 0 'Rücksetzen von Krit auf 0, damit Werte nicht überschrieben werden
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 'Textdatei wieder schließen
k = k + 1
strdatei = Dir
Loop
End Sub
|