AW: Aber es gibt noch ein Problem
07.09.2016 09:02:24
Ali
hallo andrro,
erstmal vielen dank für deine hilfe und dass du dir so viel zeit nimmst.
Leider zeigt er bei mir trotzdem einen fahler in der find-zeile. anbei mein Code, den ich für mein blatt angepasst habe:
Sub einlesen_REP()
'Geh auf Seite Einlesen
Sheets("Statik").Activate
'Liste whlen (Unterschied Mac/Windows)
#If Mac Then
Materialliste = Application.GetOpenFilename(Title:="REP-Datei ffnen")
#Else
Materialliste = Application.GetOpenFilename(FileFilter:="REP-Dateien (*.rep), *.rep")
#End If
If Materialliste = False Then Ende = True: Exit Sub
'Blatt lschen
Range(Cells(2, 1), Cells(10000, 40)).ClearContents
'REP-Datei ffnen
Zeile = 1
Open Materialliste For Input As #1
'so lange bis das Ende des Reports erreicht ist
Do Until EOF(1)
'Zeile lesen
Line Input #1, textzeile
If Len(textzeile) = 0 Then GoTo Weiter
If InStr(1, textzeile, "Hauptwerte") > 0 Then Hauptwert = True: Startpunkt = Zeile
If InStr(1, textzeile, "Nebenwerte") > 0 Then Hauptwert = False
Select Case Trim(Left(textzeile, 4))
Case "Stab"
Line Input #1, textzeile
GoTo Weiter
Case Is