Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
If-Abfrage macht färbt falsch ein
zurück: Mehrere Workbooks in einer Schleife ansprechen weiter: Fenster immer im Vordergrund Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Fluxo
Gast


Verfasst am:
23. Jan 2009, 10:59
Rufname:

If-Abfrage macht färbt falsch ein - If-Abfrage macht färbt falsch ein

Nach oben
       Version: Office 2003

Guten Morgen Forum! Hier die fehlerhafte If-Abfrage

If Cells(z, 18) = "Haushaltskasse" And Cells(z, 8) <> "" Then
geld = DateDiff("D", Cells(z, 8).Value, Date)
If geld <= 28 Then
Cells(z, 9).Interior.ColorIndex = 4
End If
If geld > 28 Then
Cells(z, 9).Interior.ColorIndex = 6
End If
If geld > 42 Then
Cells(z, 9).Interior.ColorIndex = 3
End If
End If

Also es soll je nach Datum Grün, Gelb oder Rot gefärbt werden aber obwohl geld = 11 ist färbt er mir das fehlt gelb. ich weiß einfach nicht wieso
Fluxo
Gast


Verfasst am:
23. Jan 2009, 11:01
Rufname:


AW: If-Abfrage macht färbt falsch ein - AW: If-Abfrage macht färbt falsch ein

Nach oben
       Version: Office 2003

So das ganze nochmal ohne Smileys^^

If Cells(z, 1 = "Haushaltskasse" And Cells(z, <> "" Then
geld = DateDiff("D", Cells(z, .Value, Date)
If geld <= 28 Then
Cells(z, 9).Interior.ColorIndex = 4
End If
If geld > 28 Then
Cells(z, 9).Interior.ColorIndex = 6
End If
If geld > 42 Then
Cells(z, 9).Interior.ColorIndex = 3
End If
End If

Also es soll je nach Datum Grün, Gelb oder Rot gefärbt werden aber obwohl geld = 11 ist färbt er mir das fehlt gelb. ich weiß einfach nicht wieso
Gast



Verfasst am:
23. Jan 2009, 11:03
Rufname:

AW: If-Abfrage macht färbt falsch ein - AW: If-Abfrage macht färbt falsch ein

Nach oben
       Version: Office 2003

ach verdammt und eins jetzt aber

If Cells(z, 18) = "Haushaltskasse" And Cells(z, 8) <> "" Then
geld = DateDiff("D", Cells(z, 8).Value, Date)
If geld <= 28 Then
Cells(z, 9).Interior.ColorIndex = 4
End If
If geld > 28 Then
Cells(z, 9).Interior.ColorIndex = 6
End If
If geld > 42 Then
Cells(z, 9).Interior.ColorIndex = 3
End If
End If
Klaus-Dieter
Schwerpunktinteresse: VBA und UserForms


Verfasst am:
23. Jan 2009, 11:33
Rufname: Klaus
Wohnort: Sassenburg


AW: If-Abfrage macht färbt falsch ein - AW: If-Abfrage macht färbt falsch ein

Nach oben
       Version: Office 2003

Hallo,

das Makro weist die Farben korrekt zu. Wenn es bei dir Abweichungen gibt, muß das an der Berechnung liegen. Die konnte ich nicht testen, weil ich deine Daten nicht kenne. Trotzdem habe ich das Makro etwas optimiert.

    If Cells(z, 18) = "Haushaltskasse" And Cells(z, 8) <> "" Then
        geld = DateDiff("D", Cells(z, 8).Value, Date)
        Select Case geld
            Case Is <= 28: Cells(z, 9).Interior.ColorIndex = 4
            Case Is > 42: Cells(z, 9).Interior.ColorIndex = 3
            Case Is > 28: Cells(z, 9).Interior.ColorIndex = 6
        End Select
    End If
Code eingefügt mit VBA in HTML 2.0.0.1

_________________
Viele Grüße
Klaus-Dieter
Lösungsvorschläge sind, wenn es keinen anders lautenden Hinweis gibt, von mir getestet.
Yoga ist besser, als rumsitzen und gar nichts machen.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Formel wird falsch eingefügt 6 mohack 195 08. März 2010, 21:58
mohack Formel wird falsch eingefügt
Keine neuen Beiträge Excel Formeln: if-Abfrage 8 ping-uin 283 04. Feb 2010, 13:31
haiberm if-Abfrage
Keine neuen Beiträge Excel Formeln: 2 werte vergleichen und richtig oder falsch ausgeben 8 Lisa4986 24642 23. Nov 2009, 15:28
sPanse 2 werte vergleichen und richtig oder falsch ausgeben
Keine neuen Beiträge Excel Formeln: Wie fange ich FALSCH ab? 3 lemmingjena 185 12. Aug 2009, 15:59
Gast Wie fange ich FALSCH ab?
Keine neuen Beiträge Excel Formeln: Doppelte Werte -> FALSCH 7 Gast 1011 19. Mai 2009, 13:12
Gast Doppelte Werte -> FALSCH
Keine neuen Beiträge Excel Formeln: Name Falsch geschrieben 4 Gez1966 708 11. Feb 2009, 17:55
Gez1966 Name Falsch geschrieben
Keine neuen Beiträge Excel Formeln: Formeln werden falsch Kopiert 12 Gast 305 27. Jan 2009, 22:44
heitech Formeln werden falsch Kopiert
Keine neuen Beiträge Excel Formeln: Formel WENN = FALSCH 3 lisa=) 393 27. Jan 2009, 21:41
Gast Formel WENN = FALSCH
Keine neuen Beiträge Excel Formeln: "Falsch" 8 basell 290 30. Dez 2008, 15:19
< Peter > "Falsch"
Keine neuen Beiträge Excel Formeln: If-Abfrage 2 gaschi14 298 05. Jun 2008, 13:42
Gast If-Abfrage
Keine neuen Beiträge Excel Formeln: was ist falsch an dieser formel? 4 kikoloco 310 15. Feb 2008, 12:04
kikoloco was ist falsch an dieser formel?
Keine neuen Beiträge Excel Formeln: Was ist falsch? 1 9999 291 13. Nov 2007, 17:20
myfake Was ist falsch?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS