Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
916to920
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen aus xls Datei auslesen

Zeilen aus xls Datei auslesen
23.10.2007 13:04:21
Benjamin
Hallo,
ich habe eine Excel Liste und möchte mit einem Makro alle Zeilen auslesen bei denen in der Spalte F eine 1 steht. Die Ausgelesenen Zeilen sollen in eine neue Datei geschrieben werden, am Besten eine TXT Datei in einem Verzeichnis.
Die Liste sieht wie folgt aus:
A-------------------B--------------C------D------E-----F
23.10.2007-----12:49:31------0------V------------0
23.10.2007-----12:49:41------0------V------------0
23.10.2007-----12:50:11------0------V------------1
23.10.2007-----12:50:20------0------V------------1
Ich hoffe jemand kann mir bei dem Problem helfen
Mit freundlichen Grüßen
Benjamin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen aus xls Datei auslesen
23.10.2007 14:10:00
IngGi
Hallo Benjamin,
versuch's mal hiermit:

Sub test()
Dim rng As Range
Dim intFF As Integer
Dim intSpalte As Integer
Dim strZeile As String
On Error GoTo ErrHdl
intFF = FreeFile
Open "C:\Test.txt" For Output As #intFF
With Workbooks("Mappe4.xls").Sheets("Tabelle1")
For Each rng In .Range(Cells(1, 6), .Cells(Rows.Count, 6).End(xlUp))
If rng = 1 Then
For intSpalte = -5 To 0
strZeile = strZeile & rng.Offset(0, intSpalte) & ";"
Next 'intspalte
strZeile = Left(strZeile, Len(strZeile) - 1)
Print #intFF, strZeile
strZeile = ""
End If
Next 'lngZeile
End With
ErrHdl:
Close #intFF
MsgBox "Fehler " & Err.Number & ":" & vbLf & vbLf & Err.Description
End Sub

Gruß Ingolf

Anzeige
AW: Zeilen aus xls Datei auslesen
24.10.2007 15:13:41
Benjamin
Hallo Ingolf,
erstmal Danke für die Antwort.
Habe das Makro getestet aber es wird ein Fehler 0 angezeigt. Habe alles genau durchgeschaut aber nicht gefunden woran es liegen könnte.
Da Makro befindet sich in Modul 1 in der geöffneten xls Datei.
Nochmal falls ich mich im ersten Post nicht ganz verständlich ausgedrückt habe.
Die Spalte F soll komplett (oder bis Zeile 1000) durchsucht werden und alle Zeilen in der eine 1 steht in eine TXT Datei kopiert werden. Kopiert werden sollen aus den entsprechenden Zeilen die Spalten A,B,C und D.
Ich hoffe alles ist gut verständlich.

Anzeige
AW: Zeilen aus xls Datei auslesen
24.10.2007 16:34:35
IngGi
Hallo Benjamin,
da hat in der Zeile "For Each ..." ein Punkt gefehlt. Außerdem bin ich davon ausgegangen, dass auch die Spalten E und F mit kopiert werden sollen. Beides habe ich korrigiert. In der Zeile "With Workbooks ..." musst du die Namen der Arbeitsmappe und des Tabellenblattes anpassen.


Sub test()
Dim rng As Range
Dim intFF As Integer
Dim intSpalte As Integer
Dim strZeile As String
On Error GoTo ErrHdl
intFF = FreeFile
Open "C:\Test.txt" For Output As #intFF
With Workbooks("Mappe4.xls").Sheets("Tabelle1")
  For Each rng In .Range(.Cells(1, 6), .Cells(Rows.Count, 6).End(xlUp))
    If rng = 1 Then
      For intSpalte = -5 To -1
        strZeile = strZeile & rng.Offset(0, intSpalte) & ";"
      Next 'intspalte
      strZeile = Left(strZeile, Len(strZeile) - 1)
      Print #intFF, strZeile
      strZeile = ""
    End If
  Next 'lngZeile
End With
ErrHdl:
Close #intFF
MsgBox "Fehler " & Err.Number & ":" & vbLf & vbLf & Err.Description
End Sub

Gruß Ingolf
Anzeige
AW: Zeilen aus xls Datei auslesen
24.10.2007 17:18:00
Benjamin
Der Fehler erscheint noch immer.
Kann man auch in dem aktuellen Arbeitsblatt suchen lassen, vielleicht hilft das ja weiter.

AW: Zeilen aus xls Datei auslesen
25.10.2007 13:20:18
IngGi
Hallo Benjamin,
das geht mit
With ActiveSheet
statt
With Workbooks("Mappe4.xls").Sheets("Tabelle1")
Gruß Ingolf

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige