Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
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
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen aus TextDatei nach dem x. Semikolon

Zeilen aus TextDatei nach dem x. Semikolon
Andre´
Hallo alle zusammen,
ich habe eine Text Datei https://www.herber.de/bbs/user/72316.txt
wo Werte mit Semikolon getrennt enthalten sind.
Ich möchte die ganze Zeile nacheinander angezeigt bekommen (Direktfenster), wo nach dem dritten
Semikolon beginnend ab der 6. bis 8. Stelle eine -2 vorkommt.
In meinem Bsp.wäre es die Zeile 2
1234;Wert11;Signal11;Signal-22;Signal33;Signal44
und die Zeile 3
12345;Wert111;Signal111;Signal-222;Signal333;Signal444
Hat jemand eine Makrolösung für mich.
Vielen Dank Im Voraus!
MFG Andre
AW: Zeilen aus TextDatei nach dem x. Semikolon
16.11.2010 20:25:39
CitizenX
Hallo,
vlt so:
Sub Semis()
Dim semi, i%, n%
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
semi = Split(Cells(i, 1), ";")
If InStr(semi(3), -2) > 6 And InStr(semi(3), -2)

Grüße
Steffen
AW: Zeilen aus TextDatei nach dem x. Semikolon
16.11.2010 20:27:57
Uduuh
Hallo,
wieso im Direktfenster?
Gruß aus’m Pott
Udo

AW: Zeilen aus TextDatei nach dem x. Semikolon
16.11.2010 21:09:34
Andre´
Hallo Steffen,
hallo Udo,
erstmals danke für Eure Antwort.
ich möchte eine Text-Datei auswählen, und dann nach meinem Bsp.die komplette Zeilen wenn Bedingung erfüllt, ist in eine weitere Text-Datei in den selben Ordner die Daten schreiben.
Datei Auswählen und in eine separate Text-Datei erzeugen/ schreiben, würde ich hinbekommen, nur wie ich die Abfrage gestalten muss ist für mich fremd. (deshalb Anzeige im Direktfenster)
So sollen die Daten in der neuen TXT Datei stehen, wenn die Bedingung erfüllt ist:
https://www.herber.de/bbs/user/72318.txt
Hoffe Ihr könnt mir weiter helfen!
MFG Andre
Anzeige
AW: Zeilen aus TextDatei nach dem x. Semikolon
16.11.2010 21:19:26
Tino
Hallo,
kannst mal testen
Sub Lese()
Dim sFilename$, sInhalt$
Dim F%
Dim ArrayData
Dim A&
Dim objMatch As Object

'Pfad zu Datei über Dialog 
sFilename = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If sFilename = CStr(False) Then Exit Sub

If Dir$(sFilename, vbNormal) <> "" Then
    'Datei einlesen 
    F = FreeFile
    Open sFilename For Binary As #F
    sInhalt = Space$(LOF(F))
    Get #F, , sInhalt
    Close
    'Text Zeilenweise in ein Array 
    ArrayData = Split(sInhalt, vbCrLf)


    With CreateObject("Vbscript.Regexp")
        .MultiLine = True
        .Global = True
        .IgnoreCase = True
        .Pattern = "[\S äüöß]+;[\S äüöß]+;[\S äüöß]+;[\S äüöß]+-2[\S äüöß]+"
    
        'Array durchlaufen 
        For A = Lbound(ArrayData) To Ubound(ArrayData)
            Set objMatch = .Execute(ArrayData(A))
            If objMatch.Count > 0 Then
                Debug.Print objMatch(0) 'Ausgabe 
            End If
        Next
    End With

End If

End Sub
Gruß Tino
Anzeige
AW: Zeilen aus TextDatei nach dem x. Semikolon
16.11.2010 21:37:09
Andre´
Hallo Tino,
danke für den Tipp, scheint zu funktionieren :-))
Ich versuche gerade zu verstehen, was Du mit der Codezeile:
.Pattern = "[\S äüöß]+;[\S äüöß]+;[\S äüöß]+;[\S äüöß]+-2[\S äüöß]+"
bewirkst.
Melde mich nochmals.
MFG Andre
AW: Zeilen aus TextDatei nach dem x. Semikolon
16.11.2010 21:58:16
Andre´
Hallo Tino,
Meine Wunsch: 
Ich möchte die ganze Zeile nacheinander angezeigt bekommen (Direktfenster), wo nach dem dritten  _
Semikolon beginnend ab der 6. bis 8. Stelle eine -2 vorkommt.
ist nicht ganz erfüllt, denn es wird nicht nach der 6. bis 8. Stelle nach der -2 gesucht.
Ich habe ein Zeichen mehr angehängt, https://www.herber.de/bbs/user/72320.txt
wo dann die -2 an der 7. Stelle beginnt, auch hier zeigt Dein Code die Zeile im Direktfenster, obwohl eigentlich nichts angezeigt werden dürfte.
Hast Du noch eine Idee.
MFG Andre
Anzeige
AW: Zeilen aus TextDatei nach dem x. Semikolon
16.11.2010 22:21:18
Tino
Hallo,
machen wir es einfach mit dem Like- Operator,
der ist auch einfacher zu verstehen, dafür aber ein klein wenig langsamer.
Sub Lese()
Dim sFilename$, sInhalt$
Dim F%
Dim ArrayData
Dim A&

'Pfad zu Datei über Dialog 
sFilename = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If sFilename = CStr(False) Then Exit Sub

If Dir$(sFilename, vbNormal) <> "" Then
    'Datei einlesen 
    F = FreeFile
    Open sFilename For Binary As #F
    sInhalt = Space$(LOF(F))
    Get #F, , sInhalt
    Close
    'Text Zeilenweise in ein Array 
    ArrayData = Split(sInhalt, vbCrLf)

        'Array durchlaufen 
        For A = Lbound(ArrayData) To Ubound(ArrayData)
            If ArrayData(A) Like "*;*;*;?-2*" Then
                Debug.Print ArrayData(A) 'Ausgabe 
            End If
        Next
End If

End Sub
Gruß Tino
Anzeige
AW: Zeilen aus TextDatei nach dem x. Semikolon
16.11.2010 22:40:58
Andre´
Hallo Tino,
Vielen DANK, funktioniert prima :-)))
MFG Andre
Ich habe noch eine Frage..
17.11.2010 19:22:58
Andre´
Hallo Tino und alle anderen
kann mir bitte noch jemand sagen, wie ich bei Übereinstimmung nur den Wert zwischen dem 2. und 3. Semikolon ausgeben kann und nicht die ganze Zeile.
Vielen Dank im Voraus!
MFG Andre
Habe es so gelöst....
17.11.2010 19:57:20
Andre´ 
Sub Lese()
Dim sFilename$, sInhalt$
Dim F%
Dim ArrayData
Dim A&
Dim semi
'Pfad zu Datei über Dialog
sFilename = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If sFilename = CStr(False) Then Exit Sub
If Dir$(sFilename, vbNormal)  "" Then
'Datei einlesen
F = FreeFile
Open sFilename For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
Close
'Text Zeilenweise in ein Array
ArrayData = Split(sInhalt, vbCrLf)
'Array durchlaufen
For A = LBound(ArrayData) To UBound(ArrayData)
semi = Split(ArrayData(A), ";")
If ArrayData(A) Like "*;*;*;?-2*" Then
Debug.Print semi(3) 'Ausgabe
End If
Next
End If
End Sub

Anzeige
geht mit dieser Codezeile
17.11.2010 19:58:56
Tino
Hallo,
Debug.Print Split(ArrayData(A), ";")(2)
müsste funktionieren.
Gruß Tino
AW: geht mit dieser Codezeile
17.11.2010 20:09:37
Andre´
Hallo Tino,
danke nochmals für Deine Hilfe, so funktioniert es auch.
In meinem vorletzten Beitrag habe ich den Wert nach dem 3. Semikolon nicht nach dem 2. so wie ich
es eigentlich wollte ausgegeben, aber durch testen zu schnell eingefügt......
MFG Andre

305 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