Hallo ich habe folgende Code mit dem ich gerne mehrer Dateien öffen möchte bzw alle Dateien eines Ordners.
An sich funktioniert das Script mit einzelen Dateien.
Möchte jetzt aber mehrer damit verabreiten.
Leider bleibe ich beim Debuggen immer hier hängen Open strdatei For Input As #1
Hier das ganze Script
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
Über Hilfe würde ich mich freuen
Gruß