Leerzeichen ersetzen durch neue Zellen

Sub SA_einlesen() 'Variablen definieren Dim Quelldatei As String 'Speicherort der Textdatei Dim Inhalt As String 'Inhalt der Textdatei Dim Zeile As Integer 'Laufvariable Dim sWord1 As String 'Wort nach dem gesucht werden soll Dim AnsFound As Integer AnzFound = 0 'Wort nach denen gesucht werden soll sWord1 = "SA's" 'Quelldatei ansprechen Quelldatei = Application.GetOpenFilename("Textdateien (*.txt), *.txt") 'Tabellenblatt aktivieren ThisWorkbook.Worksheets("SA-Konfiguration").Activate 'Quelldatei öffnen Open Quelldatei For Input As #1 'SA-Codes in SA-Konfiguration eintragen Do While Not EOF(1) 'Schleife bis Datenende 'Inhalt der Quelldatei zeilenweise einlesen Line Input #1, Inhalt If InStr(1, Inhalt, sWord1) > 0 Then 'Zeile mit Suchwort gefunden AnzFound = AnzFound + 1 Sheets("SA-Konfiguration").Cells(AnzFound, 3) = Mid(Inhalt, 46) 'Nur die SA-Codes _ ausgeben End If Loop 'Quelldatei schließen Close #1 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SA_einlesen() 'Variablen definieren Dim Quelldatei As String 'Speicherort der Textdatei Dim Inhalt As String 'Inhalt der Textdatei Dim Zeile As Integer 'Laufvariable Dim sWord1 As String 'Wort nach dem gesucht werden soll Dim AnzFound As Integer Dim lngStelle As Long 'Stelle, an der das sWord1 gefunden wurde Dim arSAs 'ARRAY für die SAs einer Zeile AnzFound = 0 'Wort nach denen gesucht werden soll sWord1 = "SA's" 'Quelldatei ansprechen Quelldatei = Application.GetOpenFilename("Textdateien (*.txt), *.txt") 'Tabellenblatt aktivieren ThisWorkbook.Worksheets("SA-Konfiguration").Activate 'Quelldatei öffnen Open Quelldatei For Input As #1 'SA-Codes in SA-Konfiguration eintragen Do While Not EOF(1) 'Schleife bis Datenende 'Inhalt der Quelldatei zeilenweise einlesen Line Input #1, Inhalt lngStelle = InStr(1, Inhalt, sWord1) If lngStelle > 0 Then 'Zeile mit Suchwort gefunden AnzFound = AnzFound + 1 'Sheets("SA-Konfiguration").Cells(AnzFound, 3) = Mid(Inhalt, 46) 'Nur die SA-Codes _ ausgeben arSAs = Split(Mid(Inhalt, lngStelle + 7), " ") Sheets("SA-Konfiguration").Cells(AnzFound, 3).Resize(, UBound(arSAs) + 1) = arSAs ' _ Nur die SA-Codes End If Loop 'Quelldatei schließen Close #1 End Sub

Hi NoNet!
Super, klappt einwandfrei! Ich habe noch


arSAs = Split(Mid(Inhalt, lngStelle + 7), " ")

durch


arSAs = Split(Mid(Inhalt, lngStelle + 19), " ")

ersetzt, da ich mehr Leerzeichen in der .txt-datei hatte, als er in diesem Beitrag angezeigt hatte.
Aber das konntest du ja nicht wissen! :)
Eine Frage hab ich noch, und zwar suche ich nun noch drei einzelne Wörter. Ich hab das Gefühl, dass ich den schweren Part nun mit dir gemeinsam geschafft habe, den leichten aber nicht programmiert bekomme. Und zwar suche ich nun noch die Begriffe FGNR, Bau und Stelle.
Zu Bau:
Bau_____:_A1CD (Unterstriche sind Leerzeichen!) (So schaut die Zeile in der .txt-datei aus)
Hier brauch ich quasi das ABCD (es ist möglich, dass die Zeichenkette in der Länge variabel ist, sprich es können auch nur 3 Zeichen sein). Bau kommt öfters in der Datei vor. Ich brauche aber nur die Zeichenkette (in dem Fall A1CD) wo es zum ersten mal auftritt. Diese soll in die Sheets "Prüf" und "Bew" in die Zelle "I1"
Zu FGNR:
XX__ABCD_______blub_______FGNR_____________:_3O92J37 (Unterstriche sind Leerzeichen) (So schaut die Zeile in der .txt-datei aus)
Hier brauch ich quasi das 3O92J37(die Zeichenkette ist immer 7-stellig). FGNR kommt öfters in der Datei vor. Ich brauche aber nur die Zeichenkette (in diesem Fall3O92J37) wo es zum ersten mal auftritt. Diese soll in die Sheets "Prüf" und "Bew" in die Zelle "I2"
Zu Stelle:
XX__ABCD_______Blub_______Stelle_____________:_A22A-22-22-222 (Unterstriche sind Leerzeichen)(So schaut die Zeile in der .txt-datei aus)
Hier brauch ich quasi das A22A-22-22-222 in diesem Fall(die Zeichenkette kann unterschiedlich lang sein). Stelle kommt nur einmal in der Datei vor. Diese soll in die Sheets "Prüf" und "Bew" in die Zelle "I3"
Wie gesagt, ich hab es den ganzen Tag versucht, dachte wenn ich quasi die Schleife einfach wiederhole, nur mit den neuen Variablen, sollte es funktionieren. Jedoch komm ich nicht zum gewünschten Ergebnis bzw. bekomme kein Ergebnis. Dr. Google hab ich auch wieder durchforstet, leider ohne Erfolg.. Könntest du mir hierbei noch behilflich sein? Dann sollte ich auch fürs erste zufriedengestellt sein :)
Code sieht nun folgendermaßen aus:


Sub SA_einlesen()
'Variablen definieren
Dim Quelldatei As String        'Speicherort der Textdatei
Dim Inhalt As String            'Inhalt der Textdatei
Dim Zeile As Integer            'Laufvariable
Dim sWord1 As String            'Wort nach dem gesucht werden soll
Dim sWord2 As String            'Wort nach dem gesucht werden soll
Dim sWord3 As String            'Wort nach dem gesucht werden soll
Dim sWord4 As String            'Wort nach dem gesucht werden soll
Dim AnzFound As Integer
Dim lngStelle As Long           'Stelle, an der das sWord1 gefunden wurde
Dim arSAs                       'ARRAY für die SAs einer Zeile
AnzFound = 0
'Wörter nach denen gesucht werden soll
sWord1 = "SA's"
sWord2 = "FGNR"
sWord3 = "Bau"
sWord4 = "Stelle"
'Quelldatei ansprechen
Quelldatei = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
'Tabellenblatt aktivieren
ThisWorkbook.Worksheets("SA-Konfiguration").Activate
'Quelldatei öffnen
Open Quelldatei For Input As #1
'SA-Codes in SA-Konfiguration eintragen
Do While Not EOF(1)           'Schleife bis Datenende
'Inhalt der Quelldatei zeilenweise einlesen
Line Input #1, Inhalt
lngStelle = InStr(1, Inhalt, sWord1)
If lngStelle > 0 Then
'Zeile mit Suchwort gefunden
AnzFound = AnzFound + 1
'Sheets("SA-Konfiguration").Cells(AnzFound, 3) = Mid(Inhalt, 46) 'Nur die SA-Codes   _
_
ausgeben
arSAs = Split(Mid(Inhalt, lngStelle + 19), " ")
Sheets("SA-Konfiguration").Cells(AnzFound, 3).Resize(, UBound(arSAs) + 1) = arSAs '  _
_
Nur die SA-Codes
End If
Loop
'Quelldatei schließen
Close #1
End Sub

Hallo,
Ich bin gerade zwar nur am Handy, aber eine Idee zu FGNR zumindest: du müsstest den ersten Treffer finden (vom Code her leider keine Ahnung) und dann via Formel die letzten 7 Zeichen in I2 eintragen lassen. Heißt ganz schlecht ausgedrückt so etwas ähnliches wie "Range("I2").value =right(gefZelle, 7)
Zu den anderen beiden: kann man nicht per Formel die letzte Leerstelle suchen und alles rechts davon in die gewünschte Zelle schreiben? Wäre gerade die einfachste Methode, die mir einfällt.
Hier ein Link, wie man das letzte Leerzeichen finden kann: https://www.fasteasy.at/tippshop/index.php?mp=1&id=1&id2=14&id3=1194
Das kannst du ja vielleicht in VBA dann entsprechend programmieren.
Du musst nur bei Bau wieder den ersten Treffer finden. Und dann quasi wieder wie oben Range("I2").value 'Formel'...
Bei Stelle ist es vielleicht möglich, über InStr den Text Stelle zu suchen und ebenfalls wieder mit dieser Formel mit der du das letzte Leerzeichen findest, die letzten x Zeichen in Zelle I3 auszugeben.
Falls ich morgen die Zeit habe, Versuche ich dir das ein bisschen sinnvoller in Codeschnipsel darzustellen.
Ich Stelle weiterhin auf offen!
Gruß Pierre

Sub test() Inhalt = Range("D1") If InStr(Inhalt, "Bau ") Then c = InStr(Inhalt, "Bau ") Txt = Trim(Mid(Inhalt, InStr(c, Inhalt, ":") + 1, 100)) Txt = Trim(Left(Txt, InStr(Txt, " "))) 'Wohin laden? Bitte selbst ergaenzen End If If InStr(Inhalt, "Stelle ") Then c = InStr(Inhalt, "Stelle ") Txt = Trim(Mid(Inhalt, InStr(c, Inhalt, ":") + 1, 100)) Txt = Trim(Left(Txt, InStr(Txt, " "))) End If If InStr(Inhalt, "FGNR") Then c = InStr(Inhalt, "FGNR") Txt = Trim(Mid(Inhalt, InStr(c, Inhalt, ":") + 1, 100)) Txt = Trim(Left(Txt, InStr(Txt, " "))) End If End Sub

Beliebteste Forumthreads (12 Monate)

Leerzeichen ersetzen durch neue Zellen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

246 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Leerzeichen ersetzen durch neue Zellen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

246 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread