Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen aus Textdatei importieren

Zeilen aus Textdatei importieren
26.06.2008 15:52:00
Rudolf
Liebe Experten,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen aus Textdatei importieren
26.06.2008 16:13:34
Anton
Hallo Rudi,
versuch's mal so:

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
      y = y + 1
    ElseIf strAct Like "*" & strBegriff2 & "*" Then    
      Test.Cells(y, 1) = strAct
      y = y + 1
    End If  
  Loop
  Close
End Sub  

mfg Anton

Anzeige
AW: Zeilen aus Textdatei importieren
26.06.2008 16:16:00
Rudolf
Hallo Anton,
klappt super.
vielen herzlichen Dank.
ciao
Rudi

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige