Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn in Toleranz dann Farbe

Forumthread: Wenn in Toleranz dann Farbe

Wenn in Toleranz dann Farbe
02.03.2021 08:27:48
Lars
Hallo Community,
ich habe leider noch das Problem, dass ich bei meinem VBA-Programm in Zeile 7 folgenden Fehler bekomme:
Laufzeitfehler '13':
Typen unverträglich
Ich bekomme diesen leider nicht weg. Kann mir einer evtl. sagen wo mein Fehler ist?
Folgendes will ich als Endergebnis:
Wenn in Spalte N eine eine Zahl ist, dann in Spalte A prüfen welche Toleranz gilt und dementsprechend die Zeile einfärben.
Wenn Spalte N leer ist, diese auch leer lassen.
Mit einer bedingten Formatierung komme ich da leider nicht weiter, da ich ca. 10 verschiedene Toleranzbereiche habe (grün, gelb & rot).
Grün kann z.B. ein von -5 bis 5 gehen, mal von -2 bis 2 oder -3 bis 0.
Und wenn in Spalte N eine Zeile leer ist, bleibt die auch nicht unformatiert.
Hier mal eine Beispieldatei:
https://www.herber.de/bbs/user/144362.xlsm
Vielen Dank schonmal im voraus für Eure Hilfe.
Gruß
Lars

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn in Toleranz dann Farbe
02.03.2021 08:55:32
Nepumuk
Hallo Lars,
teste mal:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim lngColor1 As Long
    Dim lngColor2 As Long
    Dim objRange As Range, objCell As Range
    
    Set objRange = Intersect(Target, Range("N11:N40000"))
    
    If Not objRange Is Nothing Then
        
        For Each objCell In objRange
            
            Select Case objCell.Offset(0, -13)
                    
                Case "K123456", "K234567", "K345678", "K456789"
                    
                    If IsNumeric(objCell.Value) Then
                        
                        Select Case objCell.Value
                                
                            Case -5 To 5
                                lngColor1 = vbGreen
                                lngColor2 = vbBlack
                            Case -10 To -6, 6 To 10
                                lngColor1 = vbYellow
                                lngColor2 = vbBlack
                            Case Is < -10, Is > 10
                                lngColor1 = vbRed
                                lngColor2 = vbBlack
                                
                        End Select
                    End If
                    
                Case "K555555", "K555556", "555557", "555558"
                    
                    If IsNumeric(objCell.Value) Then
                        
                        Select Case objCell.Value
                                
                            Case -2 To 2
                                lngColor1 = vbGreen
                                lngColor2 = vbBlack
                            Case -5 To -3, 3 To 5
                                lngColor1 = vbYellow
                                lngColor2 = vbBlack
                            Case Is < -5, Is > 5
                                lngColor1 = vbRed
                                lngColor2 = vbBlack
                                
                        End Select
                    End If
            End Select
            
            objCell.Interior.Color = lngColor1
            objCell.Font.Color = lngColor2
            
        Next
        
        Set objRange = Nothing
        
    End If
End Sub

Gruß
Nepumuk

Anzeige
Nachtrag
02.03.2021 09:01:48
Nepumuk
Benutze an Stelle von:
If IsNumeric(objCell.Value) Then
besser:
If IsNumeric(objCell.Text) Then
denn die Value-Eigenschaft gibt, wenn die Zelle leer ist, eine 0 zurück.
Gruß
Nepumuk

AW: Nachtrag
02.03.2021 09:38:03
Lars
Hallo Nepumuk,
vielen Dank, das hat mich schonmal ein ganzes Stück weiter gebracht.
Die Toleranzen werden in der entsprechenden Farbe eingefärbt.
Nur wenn in Spalte N nichts steht, dann wird da eine 0 eingefügt und die Zelle wird eingefärbt.
In der Zelle sollte nichts stehen und diese sollte keine Farbe erhalten.
Was ich vergessen habe zu erwähnen:
Es gibt in der Spalte A auch Nummern/Texte (im Beispiel K987654), bei diesen soll in Spalte N nicht eingefärbt werden.
Folgend die geänderte Beispieldatei:
https://www.herber.de/bbs/user/144365.xlsm
Danke & Gruß
Lars

Anzeige
AW: Nachtrag
02.03.2021 09:51:58
Nepumuk
Hallo Lars,
so besser?
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim objRange As Range, objCell As Range
    
    Set objRange = Intersect(Target, Range("N11:N40000"))
    
    If Not objRange Is Nothing Then
        
        For Each objCell In objRange
            
            Select Case objCell.Offset(0, -13)
                    
                Case "K123456", "K234567", "K345678", "K456789"
                    
                    If IsNumeric(objCell.Text) Then
                        
                        Select Case objCell.Value
                                
                            Case -5 To 5
                                objCell.Interior.Color = vbGreen
                                objCell.Font.Color = vbBlack
                            Case -10 To -6, 6 To 10
                                objCell.Interior.Color = vbYellow
                                objCell.Font.Color = vbBlack
                            Case Is < -10, Is > 10
                                objCell.Interior.Color = vbRed
                                objCell.Font.Color = vbBlack
                            Case Else
                                objCell.Interior.Pattern = xlPatternNone
                                
                        End Select
                    Else
                        objCell.Interior.Pattern = xlPatternNone
                    End If
                    
                Case "K555555", "K666666", "K777777", "K888888"
                    
                    If IsNumeric(objCell.Text) Then
                        
                        Select Case objCell.Value
                                
                            Case -2 To 2
                                objCell.Interior.Color = vbGreen
                                objCell.Font.Color = vbBlack
                            Case -5 To -3, 3 To 5
                                objCell.Interior.Color = vbYellow
                                objCell.Font.Color = vbBlack
                            Case Is < -5, Is > 5
                                objCell.Interior.Color = vbRed
                                objCell.Font.Color = vbBlack
                            Case Else
                                objCell.Interior.Pattern = xlPatternNone
                                
                        End Select
                    Else
                        objCell.Interior.Pattern = xlPatternNone
                    End If
            End Select
        Next
        
        Set objRange = Nothing
        
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: Nachtrag
02.03.2021 10:00:51
Lars
Hallo Nepumuk,
vielen Dank für deine schnellen Rückmeldungen.
Aber leider nein.
Das Programm färbt mir bei K987654 und bei leeren Zellen, die Zelle gelb.
Gruß
Lars

AW: Nachtrag
02.03.2021 10:24:11
Lars
Hallo Herbert_Grom,
Vielen Dank für deine Rückmeldung.
Bei deinem Code löscht er mir leider in Spalte N alles raus, was nicht zu den genannten Bedingungen (Spalte A) gehört.
Nepumuk hat mir parallel zu dir noch einen geschickt, welcher super funktioniert.
Trotzdem vielen Dank.
Gruß
Lars

Anzeige
AW: Nachtrag
02.03.2021 10:13:29
Nepumuk
Hallo Lars,
jetzt immer noch?
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim objRange As Range, objCell As Range
    
    Set objRange = Intersect(Target, Range("N11:N40000"))
    
    If Not objRange Is Nothing Then
        
        For Each objCell In objRange
            
            Select Case objCell.Offset(0, -13).Value
                    
                Case "K123456", "K234567", "K345678", "K456789"
                    
                    If IsNumeric(objCell.Text) Then
                        
                        Select Case objCell.Value
                                
                            Case -5 To 5
                                objCell.Interior.Color = vbGreen
                                objCell.Font.Color = vbBlack
                            Case -10 To -6, 6 To 10
                                objCell.Interior.Color = vbYellow
                                objCell.Font.Color = vbBlack
                            Case Is < -10, Is > 10
                                objCell.Interior.Color = vbRed
                                objCell.Font.Color = vbBlack
                            Case Else
                                objCell.Interior.Pattern = xlPatternNone
                                
                        End Select
                    Else
                        objCell.Interior.Pattern = xlPatternNone
                    End If
                    
                Case "K555555", "K666666", "K777777", "K888888"
                    
                    If IsNumeric(objCell.Text) Then
                        
                        Select Case objCell.Value
                                
                            Case -2 To 2
                                objCell.Interior.Color = vbGreen
                                objCell.Font.Color = vbBlack
                            Case -5 To -3, 3 To 5
                                objCell.Interior.Color = vbYellow
                                objCell.Font.Color = vbBlack
                            Case Is < -5, Is > 5
                                objCell.Interior.Color = vbRed
                                objCell.Font.Color = vbBlack
                            Case Else
                                objCell.Interior.Pattern = xlPatternNone
                                
                        End Select
                    Else
                        objCell.Interior.Pattern = xlPatternNone
                    End If
                Case Else
                    objCell.Interior.Pattern = xlPatternNone
            End Select
        Next
        
        Set objRange = Nothing
        
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: Nachtrag
02.03.2021 10:25:13
Lars
Hallo Nepumuk,
jetzt funktioniert alles Einwandfrei.
Vielen Dank für die schnelle Hilfe.
Ich wünsche noch einen schönen Tag.
Gruß und vielen vielen Dank
Lars
;

Forumthreads zu verwandten Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Bedingte Formatierung Zelle
hindenberger@gmx.de

Hallo,
kann ich ausgehend eines Ergebnis (grösser oder kleiner Null) eine Zelle einmal grün und einmal rot einfärben lassen?
Danke.
Gruß,
Patric
27.12.2008 12:46:09
Thread-ID: 1035362
3 Beiträge
Anzeige
Bedingte Formatierung-Rahmen für bestimmte Zellen
Peter

Hallo zusammen,
ich möchte in einem Tabellenbereich alle Zellen, die eine Zahl enthalten und daher nicht leer sind, mit einem "Rahmen" versehen.
Ich versuche es z.Zt. mit "bedingter Formatierung" und dann "Formel ist" = Istzahl. Leider funktioniert das nicht. Vielleicht hat jemand von E...
20.03.2009 13:51:29
Thread-ID: 1062187
3 Beiträge
Bedingte Formatierung bei leerer Zelle
Marko

Hallo,
vermutlich schon tausend mal gefragt, aber irgendwie komme ich nicht klar.
Wenn in J2 etwas drin steht, soll die Zelle weiß bleiben; wenn nicht, soll sie rot eingefärbt werden.
Wie muss ich die Bedingte Formatierung hierfür gestalten?
Gruss,
Marko
05.05.2009 10:41:00
Thread-ID: 1072999
3 Beiträge
Anzeige
Bedingte Formatierung leere Zellen farbig
ropa

Hallo,
nochmal Bedingte Formatierung
Wie kann ich einen Zellbereich so mit der bedingten Formatierung belegen das alle leeren Zellen z.B. gelb hinterlegt sind wenn ich einen Wert oder Text eingebe dann soll die Formatierung verschwinden.
Grüße
Roland
23.06.2009 14:24:25
Thread-ID: 1083810
2 Beiträge
Bedingte Formatierung einer Zelle
Steffen

Hallo,
ich habe folgendes Problem in einer Tabelle:
Die Spalte B ist mit 2 Werten versehen (A+B). Sobald in einer Zeile B ausgewählt wird, soll die Zeile (von z.B. A10-G10) rot markiert werden. Wie kann ich nun also die gesamte Tabelle mit einer bedingten Formatierung versehen, die dann...
26.08.2009 17:02:10
Thread-ID: 1098830
3 Beiträge
Bedingte Formatierung klappt nicht
Juergen

Hallo
Ich brauche mal Hilfe.
Und zwar hab ich folgendes Problem mit der Bedingten Formatierung:
in zelle E12 ist eine Formel die ein Wert Zurückgebt.(1-25)
in zelle F12 ist ebenfalls eine Formel hinterlegt die auch ein Wert zurückgebt.(1-25)
Nun zu mein Problem Ich möchte, w...
22.01.2010 21:00:10
Thread-ID: 1132233
16 Beiträge
Bedingte Formatierung für Texte
Werner

Hallo,
ich möchte per bedingte Formatierung erreichen, dass Texte unterschiedliche Hintergrundfarben bekommen.
Gibt man z.B. "Qualität" ein, so soll auch später das Wort wieder die gleiche Hintergrundfarbe erhalten.
Dazu habe ich nun bereits mehrere Regeln erstellt, ich wollte damit...
01.03.2010 16:48:06
Thread-ID: 1142432
11 Beiträge
Bedingte Formatierung klappt nicht
Axel

Hallo zusammen,
Ich habe eine Zelle A1 mit einer bedingten Formatierung belegt: Formel ist =UND(A1=0;A1""
Damit erreiche ich, dass die Zelle bei einer 0 ein bestimmtes Format annimmt, aber nicht, wenn die Zelle leer ist. Vielen Dank für diese Lösung an die Helfer hier im Forum!
Wen...
04.03.2010 18:12:36
Thread-ID: 1143463
3 Beiträge
Wenn zelle AW3, dann Farbe und Text.
Friedrich

Guten Abend liebe Excel-Spezis,
ich brauche in VBA folgende Lösung:
In der Zelle AW3 erscheinen über eine Formel drei Aussagen SH, H und E
Bei SH sollte die Zelle A7 Rot werden und eine Text "Sofortiger Handlungsbedarf" in Fett erscheinen.
Danke für eure Hilfe
Gruß Friedrich...
30.08.2010 18:23:16
Thread-ID: 1174841
2 Beiträge
bedingte Formatierung greift Wert nicht auf
Felix

Hallo,
eine wahrscheinlich ganz einfache Sache:
Ich moechte mit bedingter formatierung eine Zelle X formatieren, wenn in zwei anderen Zellen Y und Z das gleiche Datum steht. Problem ist, dass die Zellen Y und Z per Link auf andere Zellen zugreifen. Der Zellinhalt ist also ein Link, au...
09.11.2010 10:19:09
Thread-ID: 1185831
3 Beiträge
Bedingte Formatierung-Bezug auf den ersten Textt.
Holger

Hallo,
ich möchte eine Bedingte Formatierung mit Bezug auf den ersten Buchstaben eines Textes in einer Zelle
erreichen. In diesem Beispiel ist es der Buchstabe "A".
Wie muss der folgende Code verändert werden:
Private Sub Worksheet_Change(ByVal Target As Range) Dim actCell As Ra...
15.12.2010 09:12:48
Thread-ID: 1191529
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige