für Ihre Hilfe danke ich Ihnen schon
im Vorhinein.
Anbei kommt der Code:
For i = 1 To Messpunktzahl ' 3. Block
Input #1, text1
Do
text1 = " " & text1
Loop Until Len(text1) > 108
' Text1 ist immer 108 Zeichen lang
If (text1 =
"
") Then
' falls text1 aus 108 Leerzeichen besteht
flag = 2
End If
For Spalte = 1 To 11
Text2 = Mid(text1, (Spalte - 1) * 10 + 1, 10)
Cells(Startzeile + i - 1, StartSpalte + Spalte - 1) =
Val(Text2)
Next Spalte
Next i
Wichtig ist nur der obere Teil, in dem in text1 eine Zeile aus Datei #1
eingelesen wird. Wenn dies eine Leerzeile ist (siehe if (text1 = " ),
wird dies erkannt und flag = 2 gesetzt.
Da nach dem Einlesen (input) immer eine Zeile weiter gesprunge wird
(Wagenvorschub) muß im Falle einer leeren Zeile wieder eines nach oben
gegangen werde.
Das Problem kann auch beschrieben werden mit: Lese nur die Zeile
ein, wenn etwas drinsteht?
Für einen Ratschlag bin ich sehr dankbar.