Fehler in bedingter Formatierung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Kalle;
wenn ich bspw in Spalte CN etwas in den Bereich 24:43 eintrage und dann wieder lösche, bleiben die „erröteten“ Zellen rot und zwar über BedingtFormat. Das ist eigentlich unerklärlich, wenn das iO ist. In der Datei, die ich dir zurückgeschickt hatte, war das jedenfalls nicht so, nachdem ich alle leeren Zellen in den relevanten Bereichen nochmals gelöscht hatte.
Allerdings ergibt die Bedingungsformel in einer Zelle auch stets WAHR. Es wäre also zu fragen, warum sie das im Blatt erst nach Änderung des Zellinhalts tut und nicht gleich. Das könnte dann auch ein Konversionsproblem sein. Deine „leeren“ Zellen sind nämlich nicht wirklich leer → ISTLEER() ergibt hier FALSCH statt WAHR. Das fiel mir schon damals auf (s.ob.). Allerdings ist dieser merkwürdige unsichtbare Inhalt diesmal nicht so leicht zu entfernen. Sind Teile der Datei etwa ursprünglich von einem anderen Programm nach Xl exportiert worden?
Sieh dir mal unter Bedingte Formatierung - Regeln verwalten - Dieses Arbeitsblatt an, was da so alles steht! Ab Xl12 ist die BedingtFormatierung tückisch, gerade beim Einkopieren. Xl10 enthält außerdem jede Menge Einfügeoptionen für kopierte Zellen, da kann man sich schnell vertun. Eigentlich ist das Ganze nur etwas für Leute, die jeden Tag 8h damit arbeiten.
Empfehlung: Alle leeren Zellen löschen und das auch mit ISTLEER überprüfen oder das ISTLEER(…) in den Bedingungsfmln durch (…="") ersetzen (und überflüssige BedingtFormate entfernen!).
God Morgon, Luc :-?

Ich steige nicht durch... Wie Du schreibst, sind die Zellen nicht leer. Das betrifft die markierten Feiertage (auch über bedingte Formatierung) und die kopierte erste Woche (hier habe ich aus einem anderen Blatt kopiert, aber nur Werte eingefügt; Innerhalb der Tabelle zu kopieren klappt ohne Probleme). Ist der Fehler erst einmal drin, bekomme ich ihn nicht mehr raus. Etwas ähnliches ist mir passiertt als ich Deine Formel für die bedingte Formatierung in mein Blatt kopieren wollte, hier blieb immer alles rot. Daher habe ich alles in Dein Blatt eingebaut, aber bei irgendeinem Schritt (Welcher?) scheint sich dieser Bug eingeschlichen zu haben. Werde mich diese Woche nochmal in Ruhe dransetzen.
Grüsse aus Gbg, Karlsson

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Bereich As Range Dim Z As Range Set Bereich = Range("C4:CX43") ' Überprüfen ob mehr als eine Zelle markiert $A$1:$B$3 ist. ' Wenn mehrere Zellen markiert wurden, dass ist der Wert > 0 If InStr(Target.Address, ":") = 0 Then ' Abbruch, wenn Aktion nicht im Zielbereich If Intersect(Target, Bereich) Is Nothing Then Exit Sub Application.EnableEvents = False Target.Value = UCase(Target) Application.EnableEvents = True Else ' wenn mehrere Zellen markiert wurden Application.EnableEvents = False For Each Z In Selection ' Überprüfen ob die Zelle im vorgegebenen Bereich liegt If Intersect(Z, Bereich) Is Nothing Then Else: Z.Value = UCase(Z) End If Next Z Application.EnableEvents = True End If End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Const adRelBer$ = "C4:CX43" 'WirkBereich: alle Buchstaben groß Dim raBereich As Range, raZ As Range Set raBereich = Me.Range(adRelBer) If Not Intersect(Target, raBereich) Is Nothing Then With Application .EnableEvents = False For Each raZ In Target If Not (IsEmpty(raZ) Or IsNumeric(raZ)) Then Target = UCase(Target) ElseIf raZ = "" Then raZ.ClearContents End If Next raZ .EnableEvents = True End With End If Set raBereich = Nothing End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const adRelBer$ = "C4:CX43" 'WirkBereich: LeerStrgZInhalt löschen Dim raBereich As Range, raZ As Range Set raBereich = Me.Range(adRelBer) If Not Intersect(Target, raBereich) Is Nothing Then With Application .EnableEvents = False For Each raZ In Target If Not IsEmpty(raZ) And raZ = "" Then raZ.ClearContents Next raZ .EnableEvents = True End With End If Set raBereich = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler in bedingter Formatierung

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread