Thema Datum  Von Nutzer Rating
Antwort
05.05.2014 09:46:46 MC
NotSolved
Blau Überlauf!?
 05.05.2014 11:41:11 Gast79980
NotSolved

Ansicht des Beitrags:
Von:
Gast79980		 Datum:
05.05.2014 11:41:11		 Views:
1234		 Rating:
     
Antwort:
  Ja
Thema:
Überlauf!?		 
Option Explicit

Public Function Test()
  
  Dim vntValue As Variant
  Dim lngLetzteZeile As Long
  Dim lngZeile As Long
  
  With Worksheets("Auswahleinstellungen")
    
    lngLetzteZeile = .Cells(.Rows.Count, "D").End(xlUp).Row
    
    For lngZeile = 1 To lngLetzteZeile
      vntValue = .Cells(lngZeile, "D").Value
      If Not IsEmpty(vntValue) Then
        If vntValue = 1 Then
          .Cells(lngZeile, "D").Interior.Color = RGB(97, 192, 50)
        ElseIf vntValue = 0 Then
          .Cells(lngZeile, "D").Interior.Color = RGB(255, 255, 255)
'        ElseIf ... Then
'          ...
'        Else
'          ...
        End If
      End If
    Next
    
  End With
  
End Function

Davon mal abgesehen das deine Abbruchbedingungen unzureichend waren (die innere Schleife kann bis unendlich laufen) ist es besser das ganze so anzugehen.

 

PS: Für Zeilen-Indizes solltest du den Datentyp Long verwenden, da Excel mehr Zeilen haben kann als ein Integer darstellen kann.

 

Gruß

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
05.05.2014 09:46:46 MC
NotSolved
Blau Überlauf!?
 05.05.2014 11:41:11 Gast79980
NotSolved