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

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

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

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige