Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 14:14:51
Summewenn letzter Eintrag
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1060to1064
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Strings markieren

Strings markieren
15.03.2009 13:09:25
mehmet
Hallo Forum,
ich würde gern bestimmte Strings in einer Zellenbereich markieren:
Spalte C3:C100 stehen z.Z. wie in Zelle C5 folgende Strings:
FGHFGD46 FGH4563 354FGH BKN001 FDG6554 BKN005 DFG6544 4665BKN BKN003 DF123DFG
Es soll also folgendes markiert werden: BKN001 und BKN005 und BKN003.
Immer wenn Leerzeichen BKN und drei Zahlen Leerzeichen folgen.
BKN000 bis BKN002 soll in rot markiert werden
BKN003 bis BKN005 soll in blau markiert werden.
Ab BKN006 soll nicht berücksichtigt werden.
Herzlichen Dank im voraus und jetzt schonmal SUPER SUNDAY 8-)
Gruss
mehmet

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

Betreff
Datum
Anwender
Anzeige
AW: Strings markieren
15.03.2009 13:22:09
Josef
Hallo Mehmet,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub CcolorText()
  Dim rng As Range, rngF As Range
  Dim intPos As Integer
  
  On Error Resume Next
  Set rng = Range("C3:C100").SpecialCells(xlCellTypeConstants)
  On Error GoTo 0
  
  If Not rng Is Nothing Then
    For Each rngF In rng
      intPos = InStr(1, rngF.Text, "BKN")
      Do While intPos > 0
        If IsNumeric(Mid(rngF.Text, intPos + 3, 3)) Then
          If Cint(Mid(rngF.Text, intPos + 3, 3)) < 3 Then
            rngF.Characters(intPos, 6).Font.ColorIndex = 3
          ElseIf Cint(Mid(rngF.Text, intPos + 3, 3)) < 6 Then
            rngF.Characters(intPos, 6).Font.ColorIndex = 5
          End If
        End If
        intPos = InStr(intPos + 1, rngF.Text, "BKN")
      Loop
    Next
  End If
  
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Strings markieren
15.03.2009 22:12:54
mehmet
Hallo Sep,
funktioniert einwand frei.
Super, ich danke Dir.
Herzliche Grüsse
mehmet

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige