Thema Datum  Von Nutzer Rating
Antwort
24.08.2018 09:32:16 Hady
NotSolved
24.08.2018 18:57:59 xlKing
NotSolved
25.08.2018 11:26:22 Hady
NotSolved
Blau Teilwörter finden
25.08.2018 15:34:47 xlKing
NotSolved
25.08.2018 15:39:12 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
25.08.2018 15:34:47		 Views:
673		 Rating:
     
Antwort:
  Ja
Thema:
Teilwörter finden

Hallo Hady,

komisch, in deiner Ursprungsfrage hast du das genau umgekehrt beschrieben. Da wolltest du nach Bauleiter INTERN 1 suchen. Seis drum. Dann schmeißen wir eben das INTERN raus.

Probier mal den folgenden Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ZeileSuchen()
 
gesuchtePerson = "Bauleiter INTERN 1"
p1 = InStr(gesuchtePerson, " "): p2 = InStrRev(gesuchtePerson, " ")
If p2 > p1 Then gesuchtePerson = Left(gesuchtePerson, p1) & Right(gesuchtePerson, Len(gesuchtePerson) - p2)
Vergleich = Left(gesuchtePerson, 3) & "*" & Right(gesuchtePerson, Len(gesuchtePerson) - InStr(gesuchtePerson, " "))
 
Set c = Columns("G:G").Find(gesuchtePerson) 'sucht nach Bauleiter 1
If c Is Nothing Then Set c = Vergleich      'sucht nach Bau*1
 
If Not c Is Nothing Then gefundeneZeile = c.Row
 
End Sub

Zuerst wird alles zwischen dem ersten und dem letzten Leerzeichen entfernt. Sodass "Bauleiter 1" rauskommt. Danach kann man dann suchen. Wird das nicht gefunden, z.B. wegen Tippfehlern, wird stattdessen der Vergleich herangezogen der nach "Bau*1" sucht. Gefunden wird eine Zelle vom Typ Range, dessen Eigenschaft .Row die Zeile an deine Variable zurückgiebt.

Vielleicht hilft dir das weiter.

Gruß Mr. K.

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
24.08.2018 09:32:16 Hady
NotSolved
24.08.2018 18:57:59 xlKing
NotSolved
25.08.2018 11:26:22 Hady
NotSolved
Blau Teilwörter finden
25.08.2018 15:34:47 xlKing
NotSolved
25.08.2018 15:39:12 xlKing
NotSolved