Thema Datum  Von Nutzer Rating
Antwort
29.07.2020 15:33:21 Gast7761
NotSolved
29.07.2020 16:01:49 Gast22525
NotSolved
29.07.2020 19:06:35 Gast74253
NotSolved
30.07.2020 13:02:47 Gast90675
NotSolved
30.07.2020 15:07:56 Gast91163
NotSolved
30.07.2020 17:46:12 Gast30802
NotSolved
30.07.2020 19:51:49 Gast6139
NotSolved
30.07.2020 23:59:53 Gast30802
Solved
Rot In Zelle nach Begriff suchen und nachstehenden Wert kopieren
 31.07.2020 16:44:54 Gast28028
Solved
31.07.2020 16:48:48 Gast65765
NotSolved
31.07.2020 20:18:03 Gast91243
NotSolved
31.07.2020 21:55:14 Gast30802+Gast28028
NotSolved
31.07.2020 22:06:10 Mase
NotSolved
01.08.2020 15:26:49 Gast40715
NotSolved
02.08.2020 16:51:29 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast28028		 Datum:
31.07.2020 16:44:54		 Views:
595		 Rating:
     
Antwort:
 Nein
Thema:
In Zelle nach Begriff suchen und nachstehenden Wert kopieren

Hallo,

hab noch ne RegExp-Variante, auch ganz kackig...;-)

Option Explicit

Public Sub test()
 Const SEARCH_STRING2 As String = "VPE"
 Const SEARCH_STRING3 As String = "Preis"
 Dim dblValue1 As Double, dblValue2 As Double
 dblValue1 = Reg_Exp(pvstrSearch:=SEARCH_STRING2)
 dblValue2 = Reg_Exp(pvstrSearch:=SEARCH_STRING3)
 Call MsgBox(SEARCH_STRING2 & " : " & dblValue1 & vbCr & SEARCH_STRING3 & " : " & dblValue2)
End Sub

Public Function Reg_Exp(ByVal pvstrSearch As String) As Double
    Dim objRegEx As Object, objMatch As Object
    Dim strText As String
    strText = "| PUN-6X1-BL | Art Nr.: 159664 | VPE= 1m | Preis= 1,20€"
    Set objRegEx = CreateObject(Class:="vbscript.regexp")
    With objRegEx
        .Global = True
        .IgnoreCase = True
        .MultiLine = False
        .Pattern = pvstrSearch & "= [+-]?([0-9]*[,])?[0-9]+"
        Set objMatch = .Execute(strText)
    End With
    Reg_Exp = CDbl(Split(Expression:=objMatch(0), Delimiter:="= ")(1))
    Set objRegEx = Nothing
    Set objMatch = Nothing
End Function

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.07.2020 15:33:21 Gast7761
NotSolved
29.07.2020 16:01:49 Gast22525
NotSolved
29.07.2020 19:06:35 Gast74253
NotSolved
30.07.2020 13:02:47 Gast90675
NotSolved
30.07.2020 15:07:56 Gast91163
NotSolved
30.07.2020 17:46:12 Gast30802
NotSolved
30.07.2020 19:51:49 Gast6139
NotSolved
30.07.2020 23:59:53 Gast30802
Solved
Rot In Zelle nach Begriff suchen und nachstehenden Wert kopieren
 31.07.2020 16:44:54 Gast28028
Solved
31.07.2020 16:48:48 Gast65765
NotSolved
31.07.2020 20:18:03 Gast91243
NotSolved
31.07.2020 21:55:14 Gast30802+Gast28028
NotSolved
31.07.2020 22:06:10 Mase
NotSolved
01.08.2020 15:26:49 Gast40715
NotSolved
02.08.2020 16:51:29 Mase
NotSolved