code anpassen
10.07.2003 14:02:15
marcus
mit dem aktuellen code habe ich eine txt. -datei in eine xls. datei konvertiert.
jetzt gibt's eine kleine aenderung in der txt. datei und mein code uebertraegt keine werte.
die txt.datei ist um ein zeichen versetzt.
beispiel:
if UCase$(Left$(tmp$, 5)) = "HALLE" also tmp$,5
jetzt ist das erste zeichen "leer" zweites zeichen ist dann die H und A und L und L und E.
was muss ich da veraendern.
Sub Step_2()
Application.Goto Reference:="StartDaten"
Do
Searchtext = ActiveCell.Value
If Searchtext = "" Then
Exit Do
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
dateinr = FreeFile
Open "a:\weekxx31.txt" For Input As #dateinr
For i = 1 To 3
Line Input #dateinr, tmp$
Next i
Go
Sub splitkopfdaten
Do
Line Input #dateinr, tmp$
If UCase$(Left$(tmp$, 5)) = "HALLE" Then
Line Input #dateinr, tmp$
Go
Sub spiltgruppenkopfdaten
Line Input #dateinr, tmp$
Line Input #dateinr, tmp$
While UCase$(Left$(tmp$, 5)) <> "SUMME"
Go
Sub splitfehler
ActiveCell.Value = Halle
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = abt
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = Gruppe
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = Schicht
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = quitstatus
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = fehlerort
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = Fehlerart
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = fehlertext
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = fehleranzahl
ActiveCell.Offset(1, -8).Range("A1").Select
Line Input #dateinr, tmp$
Wend
End If
Loop Until EOF(dateinr)
Close #dateinr
Exit Sub
splitfehler:
fehlerort = Mid$(tmp$, 5, 4)
Fehlerart = Mid$(tmp$, 15, 2)
fehlertext = Mid$(tmp$, 20, 44)
fehleranzahl = Val(Mid$(tmp$, 64, 3))
Return
spiltgruppenkopfdaten:
Halle = Mid$(tmp$, 3, 2)
abt = Mid$(tmp$, 14, 3)
Gruppe = Mid$(tmp$, 19, 2)
Schicht = Mid$(tmp$, 32, 1)
quitstatus = Mid$(tmp$, 34, 1)
Return
splitkopfdaten:
kw = Mid$(tmp$, 80, 2)
Return
End Sub