Hinweis/Warnmeldung wenn Schriftfarbe rot

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function NochRot(myRng As Range) As String Application.Volatile Dim r As Range NochRot = "" For Each r In myRng If r.Font.Color = 255 Then NochRot = NochRot & WorksheetFunction.Substitute(r.Address, "$", "") & "; " End If Next r If NochRot = "" Then NochRot = "keine roten Zellen gefunden" Else NochRot = NochRot & "noch in rot" End If End Function

Private Sub Worksheet_Change(ByVal Target As Range) Call NochRot(Range("B2:B5")) End Sub Sub NochRot(myRng As Range) Dim r As Range Dim sText As String sText = "" For Each r In myRng If r.Font.Color = 255 Then sText = sText & WorksheetFunction.Substitute(r.Address, "$", "") & "; " End If Next r If sText = "" Then 'nix Else sText = sText & "noch in rot" MsgBox (sText) End If End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim myRng As Range Dim r As Range Dim sText As String Set myRng = Sheets("Tabelle1").Range("B2:C5") sText = "" For Each r In myRng If r.Font.Color = 255 Then sText = sText & WorksheetFunction.Substitute(r.Address, "$", "") & "; " End If Next r If sText = "" Then 'nix Else sText = sText & "noch in rot! Trotzdem speichern?" If MsgBox(sText, vbYesNo) = 6 Then 'speichern Else 'nicht speichern Cancel = True End If End If End Sub

Hallo Ingo,
warum lädst du denn eine xlsx hoch, wenn du eine Makrolösung möchtest?

Die Datei https://www.herber.de/bbs/user/89713.xlsm wurde aus Datenschutzgründen gelöscht

Hier mal mein Makro, angepasst an deine Musterdatei. Die Userform lädt nur noch, wenn überhaupt rote Zellen vorkommen. Der Prüf-Bereich muss dafür an ZWEI Stellen angepasst werden: In "DieseArbeitsmappe" und direkt im Code der Userform.
Es wird nach roten Zellen in jedem Tabellenblatt geprüft, egal wie viele du anlegst. Click auf die gefundene Zelle in der Liste springt zum dazugehörigen Tabellenblatt in die entsprechende Zelle. Legst du ein Tabellenblatt "Inhalt" oder so an, wird auch das auf rote Zellen überprüft. Das könnte man ausschließen, aber danach hast du nicht gefragt und darum habe ich es nicht eingebaut. Workaround: in einem hypothetischem Tabellenblatt "Inhalt" auf Rot-255 gefärbte Zellen verzichten ...
Es funktioniert TROTZ deiner verbundenen Zellen. Wenn du eine der 3-fach Zellen (Uhrzeiten mit Bindestich) rot färbst, taucht jede Zelle einzeln in der Liste auf. Die Verbundblöcke "Urlaub" je nur einmal. Für die unnötige Verwendung von Verbundzellen bitte einmal in die Ecke stellen und schämen!
Fehlerbehandlung fehlt komplett. Wenn der Code irgendwas nicht schlucken mag, wird er gnadenlos in die Debug-Umgebung springen. In dem Fall kannst du hier ein neues Topic aufmachen ;-) Sensibilisiere blos deine User entsprechend.
Problematisch kann es werden, wenn du spätere KW-Blätter mit anderen Prüfbereichen (mehr Zeilen ...) erstellst. Andererseits, solange in den Bereichen kein Rot vorkommt sind sie ja egal.
Nochmal sorry, ich werde mich beherrschen.
Alles gut. Wenn dir was neues einfällt, frag halt neu. Es ist bloß nervig, wenn sich die Aufgabenstellungen ändern - das demotiviert die Helfer, weil dann viel Arbeit für die Tonne war. Merke: Musterdateien gleich im Ursprungspost bewirken Wunder!
Grüße,
Klaus M.vdT.

https://www.herber.de/bbs/user/89719.xlsm
Er listet die Einträge zwar korrekt auf, verweist aber immer auf das aktive Tabellenblatt und springt nicht in das dazugehörige Tabellenblatt.
seltsam. Ich hatte ein Worksheet.Activate zum testen drin, damit lief es wunderbar. Habs vor dem Upload rausgeworfen, um das Bildschirmflackern zu verhindern. Seitdem läuft es nur noch in einem Blatt.
Referenzierung habe ich geprüft ... vielleicht geht r.color auch nur auf dem aktivem Blatt? Keine Ahnung. Ich hab jetzt das Activate wieder rein genommen. Schlechter Stil, aber es funktioniert jetzt.
Was wäre denn eine schönere Alternative?
Na ... halt das gleiche, nur ohne verbundene Zellen :-)
Zum horizontal verbinden kannst du stattdessen den Bereich markieren und unter rechtsclick-Format die Ausrichtung "über Auswahl zentrieren" wählen. Das sieht genauso aus wie ein Zellverbund, ist aber Zellenweise ansprech- und auswählbar. Du machst dir mit Verbundzellen im VBA und Formelbereich einfach viele Sachen unnötig kompliziert für minimalen Vorteil, meist eh nur Design!
Horizontal geht der Trick leider nicht. Da sage ich gebetsmühlenartig: Eine Tabelle die horizontal verbundene Zellen benötigt, ist Mist und muss anders aufgebaut werden.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

Hinweis/Warnmeldung wenn Schriftfarbe rot

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hinweis/Warnmeldung wenn Schriftfarbe rot

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread