Thema Datum  Von Nutzer Rating
Antwort
12.10.2020 14:22:37 Peter
NotSolved
12.10.2020 15:02:44 Gast73050
NotSolved
12.10.2020 15:04:26 volti
NotSolved
13.10.2020 07:43:10 Peter
NotSolved
13.10.2020 09:15:55 Gast81562
*****
NotSolved
13.10.2020 09:22:20 Peter
NotSolved
15.10.2020 13:49:45 Peter
NotSolved
15.10.2020 14:12:42 Gast34231
NotSolved
15.10.2020 14:18:00 Peter
NotSolved
15.10.2020 15:26:48 Gast27006
*****
NotSolved
15.10.2020 15:55:24 Gast27006
NotSolved
15.10.2020 15:56:34 Gast24777
NotSolved
15.10.2020 16:06:35 Gast88477
NotSolved
Blau Prüfen von Werten innerhalb einer Zeile
 15.10.2020 16:18:28 Gast7846
NotSolved
15.10.2020 17:52:13 Gast27006
NotSolved
16.10.2020 09:24:34 Peter
NotSolved
15.10.2020 14:16:51 Peter
NotSolved
19.10.2020 09:52:24 Peter
NotSolved

Ansicht des Beitrags:
Von:
Gast7846		 Datum:
15.10.2020 16:18:28		 Views:
1013		 Rating:
     
Antwort:
  Ja
Thema:
Prüfen von Werten innerhalb einer Zeile

Hallo Gast,

schön gelöst.

Das mit dem Apfelkuchenkuchen(kuchen....) war mir schon klar, allerdings fehlten mir Aussagen dazu, wie damit umgehen..

Läuft das Makro nur einmal ist es ok.

Kommt immer "Apfel ", kann man einfach den Suchbegriff ergänzen, ansonsten müsste man "Apfelkuchen" auch abfangen....

Evtl. folgende Idee zur Erweiterung:

?
1
2
3
4
5
6
7
8
9
10
11
'ungetestet
 With rngBereich(iZeile, iSpalte)
   If .Value Like ("*" & sSuch1 & "[ .,!:;?]*") Or .Value Like ("*" & sSuch1) Then iCheck = (iCheck Or 1)
   If .Value Like ("*" & sSuch2 & "*") Then iCheck = (iCheck Or 2)
 End With
 
 
 With rngBereich(iZeile, iSpalte)
   If .Value Like ("*" & sSuch1 & "[ .,!:;?]*") And Not .Value Like ("*" & sSuch1 & "kuchen*") Then iCheck = (iCheck Or 1)
   If .Value Like ("*" & sSuch2 & "*") Then iCheck = (iCheck Or 2)
 End With

viele Grüße

?
1
<span style="font-family: Arial, Verdana, sans-serif;">Karl-Heinz</span>

 

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
12.10.2020 14:22:37 Peter
NotSolved
12.10.2020 15:02:44 Gast73050
NotSolved
12.10.2020 15:04:26 volti
NotSolved
13.10.2020 07:43:10 Peter
NotSolved
13.10.2020 09:15:55 Gast81562
*****
NotSolved
13.10.2020 09:22:20 Peter
NotSolved
15.10.2020 13:49:45 Peter
NotSolved
15.10.2020 14:12:42 Gast34231
NotSolved
15.10.2020 14:18:00 Peter
NotSolved
15.10.2020 15:26:48 Gast27006
*****
NotSolved
15.10.2020 15:55:24 Gast27006
NotSolved
15.10.2020 15:56:34 Gast24777
NotSolved
15.10.2020 16:06:35 Gast88477
NotSolved
Blau Prüfen von Werten innerhalb einer Zeile
 15.10.2020 16:18:28 Gast7846
NotSolved
15.10.2020 17:52:13 Gast27006
NotSolved
16.10.2020 09:24:34 Peter
NotSolved
15.10.2020 14:16:51 Peter
NotSolved
19.10.2020 09:52:24 Peter
NotSolved