Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen aus xls Datei auslesen

Forumthread: 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

Anzeige

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
Anzeige
;

Forumthreads zu verwandten Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Anzeige
Daten aus anderen Quellen auslesen
Ryu

Hallo,
ich habe eine Excel Tabelle wo ich den Verbrauch von Materialien der letzten 6 Monate erfasse. Den Verbrauch kann ich entweder mir Monat für Monat, Artikel für Artikel zusammenkopieren oder ich kann den Verbrauch jeden Monats in die oben genannte Tabelle (andere sheets) kopieren und...
23.10.2008 16:34:00
Thread-ID: 1018740
4 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
im Verzeichnis aus allen Dateien Daten auslesen
walter

Hallo und guten Morgen,
ich habe u.a. Makro in der Anwendung, welches Daten aus allen Blättern EINER Datei im Blatt "Datenzusammenfassung" niederschreibt.
Jetzt würde ich ides gerne soweit verändern, daß alle Dateien ikn einem Verzeichnis (alle mit gleichem Aufbau) so ausgelesen werden...
08.01.2009 00:50:00
Thread-ID: 1037733
18 Beiträge
Anzeige
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 Beiträge
Import eines Arbeitsblatts aus anderer Excel-Datei
eliewsam

Hallo VBA-Experten,
ist es möglich, dass ich ausgehend von einer Excel-Datei ein einzelnes Arbeitsblatt einer anderen Excel-Datei importiere. Die Vergabe eines Namens für das neue (importierte) Arbeitsblatt sollte per Dialogfenster erfolgen.
Vielleicht kann mir einer von Euch in diesbez...
04.02.2009 09:06:29
Thread-ID: 1046879
4 Beiträge
Worksheet aus anderer Datei übernehmen
tco99

Hallo zusammen,
ich habe folgende Frage bzw. Bitte:
Ich habe zwei Excel-Dateien. Die eine Datei liegt immer im selben Verzeichnis, immer mit dem Namen "Daten" und hat ein einziges Worksheet mit dem Namen "Daten".
Jetzt müsste per Makro in der zweiten Datei das Blatt "Daten" der er...
05.02.2009 21:00:00
Thread-ID: 1047509
5 Beiträge
Formeln aus anderer Datei
Thorsten

Hallo zusammen,
ich hab ne Frage auf die ich im Forum keine Antwort finde.
Und zwar möchte ich in einer Excel-Datei formeln herunterziehen.
Jedoch bezieht sich die verknüpfung auf eine andere datei.
Dann geht das irgendwie nicht .
Und zwar steht in Zelle A1 von meiner Datei...
09.02.2009 10:55:56
Thread-ID: 1048583
3 Beiträge
Worksheet aus anderer Excel Datei einbinden
Matze

Hallo zusammen!
Ich habe folgendes Vorhaben:
Ich möchte per CommandButton eine andere Excel Datei öffnen, aus dieser die einzelnen vorhandenen Worksheets (5 Stück) kopieren und diese anschließend in die Urpsungsdatei als Worksheet einbinden. Das Öffnen der anderen Excel Datei klappt, b...
26.02.2009 15:06:16
Thread-ID: 1054417
7 Beiträge
Bereichsnamen auslesen, in anderer Datei einlesen
Jörg

Hallo Forum,
ich lese meine vergebenen Bereichsnamen aus mit
Sub Namen_lesen_und_Bereich_angeben() For n = 1 To Names.Count Cells(n, 1) = Names(n).Name Cells(n, 2) = Names(n).Value Next n End Sub
Anschließend kopiere ich das Register in eine andere Datei und versuche dort die Be...
03.03.2009 15:46:37
Thread-ID: 1056016
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige