Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige