Thema Datum  Von Nutzer Rating
Antwort
Rot For each Schleife
 10.02.2015 18:26:27 jörg
NotSolved
10.02.2015 18:52:29 MarkusK
*****
Solved
10.02.2015 18:58:25 jörg
NotSolved

Ansicht des Beitrags:
Von:
jörg		 Datum:
10.02.2015 18:26:27		 Views:
1254		 Rating:
     
Antwort:
  Ja
Thema:
For each Schleife		 
Dim bereich as Range, zel as Range

Set bereich = ActiveSheet.Columns(5)
   
For Each zel In bereich
    If (zel.Interior.ColorIndex = 3) Then
    MsgBox ("Es gibt rote Zellen")
    End If
Next zel

Hallo, ich habe 2 Fragen:

a) in Spalte 5 soll jede Zelle überprüft werden ob eine rote Zelle vorliegt. Wenn dies so ist soll die MsgBox angezeigt werden.

b) die For each Schleife soll nach dem Finden der 1. roten Zelle die MsgBox angezeigen und dann sofort verlassen werden.

Leider bekomme ich es nicht hin...

Vielen Dank für die Hilfe im Voraus!!

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 For each Schleife
 10.02.2015 18:26:27 jörg
NotSolved
10.02.2015 18:52:29 MarkusK
*****
Solved
10.02.2015 18:58:25 jörg
NotSolved