Hallo,
Ich habe folgendes Problem.
Dim Text As String, arr() As String, iCounter As Integer
Close
Open ThisWorkbook.Path & "\save\" & Range("B9").Text & ".txt" For Input As #1
Do Until EOF(1)
Line Input #1, Text
If InStr(Text, ";;;;;;;;;;") Then
Text = Replace(Text, ";;;;;;;;;;", "")
Es ensteht eine leere Zeile!!
Wie kann ich diese löschen?
Text = Left(Text, Len(Text) - 11)
End If
iCounter = iCounter + 1
ReDim Preserve arr(1 To iCounter)
arr(iCounter) = Text
Loop
Close

Open ThisWorkbook.Path & "\save\" & Range("B9").Text & ".txt" For Output As #1
For iCounter = 1 To UBound(arr)
Print #1, arr(iCounter)
Next iCounter
Close
End Sub
Danke Heinz