Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

strings finden

Forumthread: strings finden

strings finden
mehmet
Hallo Forum,
Bereich C6:C200 sollen folgende Wörter gesucht und markiert werden:
- falls das Wort " BECMG " auftaucht, dann soll es markiert werden (Fett & in rot)
- falls das Wort " TEMPO " auftaucht, dann soll es markiert werden (Fett & in blau)
Hier ein Beispiel (Zelle C11):
TAF LEBL TEMPO 34010KT 9999 FEW025 BECMG 2510/2512 16008KT BECMG 2519/2521 TEMPO 34010KT=
Diese Anfrage C6:C200 abfragen
Herzlichen Dank
Gruss
mehmet
PS: leider konnte ich hier nicht in rot/blau darstellen
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: strings finden
06.10.2009 12:05:26
JogyB
Hi.
probier mal das: 
Sub marKiere()
Const suchRange = "C6:C200"
Dim suchBeg
Dim foUnd As Range
Dim firstFound As Long
Dim foundPos As Long
Dim i As Long
Application.ScreenUpdating = False
suchBeg = Array("TEMPO", "BECMG")
For i = 0 To 1
With ActiveSheet.Range(suchRange)
' Ersten Begriff absuchen
Set foUnd = .Find(suchBeg(i))
' Wenn was gefunden
If Not foUnd Is Nothing Then
firstFound = foUnd.Row
Do
foundPos = InStr(1, foUnd.Value, suchBeg(i))
Do
With foUnd.Characters(foundPos, Len(suchBeg(i)))
.Font.Bold = True
.Font.ColorIndex = 5 - 2 * i
End With
foundPos = InStr(foundPos + Len(suchBeg(i)), foUnd.Value, suchBeg(i))
Loop Until foundPos = 0
Set foUnd = .FindNext(foUnd)
Loop Until foUnd.Row = firstFound
End If
End With
Next
Application.ScreenUpdating = True
End Sub
Gruss, Jogy
Anzeige
AW: strings finden
06.10.2009 12:10:21
mehmet
Perfect,
Dank dir Jogy
Gruss
mehmet
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige