Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile aus Textdatei

Zeile aus Textdatei
17.02.2007 10:17:12
Tino
Hallo,
vieleicht könnt ihr mir helfen.
möchte aus einer ziemlich großen anzahl (größer 1800) von Textdateien eine bestimmte Zeile lesen!
Nun meine Frage ist es möglich, wenn mir die Zeilennummer bekannt ist, diese direkt auszulesen
ohne jedesmal die komplette Textdatei einzulesen (dauert mir zu lang)?
Könnt Ihr mir Helfen? Danke im vorraus!
MfG
Tino

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile aus Textdatei
17.02.2007 10:53:00
Oberschlumpf
Hi Tino
Meines Wissens funzt das direkte Zeilenauslesen nur dann, wenn deine txt-Datei die Struktur einer Datenbank hat.
Das heißt also feste Spaltenbreite.
In diesem Fall könntest du mit

Open "datei.txt" For Random As #1 Len zeilenlänge
Get #1,zeilennummer

(genaue Syntax ist mir gerad nicht bekannt - müsste ich auch erst mal wieder nachlesen)
auf den gewünschten Datensatz (Zeile) zugreifen.
Wenn es sich aber in der txt-Datei um Fließtext handelt, dann geht es nur mit

Open "datei.txt" For Input As #1
Do While Not Eof(1)
Line Input #1, zeile
If InStr(1,zeile,"Suchtext") > 0 Then
'hier der Code, der bei Finden deiner Zeile ausgeführt werden soll
Close 'wenn nach Finden der Zeile nichts weiter geschehen soll
Exit Sub 'wenn nach Finden der Zeile nichts weiter geschehen soll
End If
Loop
Close

Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: Zeile aus Textdatei
17.02.2007 11:08:47
Cardexperte
Hallo Tino,
so sollte es gehen, es wird immer die 5. Zeile ausgelesen und in Zelle a1 gechrieben:

Sub cmdlesen()
Dim dateiname As String, Dateinr As Integer
Dim temp As String
dateiname = "test.Asc"
Dateinr = FreeFile
Open dateiname For Input As Dateinr
Do While Not EOF(Dateinr)
Line Input #Dateinr, temp
i = i + 1
If i = 5 Then Cells(1, 1).Value = temp
Loop
Close Dateinr
End Sub

dies kann man natürlich so ausbauen, dass alle z.B. ASC in einem Verzeichnis ausgelesen werden und dann nacheinander ins Excelblatt geschrieben werden.
Gruss Ws
Anzeige
AW: Zeile aus Textdatei
17.02.2007 11:24:00
Tino
Hallo Oberschlumpf u. Ws,
Danke erstmal für Eure schnelle Antwort.
Werde Eure Versionen mal Testen, ob diese den gewünschten erfolg für mich haben.
Werde Rückmeldung geben.
Danke
Tino

302 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Anzeige
Inhalt einer Zelle in anderer Zelle als Formel
Elias

Guten Morgen,
ich bin auf der Suche nach einer Lösung für folgenden Sachverhalt.
In einer Tabelle wird aus dem Inhalt verschiedener Zellen über Verketten eine Zeichenfolge gebildet, die in einer anderen Tabelle als Formel herhalten soll.
(Kurzes) Beispiel, das Original ist furchtbar...
11.01.2009 06:01:22
Thread-ID: 1038572
6 Beiträge
Datum automatisch in andere Zelle kopieren
ThomasB

Hallo,
Nach langem möchte ich ein wenig in Excel wieder üben. Für meine Frau will ich eine Zuchttabelle für Kaninchen erstellen. soweit habe ich das auch in Griff. Nur mit dem Datum und der automatischen Kopierung gibt es ein kleines Problem. In der Celle C2 wird das erste Deckdatum eingetr...
15.01.2009 14:00:41
Thread-ID: 1040123
4 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Inhalt einer Zelle in mehrere Zellen aufsplitten
Joerschi

Hallo liebe Excel-Community,
ich möchte den Inhalt einer Zelle (getrennt durch Leerzeichen) in andere Zellen aufsplitten bzw. in anderen Zellen getrennt anzeigen lassen. Die Leerzeichen aus der Herkunftszelle sollen dabei ignoriert werden.
Z. B. steht in Zelle A1: "1 2 3 4 5"
Jetzt...
04.03.2009 11:46:03
Thread-ID: 1056268
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
3
1
3
5
3
22
6
8
3
4
8
7
3
12
1
2
1
13
2
3
4
1
4