Spaltenbereich wenn Buchstabe "F" vorhanden...

Forumthread: Spaltenbereich wenn Buchstabe "F" vorhanden...

03.05.2024 13:31:36

wolfgang

Guten Tag,
ich bekomme das Makro leider nicht hin.
Wenn in der aktiven Tabelle Spalte z.B. H10:H25 ein "F" steht soll dieser Buchstabe ROT gefärbt werden.
Das gleiche Makro sollte auch für Tabellen von 1-7 sein, also alle 7 Tabellen kontr. und ggf.
Rot färben.

mfg wolfgang

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spaltenbereich wenn Buchstabe "F" vorhanden...

03.05.2024 14:19:17

{Boris}

Hi,

do was erledigt man idR mit der Bedingten Formatierung. Weshalb muss es VBA sein?

VG, Boris

Hallo Boris, habe das von Yal genommen

03.05.2024 15:47:40

wolfgang

Hallo Boris,
danke für den Hinweis, habe das Makro von Yal genommen.
Ich kenn mich nicht so gut in Bedingte Formatierung aus.

Auch Dir schönes Wochenende gr. wolfgang

AW: Hallo Boris, habe das von Yal genommen

03.05.2024 20:33:43

daniel

Hi
1. Zellbereich markieren (H10:H25)
2. klicke im Menü Start - Formatvorlagen - Bedingte Formatierung und wähle Regeln zum hervorheben von Zellen - Gleich...
gib dann "F" im Eingabefeld ein und wähle im rechten eine Formatierung aus. Wenn in den Vorlagen nicht das gewünschte dabei ist, gehe auf "Benutzerdefinert", da kannst du dann alles einstellen.

wenn du es für mehrere Tabellenblätter benötigst, kannst du den Bereich kopieren und in die anderen Tabellenblätter als Format einfügen (oder den Pinsel benutzen)

Die bedingte Formatierung hat hier gegenüber dem Makro folgende Vorteile:
- wenn sich die Werte nachträglich ändern oder durch Formeln berechnet werden, dann passt sich die Färbung automatisch an, ohne dass das Makro erneut laufen muss
- wenn die Zellen schon ein anderes Format haben, bleibt dieses erhalten und ist nur im Hintergrund, wärend das Format der Bedingten Formatierung aktiv ist. Ändert sich der Wert, ist das alte Format wieder da, während man bei einem Makro dieses wieder herstellen muss, dh man wenn es nicht die allgemeine standardformatierung ist, müsste man sich diese irgendwo merken.

Gruß Daniel

AW: Spaltenbereich wenn Buchstabe "F" vorhanden...

03.05.2024 14:22:47

Yal

Hallo Wolfgang,

folgende Code sollte ungefähr die Anfroderung abdecken.

Sub F_Rot_faerben()

Dim i As Integer

Dim Z As Range



    For i = 1 To 7

            For Each Z In ActiveWorkbook.Worksheets(i).Range("H10:H25").Cells

                If InStr(1, Z.Value, "F", vbTextCompare) Then Z.Font.Color = 3

            Next

    Next

End Sub

Alternativ wäre eine bedingte Formatierung.

VG
Yal

Danke Yal, Makro einwandfrei nur ... -)

03.05.2024 15:45:51

wolfgang

Hallo Yal,
danke für das Makro, habe nur die Farbnummer geändert, einwandfrei.
Schönes Wochenende
mfg wolfgang

Beliebteste Forumthreads (12 Monate)

Spaltenbereich wenn Buchstabe "F" vorhanden...

Forumthread: Spaltenbereich wenn Buchstabe "F" vorhanden...

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread