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

Forumthread: Zeilen markieren wenn Zellen gelb sind

Zeilen markieren wenn Zellen gelb sind
21.09.2018 18:40:56
andreas
Hallo,
Ich benötige ein Vba Scribt welches mir die Zellen der Spalten A,B;C,D,E,F und G von jeder Zeile markiert/auswählt in der eine Zelle mit der Farbnummer 6 gefunden wird. Ein Screenshoot wie es vor und nach dem Lauf des VBA Scriptes aussehen soll kann unter https://www.herber.de/bbs/user/124142.jpg"
angeschaut werden.
Vielen Dank für Eure Mühe
Gruß, Andreas
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen markieren wenn Zellen gelb sind
21.09.2018 19:35:29
niclaus
Hallo Andreas
Wenn ich Dich richtig verstanden habe, dann so:
Sub TestA()
Dim auswahl As Range
Set auswahl = Range("A1:G24")
Dim zelle As Range
Dim RaZeile As Range
Dim ici, zr
For Each zelle In auswahl
ici = zelle.Interior.ColorIndex
If ici = 6 Then
zr = zelle.Row
If RaZeile Is Nothing Then
Set RaZeile = Range(Cells(zr, 1), Cells(zr, 7))
Else
Set RaZeile = Union(RaZeile, Range(Cells(zr, 1), Cells(zr, 7)))
End If
End If
Next zelle
If Not RaZeile Is Nothing Then RaZeile.Select
Set RaZeile = Nothing
End Sub
Ganz oben habe ich den "Prüfbereich" definiert mit Range("A1:G24"). Diesen Bereich musst Du anpassen. Du kannst auch definieren:
Set auswahl = Selektion
Bei mir klappt es so. Ich hoffe bei Dir auch. Grüsse Niclaus
Anzeige
AW: Zeilen markieren wenn Zellen gelb sind
21.09.2018 20:58:19
andreas
Super, Klasse. Danke genau was ich brauche. Schönes Wochenende
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige