Frage Pattern(RegEx)

Moin Allezusammen
Hab eine Frage zu Pattern.
Meine Tabelle sieht so aus, durch reinkopieren steht leider alles in den Zellen der SpalteA.
Die X'en stehen fuer Buchstaben. Wobei grosses X gleich Grrossbuchstabe und kleines x fuer Kleinbuchstaben.
Was ich brauche ist: Gib alles raus was nur Grossbuchstaben hat,die Uhrzeit,die einzelne Zahl hinter der Uhrzeit und den Teil mit der Wochentagbezeichnung.

Tabelle1

	A	B	C	D	E	F	G
1	Vorgabe	das soll rauskommen
2	xxx x-62911 Di-Sa(nS) XXXX 0:56 2 XXXX Xx-XxxxxxXxxx Xx-Xxxxxx Xxx XXX 100	Di-Sa(nS)	XXXX	00:56	2	XXXX	XXX
3	X x X 66445 Mo XXXX 9:13 4 XXXX Xxxxxx Xxxxxxxxxx XXXX 140
4	XX X-52010 Mo-Fr(S) XXXX 19:15 1 XXX Xxxxxxx Xxxxxx Xxx XXXX 100
5	XXX X-52464 Di(S) XXXX 11:12 2 XXXX Xxxxxxx Xxx Xxxxxxxx 100
6	XX-X X-2448 So XXXX 22:57 1 XXX Xxxxx Xxx Xxxxxxxx Xxx XXXX 160

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

Irgendwo hab ich einen Wurm drin. Er nimmt nicht bei allen die Zeit raus. .Pattern = " \d |[A-Z]{2,} | \d+:\d+ " .Global = True Set objM = .Execute(Cells(b, 1).Text) If objM.Count > 0 Then ReDim out(1 To objM.Count) For i = 3 To objM.Count out(i) = objM(i - 1).Value Cells(b, i + 8) = out(i) Next
Hab es auch so probiert

.Pattern = "([A-Z]{2,})|( \d )|(\d+:\d+)"

Bei den Grossbuchstaben hab ich so vorgegeben [A-Z]{2,} also mindestens 2 Grossbuchstaben.
Bin nicht so Firm mit RegEx.
Mit Text in Spalten nuesste ich zuviel korregieren.
Schon mal Danke fuers gruebeln.
gruss hary

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
Geht bestimmt auch eleganter in einem .Pattern
Das bekomm ich aber nicht hin.
Tabelle1

	A	B	C	D	E	F	G
1	KT P-50398 HGGL 20:27 2 HLER Alte Süderelbe Dre-Friedrichst HBS 100		HGGL	20:27	2	HLER	HBS
2	KT 50554 So HGGL 10:59 4 HHI Nür Rbf Ausfahrt Beddingen HBDD 120	So	HGGL	10:59	4	HHI	HBDD
3	KT 50558 Mo+Mi HGGL 10:30 4 HBDD Beddingen Alte Süderelbe HLER 100	Mo+Mi	HGGL	10:30	4	HBDD	HLER
4	xxx x-62911 Di-Sa(nS) XXXX 0:56 2 XXXX Xx-XxxxxxXxxx Xx-Xxxxxx Xxx XXX 100	Di-Sa(nS)	XXXX	0:56	2	XXXX	XXX
5	X x X 66445 Mo XXXX 9:13 4 XXXX Xxxxxx Xxxxxxxxxx ABCD 140	Mo	XXXX	9:13	4	XXXX	ABCD
6	XX X-52010 Mo-Fr(S) XXXX 19:15 1 XXX Xxxxxxx Xxxxxx Xxx XXXX 100	Mo-Fr(S)	XXXX	19:15	1	XXX	XXXX
7	XXX X-52464 Di(S) XXXX 11:12 2 XXXX Xxxxxxx Xxx Xxxxxxxx 100
8	XX-X X-2448 So XXXX 22:57 1 XXX Xxxxx Xxx Xxxxxxxx Xxx ABCD 160	So	XXXX	22:57	1	XXX	ABCD

Formeln der Tabelle

Zelle	Formel
B1	=machs($A1;SPALTE(A1))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Function machs(zelle As String, intIndex As Integer)
    Dim regex As Object
    Dim objMatch As Object
    Set regex = CreateObject("Vbscript.Regexp")
    machs = ""
    With regex
        .Pattern = " (Mo|Di||Mi|Do|Fr|Sa|So) ([A-Z]{3,}) ([0-2]?[0-9]:[0-5][0-9]) ([0-9]+) ([A-Z]+).+ ([A-Z]+)(?= \d{3}$)"
        If .test(zelle) Then
            Set objMatch = .Execute(zelle)
            machs = objMatch(0).submatches(intIndex - 1)
            Exit Function
        End If

        .Pattern = " (Mo.+?|Di.+?|Mi.+?|Do.+?|Fr.+?|Sa.+?|So.+?) ([A-Z]{2,}) ([0-2]?[0-9]:[0-5][0-9]) ([0-9]+) ([A-Z]+).+ ([A-Z]+)(?= \d{3}$)"
        If .test(zelle) Then
            Set objMatch = .Execute(zelle)
            machs = objMatch(0).submatches(intIndex - 1)
            Exit Function
        End If

        .Pattern = "(\b)([A-Z]{3,}) ([0-2]?[0-9]:[0-5][0-9]) ([0-9]+) ([A-Z]+).+ ([A-Z]+)(?= \d{3}$)"
        If .test(zelle) Then
            Set objMatch = .Execute(zelle)
            machs = objMatch(0).submatches(intIndex - 1)
            Exit Function
        End If

    End With
End Function

Dim regex As Object Dim objM As Object Dim out As Variant, a Dim i As Long, b As Long Set regex = CreateObject("VbScript.RegExp") With regex For b = 2 To Cells(Rows.Count, 1).End(xlUp).Row .Pattern = " \d |[A-Z]{2,} | \d+:\d+ " '--Uhrzeit und HGGL .Global = True Set objM = .Execute(Cells(b, 1).Text) If objM.Count > 0 Then ReDim out(1 To objM.Count) For i = 1 To objM.Count out(i) = objM(i - 1).Value Cells(b, i + 8) = out(i) Next End If Next End With

Sub TestRegex() Dim objRgx As Object Dim objMtch As Object Dim i As Long, j As Long Dim strIn As String Set objRgx = CreateObject("Vbscript.Regexp") With objRgx .Global = False .MultiLine = False .Pattern = "([Mo|Di|Mi|Do|Fr|Sa|So][^\s]+?)?\s([A-Z]{2,})\s(\d{1,2}:\d{2})\s(\d)\s([A-Z] _ +).+?([A-Z]+)?\s(\d{3})$" End With With ThisWorkbook.Sheets("Tabelle2") For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row strIn = Trim(.Cells(i, 1)) If objRgx.Test(strIn) Then Set objMtch = objRgx.Execute(strIn) For j = 0 To objMtch(0).SubMatches.Count - 1 .Cells(i, j + 2) = objMtch(0).SubMatches(j) Next End If Next End With Set objRgx = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

verwendete Formeln
Zelle	Formel	Bereich	R1C1 für Add In
B308: D310	=machs($A308;SPALTE(A308))		=machs(RC1,COLUMN(RC[-1]))

	A	B
382	EK 54178 Di-Sa(nS) HGGL 4:06 4 HBDD Beddingen Seelze Ost HLER 90
383	EK 54179 Di-Sa(nS) HGGL 2:26 4 HLER Seelze Ost Beddingen VPS HBDD 100	Di-Sa(nS)

verwendete Formeln
Zelle	Formel	Bereich	R1C1 für Add In
B382:B383	=machs($A382;SPALTE(A382))		=machs(RC1,COLUMN(RC[-1]))

	A	B	C
147	KT P-41520 Mi HGGL 23:47 1 HBS Ruhland Antwerpen-Noord HLER 100	Mi	HGGL
148	DGS P-41524 Di+Do HGGL 16:08 1 HBS Wustermark Einfg Antw-Waaslhvn Zu HLER 100	Di+Do	HGGL
149	DGS P-41711 Di-Sa HGGL 7:48 2 HLER Rotterdam-Pernis Frankfurt (O) HBS 90
150	DGS P-41712 So-Fr HGGL 22:21 1 HBS Frankfurt (O) Rotterdam-Pernis HLER 100	So-Fr	HGGL

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread