Datum

Titel

26.04.2024 21:51:33

Idee für Grafik

26.04.2024 21:29:07

PQ zufällige Reihenfolge

26.04.2024 17:18:47

Große Datenmenge in komplexes Diagramm verpacken

26.04.2024 16:22:47

Aktualisierung Verknüpfung bei geschlossener Quelldatei

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1728to1732

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Excel Makro Text

Forumthread: Excel Makro Text
8 Beiträge zu diesem Forumthread
Anzeige
301 Threads zu ähnlichen Themen
Top 100 Forumthreads

Excel Makro Text

16.12.2019 14:24:15

Laui

Liebes Excel-Helfer-Team,
Line Input #1, sTR
If sTR = "Fall " Then
Line Input #1, sTR
.Cells(lngLast, 3).Value = sTR
Else
.Cells(lngLast, 3).Value = sTR
End If
Aus einer Textdatei sollen Angaben ausgelesen werden und in eine Excel eingefügt werden.
Das Makro soll nach einem Stichwort suchen (in diesem Beispiel Fall und dann sollte es den dahinterstehenden Wert (Fall 324561) zurückgeben und diesen unter in die letzte Zeile der 3 Spalte einfügen also in Spalte C des Excel Dokuments soll dann ganz unten nur 324561 stehen . Das ermitteln der letzten Zeile erfolgt über lngLast = Cells(Rows.Count, 1).End(xlUp).Row + 1.
Leider kann er mit dem aktuellen Code nur den Wert auslesen wenn er unter dem gesuchten Wort steht, also:
Fall
324561
Eine Änderung der Txt. Datei ist leider nicht möglich.
Vielen lieben Dank für eure tolle Hilfe!
Lau

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Excel Makro Text

16.12.2019 14:48:54

ChrisL
AW: Excel Makro Text

16.12.2019 14:49:20

ChrisL
AW: Excel Makro Text

16.12.2019 16:12:47

Laui
AW: Excel Makro Text

16.12.2019 16:36:31

ChrisL
AW: Excel Makro Text

17.12.2019 13:49:22

Laui
AW: Excel Makro Text

17.12.2019 18:58:16

ChrisL
AW: Excel Makro Text

18.12.2019 07:59:55

Laui
offen owT.

18.12.2019 08:36:46

ChrisL

AW: Excel Makro Text

16.12.2019 14:48:54

ChrisL

Hi
Vielleicht so...

Sub t()
Dim strFile As String, strTemp As String
strFile = ThisWorkbook.Path & "\test.txt"
Open strFile For Input As #1
Do While Not EOF(1)
Input #1, strTemp
Debug.Print strTemp
If strTemp Like "Fall *" Then _
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = Replace(strTemp, "Fall ", "")
Loop
Close #1
End Sub

Ansonsten bitte Beispieldateien mit Ausgangslage und Wunschergebnis hochladen.
cu
Chris

AW: Excel Makro Text

16.12.2019 14:49:20

ChrisL

Mist :)
Die Debug.Print Zeile kann gelöscht werden

AW: Excel Makro Text

16.12.2019 16:12:47

Laui

Irgendwie funktioniert weder der Code noch der Upload gerade:(
In der Text Datei gib es mehrere Zeilen. Beispielzeile: Fall 599999.
Das Makro soll nach dem Begriff Fall suchen und dann in der Excel in einer neuen Zeile in der Spalte C einfügen. Weißt wie ich meine?
LG und vielen lieben Dank
Laura

AW: Excel Makro Text

16.12.2019 16:36:31

ChrisL

Hi Laura
Weißt wie ich meine?
Ich glaube schon und der Code sollte eigentlich passen.
Vor 30 Sekunden habe ich eine TXT-Datei hochgeladen. Der Upload sollte also funktionieren.
cu
Chris

AW: Excel Makro Text

17.12.2019 13:49:22

Laui

Wenn ich jetzt weitere Felder aus dem Text hinzufügen will wie z.B. in Spalte 4 der Ziel Datei in Excel...wie verknüpfe ich dann die Blöcke?
Vielen lieben Dank für deine Hilfe :))

AW: Excel Makro Text

17.12.2019 18:58:16

ChrisL

AW: Excel Makro Text

18.12.2019 07:59:55

Laui

Also wenn ich zum Beispiel erst nach Fall suchen möchte und dann nach Bearbeiter.
wie verbinde ich die beiden Code teile:

Sub t()
Dim strFile As String, strTemp As String
strFile = ThisWorkbook.Path & "\test.txt"
Open strFile For Input As #1
Do While Not EOF(1)
Input #1, strTemp
Debug.Print strTemp
If strTemp Like "Fall *" Then _
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = Replace(strTemp, "Fall ", "")
Loop
Close #1
Open strFile For Input As #1
Do While Not EOF(1)
Input #1, strTemp
Debug.Print strTemp
If strTemp Like "Bearbeiter *" Then _
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = Replace(strTemp, "Bearbeiter ", "")
Loop
Close #1
End Sub

Entschuldiige meine Umständliche Ausdrucksweise.
LG
Laura

offen owT.

18.12.2019 08:36:46

ChrisL

Auch nach dem x-ten Beitrag keine Beispieldatei, klare Ausgangslage und Ziel. Dafür viel wirres zusammenhangloses Geschwafel.
bitte such die jemand anders