Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige