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
16.06.2020 11:18:12 Tobi
NotSolved
16.06.2020 11:48:17 Mase
NotSolved
Rot Suche nach exaktem String
 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 12:06:12		 Views:
844		 Rating:
     
Antwort:
  Ja
Thema:
Suche nach exaktem String

Hi,

habe ich mich vllt. falsch ausgedrückt keiner meiner beiden Varianten liefert das gewünschte Ergebnis, d.h es werden Wörter die durch ein Bindestrich verbunden sind (z.B. Digi-talsierung) weiterhin nicht gefunden :-(

 

Hier die erste Variante (Replace vor dem Array):

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Do
          
         Test = Replace(rngFind.Text, "-", "")
         sArr() = Split(Test, Chr(32))
           
             'Text pro Zelle in ein Array laden und Wort für Wort überprüfen ob Schlagwort mit gefundenem Text übereinstimmt (Vgl. über Länge des Strings)
         For y = LBound(sArr) To UBound(sArr)
          
 
                 'Abfrage ob Suchbegriff oder Suchbegriff inkl. ein Satzzeichen vorkommt
             If sArr(y) = Trim(strSuchbegriff) Or sArr(y) = Trim(strSuchbegriff & ",") Or _
                 sArr(y) = Trim(strSuchbegriff & ".") Or sArr(y) = Trim(strSuchbegriff & "-") Or _
                 sArr(y) = Trim(strSuchbegriff & "/") Or sArr(y) = Trim(strSuchbegriff & ":") Or _
                 sArr(y) = Trim(strSuchbegriff & "+") Or sArr(y) = Trim(strSuchbegriff & ";") Then
                  
                 rngFind.Interior.ColorIndex = 36
                  
             End If
                  
         Next y
          
         Set rngFind = .FindNext(rngFind)
        
   Loop Until rngFind Is Nothing Or rngFind.Address = strErsteZelle

 

 

 

Hier die zweite Variante (Replace im Array): 

 

?
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
Do
             sArr() = Split(rngFind.Text, Chr(32))
               
                 'Text pro Zelle in ein Array laden und Wort für Wort überprüfen ob Schlagwort mit gefundenem Text übereinstimmt (Vgl. über Länge des Strings)
             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
              
             Set rngFind = .FindNext(rngFind)
            
       Loop Until rngFind Is Nothing Or rngFind.Address = strErsteZelle

 

 

EIne Idee an was dies liegen könnte ? 

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
16.06.2020 11:18:12 Tobi
NotSolved
16.06.2020 11:48:17 Mase
NotSolved
Rot Suche nach exaktem String
 16.06.2020 12:06:12 Tobi
NotSolved
16.06.2020 13:38:29 Mase
NotSolved
16.06.2020 14:06:07 Tobi
NotSolved