Thema Datum  Von Nutzer Rating
Antwort
Rot 2. If Schleife wird nicht aufgerufen
 08.12.2021 08:09:50 Gast44124
Solved
08.12.2021 08:59:26 Gast56337
Solved
08.12.2021 09:22:51 Gast44124
Solved

Ansicht des Beitrags:
Von:
Gast44124		 Datum:
08.12.2021 08:09:50		 Views:
268		 Rating:
     
Antwort:
 Nein
Thema:
2. If Schleife wird nicht aufgerufen

Hallo zusammen,

 

Ich habe mir mit nachlesen in den Foren ein Makro gebastelt, das in einem Blatt (Aufgabenliste) abfragt ob Zellen in einer Spalte ROT oder GRÜN sind.

Bei ROT kommt eine Meldung bei GRÜN soll eine bestimmte Zelle im Blatt (Overview) auch GRÜN werden.
das funktioniert auch wenn ich die obere If Abfrage rausdokumentiere, aber auch nur dann oder wenn ich ein Else IF einbaue.
Dann aber kommt die Meldung und dananch wird die Zellein Overview trotzdem GRÜN auch wenn eine noch ROT ist in der Aufgabenliste.
Was habe ich hier nicht bedacht?

Sub ZelleRot()
 
Dim rBereich  As Range
Dim rZelle    As Range
   With ThisWorkbook.Worksheets("Overview")
      Set rBereich = .Range("E9:E50" & .Cells(Rows.Count, 5).End(xlUp).Row)
      For Each rZelle In rBereich
         If rZelle.Interior.ColorIndex = 3 Then
         MsgBox "Mindestens eine Aufgabe ist noch nicht erfüllt"
          If rZelle.Interior.ColorIndex = 44 Then                   'Else und Elseif probiert dann wird die Zelle nach der Warnung das eine Rot ist trotzdem grün
                        Tabelle15.Cells(9, 5).Interior.ColorIndex = 44
         End If
           End If
      Next rZelle
   End With
      Exit Sub 
   Set rBereich = Nothing  
End Sub

 

Verschneite Grüße 
Michael

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
Rot 2. If Schleife wird nicht aufgerufen
 08.12.2021 08:09:50 Gast44124
Solved
08.12.2021 08:59:26 Gast56337
Solved
08.12.2021 09:22:51 Gast44124
Solved