Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1360to1364
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
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Anzeige
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige