Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bedingte Formatierung-Bezug auf den ersten Textt.

Bedingte Formatierung-Bezug auf den ersten Textt.
Holger
Hallo,
ich möchte eine Bedingte Formatierung mit Bezug auf den ersten Buchstaben eines Textes in einer Zelle
erreichen. In diesem Beispiel ist es der Buchstabe "A".
Wie muss der folgende Code verändert werden:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim actCell As Range
Dim Bereich2 As Range
Set Bereich2 = Range("R4:R34")
Application.ScreenUpdating = False
For Each actCell In Bereich2
If Not Intersect(actCell, Bereich2) Is Nothing Then
Select Case actCell
Case "": actCell.Interior.ColorIndex = 0
End Select
If InStr(UCase(actCell), "A") Then actCell.Interior.ColorIndex = 45
End If
Next
Application.ScreenUpdating = True
End Sub
Danke für die Unterstützung !
Gruß
Holger

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

Betreff
Benutzer
Anzeige
Das ist KEIN BedingtFormat, höchstens ein...
15.12.2010 09:12:48
Luc:-?
…Ersatz-Konstrukt dafür mit allen seinen Nachteilen, Holger…
Das 1.Zeichen eines Zellinhalts ermittelt man mit Left(UCase(actCell), 1) = "A" statt InStr(UCase(actCell), "A").
Gruß Luc :-?
AW: Das ist KEIN BedingtFormat, höchstens ein...
15.12.2010 12:14:34
Holger
Danke ! Funktioniert !
Gruß
Holger
Anzeige

343 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige