VBA: Text nach Hochkomma in Farbe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub hochkomma_per_vba_ermitteln() 'Im markierten Bereich werden alle Zellen mit Hochkomma ermittelt 'und die Zelladresse in einer MsgBox ausgegeben Dim zelle As Range For Each zelle In Selection If zelle.PrefixCharacter = "'" Then MsgBox zelle.Address End If Next zelle End Sub

Sub HochkommaTextFarbe() Dim Zelle As Range ActiveSheet.UsedRange.Select For Each Zelle In Selection If InStr(1, Zelle, "'") Then Zelle.Characters(InStr(1, Zelle, "'"), 9 ^ 9).Font.Color = vbRed End If Next Range("A1").Select End Sub

…aber trotzdem als Auslöser der RotFärbung verwenden willst, Dieter,
würde Harys Code das nicht leisten, denn die vbFkt Instr würde dieses ' ignorieren, falls es, wie standardmäßig üblich, als TextPräfix fungiert. Richtig wäre dann das Folgende:

    Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.PrefixCharacter = "'" Then
Zelle.Font.Color = vbRed
ElseIf InStr(1, Zelle, "'") Then
Zelle.Characters(InStr(1, Zelle, "'")).Font.Color = vbRed
End If
Next Zelle

Hier habe ich auch meine Empfehlung umgesetzt und das in deinem Fall überflüssige 2.Argument der vbFkt Characters weggelassen. Harys 9 ^ 9 als maximale Längenangabe ist ebenfalls überflüssig, da dieses (2.) Argument ohnehin Optional ist.
Ich würde allerdings nicht empfehlen, das TextPräfix derart einzusetzen, denn …
1. wird es nicht angezeigt und …
2. neigt Xl dazu, es, 1× angewendet, zumindest in diesen Zellen, jedem Text voranzustellen.
Es ist also nicht wirklich kontrollierbar und somit kann uU jeder Text in Gänze rot wdn. Dann wäre es wohl besser, ein anderes Zeichen als TextPräfix einzustellen, wodurch die 1. If-Bedingung dann auch entfallen könnte.
Gruß, Luc :-?

…robert,
aber ich sehe das halt lockerer, weil ich einen Bekannten habe, der auch Jahre gebraucht hatte, um sich auf einem ihm fremden Gebiet zurechtzufinden. Nebenbei hat ihn das auch ganz schön Geld gekostet, da er meist Profi-Hilfe in Anspruch nahm. Aber davon hat(te) er ja reichlich.
Mich ärgern eher ganz andere Leute, nämlich beratungsresistente Choleriker, die auf ihren fehlerhaften, wenn nicht gar kruden Vorstellungen beharren u/o beim kleinsten Anlass ausrasten. Und dazu gehört Dieter ganz bestimmt nicht! Da er beharrlich zu sein scheint, wird er's sicher irgendwann schaffen, die nötige MindestSicherheit zu erreichen. Hajo soll ja auch mal so angefangen haben und hat sich doch Jahre später mit Dingen befasst, an denen sich die Wenigsten versucht haben. Allerdings ist er auch jünger als wir drei…
Gruß, Luc :-?

Sub HochkommaTextFarbe() 'Mx: OK! Herber: Von Luc :-? 30.03.2017 Dim Zelle As Range For Each Zelle In ActiveSheet.UsedRange If InStr(1, Zelle, "'") Then Zelle.Characters(InStr(1, Zelle, "'")).Font.Color = vbRed End If Next Zelle End Sub

With Application.ReplaceFormat.Font .Subscript = False .ColorIndex = xlAutomatic .TintAndShade = 0 End With cells.Replace What:="""", Replacement:="""", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True

With Application.ReplaceFormat.Font .ColorIndex = xlAutomatic End With cells.Replace What:="""", Replacement:="""", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True

Beliebteste Forumthreads (12 Monate)

VBA: Text nach Hochkomma in Farbe

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Text nach Hochkomma in Farbe

32 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread