Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1816to1820
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

325 Forumthreads zu ähnlichen 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
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 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 für jede Zelle im Bereich
Chris

Hi,
ich habe folgendes Problem:
Meine Zellen F27:R27 sollen sich rot färben sobald ihr Wert größergleich der entsprechenden Zelle von Sheet1!E21:Q21 ist.
Normalerweise kann Excel ja keine bedingte Formatierung über verschiedene Tabellenblätter erreichen. Deshalb habe ich im WWW die...
06.11.2009 16:30:32
Thread-ID: 1115035
8 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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
2
2
1
2
7
15
10
2
2
2
1
2
2
1
2
1
14
4
2
2
7
2
5