Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teil Finden Suchen

Forumthread: Teil Finden Suchen

Teil Finden Suchen
26.05.2014 08:15:42
Karel
Guten Morgen,
Möchte ein Teil einer Satz ausgeben, Hauptwort und Wort Links und Rechts davon.
Beispielsatz:
der wand ist im Mausgrau RAL 7005 gestrichen.
wobei die Farbe RAL immer unterschiedlich sind, nur das Hauptwort "RAL" ist eine Konstante.
diese teil brauche ich Mausgrau RAL 7005
BG
Karel

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: mit regex
26.05.2014 09:17:21
hary
Moin
Sind zu wenig Angaben. Wo soll der Text hin. Moechtest du es als Makro oder als UDF.
Hier mal zum testen. Markier die Zelle mit dem Inhalt und starte das Makro. 
Sub FarbeRALundZahl()
Dim Regex As Object
Dim objMatch As Object
Dim raus As String
Dim strText As String
strText = ActiveCell
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
.Pattern = "[A-Z,a-z]+\ (RAL) (\d+)"
.Global = True
Set objMatch = .Execute(strText)
raus = objMatch(0).Value
End With
MsgBox raus
End Sub

gruss hary

Anzeige
AW: mit regex
26.05.2014 20:22:12
Karel
Hallo Harry,
Makro ist OK,
Haben betreffenden bereich markiert FI:F500 Makro gestartet aber Laufzeitfehler 5
Daten können in ab G1 eingefügt werden nach unten
Viele Grusse
Karel

AW: mit regex
27.05.2014 06:39:05
hary
Moin Karel
War auch nur fuer die markierte Zelle.
Jetzt kannst du die Zellen auswaehlen. Das Ergebniss wird eine Spalte weiter eingetragen.
Es muss aber RAL gefolgt von einer Zahl drinstehen, bei nur RAL ohne nachfolgende Zahl passiert nix 
Sub FarbeRALundZahl()
Dim Regex As Object
Dim objMatch As Object
Dim zelle As Range
For Each zelle In Selection
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
.Pattern = "[A-Z,a-z]+\ (RAL) (\d+)"
.Global = True
Set objMatch = .Execute(zelle)
If objMatch.Count > 0 Then
zelle.Offset(, 1) = objMatch(0).Value
End If
End With
Next
End Sub

gruss hary

Anzeige
AW: mit regex
27.05.2014 08:04:03
Karel
Hallo Harry,
Jetzt geht es, vielen dank und ein Schöne Tag noch
Grusse
Karel
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige