Office: bestimmten Zelleninhalt formatieren

Hallo zusammen,
ich bastel mit gerade ein Protokolltool in Excel. Um Aufgaben besser zuwesien und sichtbar zu machen würde ich gerne die Verantwortlichen Farbig markieren
Ich hab mir angewohnt jeden Verantwortliche mit einem Pfeil zu markieren ("-->Nachname")
Jetzt würde ich gerne ein Makro haben, dass die Zeile nach dem Pfeil durchsucht und dann alles dahinter bis zum nächsten Leerzeichen rot markiert.
Also quasi nach der Anweisung:
durchsuche zelleninhalt nach dem Pfeil, somit hab ich den die Startposition in der Zelle
prüfe jedes Zeichen dahinter bis ein Leezeichen kommt somit hab ich die Endposition
und dann mache alles zwischen Start- und Endpostion rot.
Ich hab schon mal angefangen, aber so rehct will es nicht funktionieren.

laenge = 1
For marker = pos1 To pos1 + 30 'Länge als 30 Zeichen ist eh kein Nachname
If ActiveCell.Characters(marker) = Not (" ") Then
laenge = laenge + 1
End If
Next


With ActiveCell.Characters(Start:=pos1, Length:=pos1 + laenge).Font
.Name = "Calibri"
.FontStyle = "Fett"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With

:)

 

Code:

 

Hallo,
danke für die Antwort, jedoch wird danach der ganze Rest auch rot eingefärbt. Ich hätte es aber gerne, dass die alte Formatierung erhalten bleibt und nur der Name rot eingefärbt wird.

 

Schön, dass Du Dich doch noch meldest.

Ersetze folgende Zeile:

Code:

Mit jener:

Code:

 

Hallo,
mit der Code Zeile bekomme ich jetzt alles ab dem Pfeil rot.

Ich möchte aber nur den Pfeil und den Namen rot haben, hier mal ein Beispiel:

27.01.2021
-Auftrag xyz -->Josef
---
20.01.2021
-alter Beitrag


Da ich für die Färbung der alten Punkte schon ein Makro verwende, sollte das Makro nicht auf alles zugreifen, sondern gezielt auf den Inhalt nach dem Pfeil. Ich hätte mir gedacht, dass ich hier Zeichen für Zeichen durchgehe so lange bis wieder ein Leerzeichen erhalte. Dann habe ich die Länge des Namens und genau den möchte ich rot haben.
Ich bekomme es aber nicht hin, dass ich nur einen Teil in einer Zelle rot färbe und die bereits vorhandene Formatierung gleich bleibt.

 

Code:

 

Hi,
besten Dank das ist genau das was ich benötige. ich blicke noch nicht so genau durch, aber das werde ich mir übers Wochenende mal in Ruhe anschauen.
Ich hab aber schon mal versucht das Suchzeichen zu ändern. So wie ich es verstehe steht chr(32) für ein Leerzeichen das gesucht wird. Wenn ich jetzt aber 2 Personen die Aufgabe zuweise, markiert er nur den ersten.
Hab schon mal versucht hier chr(10) für den Zeilenumbruch einzubauen, das hat aber nicht gleicht geklappt. Aber da finde ich schon noch eine Möglichkeit das umzubauen.
Ein weiterer Schritt der noch ansteht ist, dass es eventuell 2 oder mehrere Personen aber zu unterschiedlichen Punkten sein können.
also so:


27.01.2021
-Auftrag xyz -->Josef, Stefan
-weiterer Agendaeintragung
-Auftrag XYZ2 --> Hubert
-Auftrag XYZ3 --> Christian
---
20.01.2021
-alter Beitrag


Wie gesagt ich versuch das die kommenden Tage mal selber genauer zu hinterblicken, ich hoffe mal ich lern dazu *wink.gif*

Aber schon mal besten Dank für die wirklich schnelle Hilfe *wink.gif*

 

Das Leerzeichen wird verwendet, um den Textinhalt der Zelle in einem Array abzulegen. Getrennt bzw. gesplittet durch das Leerzeichen.

Beispiel:
arr = Split("Das ist ein Text.", CHR(32))

Dieses Array wird durch die Funktion Split nun anhand der vorkommenden Leerzeichen dimensioniert. Findet die Funktion 3 Leerzeichen wird das Array durch 3 + 1 Elementen dimensioniert. (Achtung: bei aufeinanderfolgenden Leerzeichen)

Auf das Beispiel wirke sich das dann so aus:

arr(0) = "Das"
arr(1) = "ist"
arr(2) = "ein"
arr(3) = "Test."



Das Suchzeichen respk. die Suchzeichenkette ist in unserem Fall:
"-->"

Du könntest auch -> oder >> oder

 

Hallo,
jetzt hab ich es endlich geschafft, mir das ganze mal anzuschauen.
Ich musste es ein bisschen umbauen, damit es mit dem Zeilenumbruch gepasst hat, das funktioniert aber jetzt zuverlässig.
Die Schleife hab ich auch schon hinbekommen, nur ist es aktuell noch eine "dumme Schleife", die 5 mal läuft um sie zu testen, da ich folgendes Problem noch nicht gelöst habe:

Wie baue ich die Schleife dynamisch auf, so dass sie nur xy mal durchlaufen wird wenn xy mal das Suchzeichen vorkommt.

Da ich die Protokolleinträge immer mit "---" voneinander trenne, möchte ich hier die Schleife nur bis zum ersten Vorkommen von "---" laufen lassen. Alles danach braucht nichtmehr nach dem Suchzeichen durchsucht werden.

Code:

 

So jetzt bin ich wieder einen Schritt weiter. Jetzt hab ich die Schleife so hinbekommen, dass alle Inhalte nach dem Suchzeichen rot eingefärbt werden.

Fehlt nur noch eine Abbruchbedingung, dass er beim ersten Auftreten von "---" aufhört zu färben.

Hier mal der aktuelle Code:

Code:

 

so jetzt scheine ich es geschafft zur haben.
wenn eine Zeichenfolge (-->) auftaucht, dann werden alle Namen dahinter bis zum Zeilenumbruch rot gefärbt so lange bis das Abbruchzeichen "---" auftaucht.

Danke an Mase, der mir hier bei meinem Problem geholfen hat. Vielleicht magst du ja mal auf den Code schauen, da gibt's sicher noch einiges zu verbessern, aber so funktioniert er jetzt erst mal *wink.gif*

Code: