Thema Datum  Von Nutzer Rating
Antwort
10.06.2020 12:31:29 Tobi
Solved
10.06.2020 12:42:47 Mase
NotSolved
10.06.2020 13:02:53 Tobi
NotSolved
10.06.2020 13:17:34 Mase
*****
NotSolved
10.06.2020 13:47:27 Tobi
NotSolved
10.06.2020 14:09:18 Mase
*****
NotSolved
10.06.2020 14:43:03 Tobi
NotSolved
10.06.2020 18:00:41 Gast39710
NotSolved
10.06.2020 18:36:14 Mase
NotSolved
10.06.2020 22:39:21 Tobi
NotSolved
11.06.2020 17:22:56 Mase
NotSolved
15.06.2020 16:24:33 Tobi
NotSolved
15.06.2020 16:36:04 Tobi
NotSolved
15.06.2020 20:57:46 Mase
****
NotSolved
15.06.2020 21:23:25 Tobi
NotSolved
15.06.2020 21:51:02 Mase
NotSolved
Rot Suche nach exaktem String
16.06.2020 11:18:12 Tobi
NotSolved
16.06.2020 11:48:17 Mase
NotSolved
16.06.2020 12:06:12 Tobi
NotSolved
16.06.2020 13:38:29 Mase
NotSolved
16.06.2020 14:06:07 Tobi
NotSolved

Ansicht des Beitrags:
Von:
Tobi
Datum:
16.06.2020 11:18:12
Views:
605
Rating: Antwort:
  Ja
Thema:
Suche nach exaktem String

Hi,

--> hatte mir das so gedacht:  

 


Test = Replace(rngFind.Text, "-", "")
sArr() = Split(Test, Chr(32)) --> ALso noch vor dem Array

--> Im Array irendwie so vllt. 



For y = LBound(sArr) To UBound(sArr)
                                        
      Test = Replace(sArr(y), "-", "")   
                                                                                        
          'Abfrage ob Suchbegriff oder Suchbegriff inkl. ein Satzzeichen vorkommt
                 If  Test = Trim(strSuchbegriff) Or Test  = Trim(strSuchbegriff & ",") Or _
                     Test  = Trim(strSuchbegriff & ".") Or Test  = Trim(strSuchbegriff & "-") Or _
                     Test  = Trim(strSuchbegriff & "/") Or Test  = Trim(strSuchbegriff & ":") Or _
                     Test  = Trim(strSuchbegriff & "+") Or Test  = Trim(strSuchbegriff & ";") Then
                                                
                     rngFind.Interior.ColorIndex = 36
                                                
                 End If
                                                
 Next y
 VG

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
10.06.2020 12:31:29 Tobi
Solved
10.06.2020 12:42:47 Mase
NotSolved
10.06.2020 13:02:53 Tobi
NotSolved
10.06.2020 13:17:34 Mase
*****
NotSolved
10.06.2020 13:47:27 Tobi
NotSolved
10.06.2020 14:09:18 Mase
*****
NotSolved
10.06.2020 14:43:03 Tobi
NotSolved
10.06.2020 18:00:41 Gast39710
NotSolved
10.06.2020 18:36:14 Mase
NotSolved
10.06.2020 22:39:21 Tobi
NotSolved
11.06.2020 17:22:56 Mase
NotSolved
15.06.2020 16:24:33 Tobi
NotSolved
15.06.2020 16:36:04 Tobi
NotSolved
15.06.2020 20:57:46 Mase
****
NotSolved
15.06.2020 21:23:25 Tobi
NotSolved
15.06.2020 21:51:02 Mase
NotSolved
Rot Suche nach exaktem String
16.06.2020 11:18:12 Tobi
NotSolved
16.06.2020 11:48:17 Mase
NotSolved
16.06.2020 12:06:12 Tobi
NotSolved
16.06.2020 13:38:29 Mase
NotSolved
16.06.2020 14:06:07 Tobi
NotSolved