Change Zellfarbe in zellen der Reihe nachaufheben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("B3") = "" Then Range("B3").Interior.ColorIndex = xlNone Else: Range("B3").Interior.ColorIndex = 3 If Range("B6") = "" Then Range("B6").Interior.ColorIndex = xlNone Else: Range("B6").Interior.ColorIndex = 3 End If End If End Sub

Hallo,
...warum Du das so umständlich machen möchtest....
Nun gut. Erster Tipp, nimm die bedingte Formatierung.
Zweiter Tipp, bzw. Frage, warum nimmst du Selection-Change und nicht worksheet_Change?
Der Code wird jedes Mal ausgeführt, wenn du die Selektion in der Mappe änderst.
DAs ist völlig unnötig, da sich bei der Selektionsänderung niemals ein Wert ändern kann. Das geht voll auf die Performance.
Tipp 3:
Du kannst mit Range("B3,B6") = "" nicht prüfen, ob in dem Bereich was drinsteht. Hier wird nur die 1. Zelle geprüft, ist Dir das klar?
Diese Prüfung musst du für jede Zelle extra machen.
Das ist wiederum ein Nachteil Deiner Methode, weil das bei mehreren Zellen wieder voll auf die Performance geht.
Das ist dann auch die Lösung, wenn du jede Zelle extra prüfst, dann kannst du sie auch einzeln ansprechen und nur bei dieser z.B. die Farbe ändern.
Gruß
Björn B.

Hallo,
hier mal eine andere Version.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZellen As Range, tmpResetReplace As Range

'hier Deinen Zellbereich anpassen 
Set rngZellen = Intersect(Range("B3:B6"), Target)
    
    If Not rngZellen Is Nothing Then
        'um Ersetzen in ganzer Arbeitsmappe zurückzusetzen 
        Set tmpResetReplace = Cells(Rows.Count, Columns.Count).Find("*")
        With Application
            .ScreenUpdating = False
            .ReplaceFormat.Clear
            .ReplaceFormat.Interior.ColorIndex = xlColorIndexNone
                rngZellen.Cells.Interior.ColorIndex = 3
                rngZellen.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
                :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
            .ScreenUpdating = True
        End With
    End If
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

Change Zellfarbe in zellen der Reihe nachaufheben

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Change Zellfarbe in zellen der Reihe nachaufheben

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread