Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1560to1564
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
Inhaltsverzeichnis

Textdatei mit VBA öffnen und Tabelle erzeugen

Textdatei mit VBA öffnen und Tabelle erzeugen
25.05.2017 22:41:30
richar
Hallo,
ich kenne mich nicht so gut mit VBA aber muss eine Aufgabe lösen. Ich habe mehrere Textdatei und muss wichtige Information drin sortieren. Es sieht zum beispiel so aus:
2015-04-21 07:04:55,384 [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] wird gezählt
2015-04-21 07:04:55,384 [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] anzahl banane ist 3
2015-04-21 07:04:55,3++ [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] zrtjfhvkfguks
2015-04-21 07:04:55,3++ [10] DOW Hi.Fa.Kl
2015-04-21 07:04:55,3++ [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] anzahl banane 3
2015-04-21 07:04:55,384 [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] anzahl banane
2015-04-21 07:04:55,384 [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] anzahl banane ist 3
Birne=5
Mango=98
2015-04-21 07:04:55,384 [10] DOW Hi.Fa.Kl - wasch.star - die größe 10 [12:25] lfhfufu
2015-04-21 07:04:55,384 [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] blablabla
2015-04-21 07:04:55,384 [10] DOW Hi.Fa.Kl - wasch.star - 500 Menge blablabla
2015-04-21 07:04:55,384 [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] wird gezähl
2015-04-21 07:04:55,394 [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] anzahl banane ist 5
2015-04-21 07:04:55,3++ [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] zrtjfhvkfguks
2015-04-21 07:04:55,3++ [10] DOW Hi.Fa.Kl
2015-04-21 07:04:55,3++ [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] anzahl banane 5
2015-04-21 07:04:55,399 [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] anzahl banane
2015-04-21 07:04:55,399 [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] anzahl banane ist 5
Birne=5
Mango=98
2015-04-21 07:04:55,310 [10] DOW Hi.Fa.Kl - wasch.star - die größe 18 [12:25] lfhfufu
2015-04-21 07:04:55,310 [10] DOW Hi.Fa.Kl - wasch.star - 21-04-2017 07:04:55,383 [12:25] blablabla
2015-04-21 07:04:55,311 [10] DOW Hi.Fa.Kl - wasch.star - 800 Menge blablabla
und so weiter
Ich brauche die Anzahl von Banane in einer Zelle , die größe in einer Zelle und Menge in einer Zelle. Alles in Excel. Außerdem brauche ich auch das Datum und die Uhrzeit von der Anzahl von Banane. Es soll im Excel zum Beispiel so aussehen
Uhrzeit Anzahl Banane größe Menge
07:04:55,3++ 3 10 500
07:04:55,399 5 18 800
und so weiter
Bitte kann Jemand mir helfen.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
unfertiger Fruchtsalat
26.05.2017 11:20:57
ChrisL
Hi
https://www.herber.de/bbs/user/113795.xlsm
Drück mal auf die Schaltfläche. Die Liste wird dadurch mal halbwegs bereinigt.
Wie du jetzt auf deine Uhrzeiten und Anzahlen im Beispiel kommst, müsstest du noch erklären.
Sub Makro1()
Dim iZeile As Long
Dim strSuche As String: strSuche = "banane"
With Worksheets("Tabelle1")
' alle "ist" entfernen
.Columns(1).Replace What:=" ist", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
' Text in Spalten
.Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False
' Überflüssige Zeilen entfernen
For iZeile = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If .Cells(iZeile, 13)  strSuche And .Cells(iZeile, 10)  "Menge" Then
.Rows(iZeile).Delete
ElseIf .Cells(iZeile, 13) = strSuche And .Cells(iZeile, 14) = "" Then
.Cells(iZeile, 14) = 1
ElseIf .Cells(iZeile, 10) = "Menge" Then
.Cells(iZeile, 13) = "Menge"
.Cells(iZeile, 14) = .Cells(iZeile, 9)
End If
Next iZeile
' Überflüssige Spalten entfernen
.Columns("C:L").Delete
.Columns("A:A").Delete
End With
End Sub

cu
Chris
Anzeige
AW: unfertiger Fruchtsalat
26.05.2017 14:49:22
richar
Hallo,
ich bedanke mich sehr für deine Antwort.Ich habe viele Textdatei und muss für jede Textdatei eine Tabelle Erzeuge. Tabelle für jede Textdatei muss so aussehen
https://www.herber.de/bbs/user/113803.xlsx
Gruß
Banana Joe
26.05.2017 15:37:59
ChrisL
Hi
https://www.herber.de/bbs/user/113804.xlsx
Ausser den Bananen erkenne ich nicht viel Gemeinsamkeit mit deiner ursprünglichen Aufgabenstellung. So kann man das mit einer Index-Formel relativ einfach umstrukturieren z.B.:
=INDEX(Tabelle1!A:A;((ZEILE()-2)*3)+2;1)
=INDEX(Tabelle1!D:D;((ZEILE()-2)*3)+3;1)
=INDEX(Tabelle1!E:E;((ZEILE()-2)*3)+4;1)
(siehe Tabelle2)
cu
Chris
Anzeige
AW: Banana Joe
26.05.2017 16:35:31
richar
Hi,
vielen Dank für deine Antwort, ich muss noch meine Frage richtig stellen.

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige