ich möchte aus einer Textdatei nur Zeilen importieren, die entweder 5001 oder 5039 enthalten.
So sieht die Datei aus:
017500001102007
014500180112
0105039M
014500103210
0105039M
Insgesamt enthält diese Datei mehr als 17.000 Zeilen, weshalb der normale Import nicht funktioniert.
Mit dem folgenden Makro komme ich leide rnicht weiter, weil es nur die Zeilen mit einer 5001 importiert.
Sub AlterImport()
Dim strAct As String, strBegriff As String, strAct2 As String, strBegriff2 As String
Dim Test
Dim Datei
Set Test = Worksheets("test")
strBegriff = "5001"
strBegriff2 = "5039"
Datei = Application.GetOpenFilename("Abrechnungsdateien (*.con), *.con")
Open Datei For Input As #1
Test.[c1] = Datei
y = 1
Do While Not EOF(1)
Input #1, strAct
If strAct Like "*" & strBegriff & "*" Then
Test.Cells(y, 1) = strAct
If strAct Like "*" & strBegriff2 & "*" Then
Test.Cells(y, 1) = strAct
End If
y = y + 1
'Exit Do
End If
Loop
Close
End Sub
Könnt Ihr mir bitte helfen?
Danke
Rudi