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
Blau In Zelle nach Begriff suchen und nachstehenden Wert kopieren
30.07.2020 17:46:12 Gast30802
NotSolved
30.07.2020 19:51:49 Gast6139
NotSolved
30.07.2020 23:59:53 Gast30802
Solved
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:
Gast30802
Datum:
30.07.2020 17:46:12
Views:
891
Rating: Antwort:
  Ja
Thema:
In Zelle nach Begriff suchen und nachstehenden Wert kopieren

Hallo,

ja im Prinzip kommst Du da so ran, könnte man auch per RegEx kürzer machen, oder auch in eine Function übertragen...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
 
Public Sub test()
 Const SEARCH_STRING1 As String = "| PUN-6X1-BL | Art Nr.: 159664 | VPE= 1m | Preis= 1,20€"
 Const SEARCH_STRING2 As String = "*VPE*"
 Const SEARCH_STRING3 As String = "*Preis*"
 Const SEARCH_CHARS1 As String = "= "
 Const SEARCH_CHARS2 As String = "m"
 Const SEARCH_CHARS3 As String = "€"
 Dim astrArray() As String
 Dim ialngIndex As Long, alngPos(1 To 4) As Long
 Dim strText As String, strSearch1 As String, strSearch2 As String
 strSearch1 = Mid$(String:=SEARCH_STRING2, Start:=2, Length:=Len(SEARCH_STRING2) - 2)
 strSearch2 = Mid$(String:=SEARCH_STRING3, Start:=2, Length:=Len(SEARCH_STRING3) - 2)
 astrArray = Split(Expression:=SEARCH_STRING1, Delimiter:="|")
 For ialngIndex = 0 To UBound(astrArray)
    If astrArray(ialngIndex) Like SEARCH_STRING2 Or astrArray(ialngIndex) Like SEARCH_STRING3 Then
        alngPos(1) = InStr(1, astrArray(ialngIndex), SEARCH_CHARS1)
        alngPos(2) = InStr(1, astrArray(ialngIndex), SEARCH_CHARS2)
        alngPos(3) = InStr(1, astrArray(ialngIndex), SEARCH_CHARS3)
        alngPos(4) = IIf(Right$(String:=astrArray(ialngIndex), Length:=1) = " ", 2, 1)
        strText = strText & IIf(astrArray(ialngIndex) Like SEARCH_STRING2, strSearch1, strSearch2) & " : " & _
           Mid$(String:=astrArray(ialngIndex), _
          Start:=alngPos(1) + 2, Length:=Len(astrArray(ialngIndex)) - alngPos(1) - 1 - alngPos(4)) & vbCr
    End If
 Next
 Call MsgBox(strText, vbExclamation)
End Sub

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
Blau In Zelle nach Begriff suchen und nachstehenden Wert kopieren
30.07.2020 17:46:12 Gast30802
NotSolved
30.07.2020 19:51:49 Gast6139
NotSolved
30.07.2020 23:59:53 Gast30802
Solved
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