Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

textdatei einlesen und auswerten

textdatei einlesen und auswerten
31.03.2006 16:01:34
guthoff
Tach Leute, wer kennt sich aus:
Hier meine etwas komplizierte Aufgabenstellung:
Eine Textdatei sieht wie folgt aus:
.
.
.
850 5440,3360,0,255,-303
010 E 1.2
093 1
028 ,,,,0
851
852 1,7,0,4,0
-290 9
.
.
.
Die Textdatei soll auswählbar sein. Wenn diese beiden Zeilen
010 E 1.2
093 1
direkt nacheinander auftauchen, soll eine Zählervariable inkrementiert werden.
Wenn Dateiende soll der Variable-Wert in eine Zelle geschrieben werden.
Ich wäre für Eure Lösungsansätze sehr Dankbar...
FG

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

Betreff
Datum
Anwender
Anzeige
AW: textdatei einlesen und auswerten
31.03.2006 16:22:17
IngGi
Hallo ,
mein Vorschlag:

Sub Textstellen_zaehlen()
Dim strZeile As String
Dim lngCount As Long
Dim blnFlag As Boolean
Dim strDatei As String
Dim ff As Byte
strDatei = Application.GetOpenFilename
ff = FreeFile
Open strDatei For Input As #ff
Do While Not EOF(ff)
Line Input #1, strZeile
If blnFlag = True Then
If strZeile = "093 1" Then
lngCount = lngCount + 1
blnFlag = False
Else
blnFlag = False
End If
ElseIf strZeile = "010 E 1.2" Then
blnFlag = True
End If
Loop
Close #1
Range("A1") = lngCount
End Sub
Gruß Ingolf
AW: textdatei einlesen und auswerten
31.03.2006 19:24:43
Frankie
Danke erst mal...
Der Ansatz ist schon gut, aber es wird nicht gezählt. Das Ergebnis ist null egal was in der datei drinnen steht?
Ich habe eine TXT.Datei angelegt und :
.
.
850 5440,3360,0,255,-303
010 E 1.2
093 1
028 ,,,,0
851
852 1,7,0,4,0
-290 9
.
.
.
reingeschrieben. Das Ergebnis ist mit dem o.g. Makro trotzdem gleich null,
wo liegt der Fehler?
FG
Anzeige
AW: textdatei einlesen und auswerten
31.03.2006 22:31:11
IngGi
Hallo Frankie,
also bei mir läuft das Makro fehlerfrei - mit deiner Beispieldatei. Als Ergebnis bekomme ich 1 in Zelle A1. Hast du vielleicht irgendwelche Anpassungen vorgenommen?
Gruss Ingolf
AW: textdatei einlesen und auswerten
01.04.2006 02:15:36
Frankie
OK,Du hast recht. Es läuft. Aber wenn ich es wie folgt anpasse funktioniert es nicht wie ich es möchte....
Sub Textstellen_zaehlen()
Dim strZeile As String
Dim lngCount As Long
Dim blnFlag As Boolean
Dim strDatei As String
Dim ff As Byte
strDatei = Application.GetOpenFilename
ff = FreeFile
Open strDatei For Input As #ff
Do While Not EOF(ff)
Line Input #1, strZeile
If blnFlag = True Then
If strZeile = "093 1" Then
lngCount = lngCount + 1
blnFlag = False
Else
blnFlag = False
End If
ElseIf strZeile = "010 E" Then
blnFlag = True
End If
Loop
Close #1
Range("A1") = lngCount
Muss man festlegen das man nur die ersten 4 zeichen durchsuchen möchte?
Anzeige
AW: textdatei einlesen und auswerten
01.04.2006 23:00:24
IngGi
Hallo Frankie,
du musst die Variable strZeile ebenfalls auf die ersten 5 (nicht 4?) Zeichen kürzen, dann geht's wieder. Ich hab ausserdem noch 2 Leichtsinnsfehler von mir korrigiert, die ich erst gerade eben bemerkt habe. Kopier dir also bitte nicht nur die neue Programmzeile heraus, sondern das gesamte Makro. Die Fehler wirken sich zwar nur aus, wenn du mehrere Textdateien gleichzeitig mit Open...For geöffnet hast, aber - Gefahr erkannt, Gefahr gebannt.

Sub Textstellen_zaehlen()
Dim strZeile As String
Dim lngCount As Long
Dim blnFlag As Boolean
Dim strDatei As String
Dim ff As Byte
strDatei = Application.GetOpenFilename
ff = FreeFile
Open strDatei For Input As #ff
Do While Not EOF(ff)
Line Input #ff, strZeile
strZeile = Left(strZeile, 5)
If blnFlag = True Then
If strZeile = "093 1" Then
lngCount = lngCount + 1
blnFlag = False
Else
blnFlag = False
End If
ElseIf strZeile = "010 E" Then
blnFlag = True
End If
Loop
Close #ff
Range("A1") = lngCount
End Sub
Gruss Ingolf
Anzeige

302 Forumthreads zu ähnlichen Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 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
2
14
3
1
4
2
5
2
5
6
4
4
2
1
1
6
1
4
4
1
1
8
2