Thema Datum  Von Nutzer Rating
Antwort
Rot EntireRow nach Farbe überprüfen
08.05.2019 08:25:33 Black4Ghost
Solved
08.05.2019 08:37:55 Gast47643
NotSolved
08.05.2019 08:41:59 Black4Ghost
NotSolved
08.05.2019 08:52:12 Gast27386
NotSolved
08.05.2019 09:58:18 Gast51924
NotSolved
08.05.2019 10:20:35 Gast51924
NotSolved
08.05.2019 14:20:44 Black4Ghost
NotSolved
08.05.2019 15:00:59 Gast20414
NotSolved
08.05.2019 15:06:40 Black4Ghost
NotSolved
08.05.2019 15:39:57 Gast10454
NotSolved
08.05.2019 17:44:01 Christian Selle
Solved
08.05.2019 18:56:01 Gast12768
NotSolved
09.05.2019 09:21:55 Black4Ghost
NotSolved

Ansicht des Beitrags:
Von:
Black4Ghost
Datum:
08.05.2019 08:25:33
Views:
68
Rating: Antwort:
 Nein
Thema:
EntireRow nach Farbe überprüfen

Guten Tag,

ich probiere schon die ganze Zeit herum aber komme selber einfach nicht auf die Lösung mit meinen bescheidenen VBA Kenntnissen. Ich versuche die ganzen Rows in meiner Tabelle auf Farben zu überprüfen und falls in der Row eine Zelle farbig sein sollte möchte ich, dass die Zelle in der dritten Spalte der aktuellen Row farbig gemacht wird. hier mein Code mit dem ich das versuche: 

Sub Materialnummerfarbig()

Dim LastRow As Single
Dim y As Integer

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

For y = 2 To LastRow
        If ActiveCell.EntireRow.Cells(y, 21).Interior.ColorIndex <> 2 Then
            Cells(y, 3).Interior.ColorIndex = 44
        End If
Next
End Sub

Kann mir da jemand vielleicht weiterhelfen?

Vielen Dank schonmal im voraus,

Ghost


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot EntireRow nach Farbe überprüfen
08.05.2019 08:25:33 Black4Ghost
Solved
08.05.2019 08:37:55 Gast47643
NotSolved
08.05.2019 08:41:59 Black4Ghost
NotSolved
08.05.2019 08:52:12 Gast27386
NotSolved
08.05.2019 09:58:18 Gast51924
NotSolved
08.05.2019 10:20:35 Gast51924
NotSolved
08.05.2019 14:20:44 Black4Ghost
NotSolved
08.05.2019 15:00:59 Gast20414
NotSolved
08.05.2019 15:06:40 Black4Ghost
NotSolved
08.05.2019 15:39:57 Gast10454
NotSolved
08.05.2019 17:44:01 Christian Selle
Solved
08.05.2019 18:56:01 Gast12768
NotSolved
09.05.2019 09:21:55 Black4Ghost
NotSolved