gefärbte Zellen mit Zeichen füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Det…
gefärbt wurde mit bedingterFormatierung, soll sich aber nicht ändern wenn sich die Farbe später ändert. Braucht sich also nicht aktualisieren.
Was nun, darf sich die Farbe ändern oder nicht? Bei Bezug der BedingtFormatierung auf die Standortzelle oder eine andere, die so einen Strich erhält, würde die Färbung idR unwirksam wdn, weil dann höchstwahrscheinlich die Bedingung der Formatierungsregel nicht mehr erfüllt ist.
Im Übrigen könnte man zwar auf allen Zellen des Bereichs problemlos nach Anlage einer BedingtFormatierung suchen, wüsste aber nicht, ob eine ihrer Bedingungen erfüllt ist, denn dabei handelt es sich nicht um das Objekt Zelle (Range, dessen ZellFarbIndex bleibt xlNone), sondern um das FormatCondition-Objekt und das verrät uns seine Bedingungsfmln nur auf deutsch (oder hast du ein englischsprachiges Xl?). Da VBA nur Englisch spricht, müsste die Fml ins US-Original umgewandelt wdn, um sie auswerten zu können (gibt auch eine Methode auf Deutsch über die XLM-Fkt AUSWERTEN in einer benannten Fml, aber das ist aus einem VBA-Pgm heraus noch komplizierter!).
So kann also auf einfache Weise nicht festgestellt wdn, welche deiner Zellen nun farbig sind oder nicht, egal, ob sie die Farbe behalten sollen (auch das ist möglich!) oder nicht.
Falls du stets dieselbe Bedingung zum Hervorrufen der Farbe benutzt hast, ist es ja noch relativ unkompliziert → man wertet die einfach für jede Zelle nochmal per VBA aus. Sind es aber ganz unterschiedliche, was bei verschiedenen Farben ja zu befürchten ist, und womöglich noch komplexere Bedingungsformeln im Spiel, kann das rational nur vollautomatisiert erledigt wdn. Aber gerade das, ich habe das heute schon mal geschrieben, ist mE eine Art „Heiliger Gral“ der xlVBA-Pgmierung! Und der ist bekanntlich bis Heute noch nicht identifiziert!
Fazit: Es geht zwar, kann aber u.U. recht aufwendig wdn. Deshalb solltest du uns …
1. noch die erforderlichen Infos zukommen lassen,
2. über mindestens gute (besser sehr gute) VBA-Kenntnisse verfügen, damit du Beschreibungen verstehen und nachvollziehen kannst.
Gruß Luc :-?

…Det;
Flgd Prozedur in ein normales Modul des VBProjekts (Rechtsklick auf Projekt im VBE-Explorer → Einfügen → Modul → in oberste Zeile desselben Option Explicit eintragen falls nicht schon vorhanden [kann im VBE eingestellt wdn]) einfügen (kurze PgmErklärung s.u.)…

Rem Signierung v.WE- u.spez (F-)Tagen m.festgelegtem Symbol
'   Achtung! Prozedur bezieht sich auf d.jeweils akt Blatt!
'   adKalBer-KT müssen echte Datumsangab sein (auch 29.2.)!
'   Vs1.0 -LSr -CD:20130301 -1pub:20130301/herber -lUpD:20130301t
Sub WESignum()
Const lfdNr1WET As Integer = 6, symSig$ = "'-", adFT$ = "F6,DW6,NA6:NB6", _
adKalBer$ = "F6:NG6", adSigBer$ = "F37:NG66,F72:NG101,F107:NG136,F142:NG172"
Dim anzVorsp As Long, ebFT As Range, KalT As Range, SigBer As Range
anzVorsp = Range(adKalBer).Column - 1
For Each KalT In Range(adKalBer)
If WorksheetFunction.Weekday(KalT, 2)

Die Konstanten am PgmAnfang haben folgende Bedeutung:
lfdNr1WET → lfd Nr des Wochentags, ab dem die Signierung mit symSig erfolgen soll
symSig → WE-Signier-Symbol – bei - (bzw +) hier mit Textpräfix ', falls ZellFormat nicht Text ist
adFT → KT-Adress-Auflistung der Feier- u.sonstigen Tage, die ebenfalls einbezogen wdn sollen (muss noch vervollständigt wdn!)
adKalBer → Adresse des KT-Notat-Bereichs (hier Jahreskalender)
adSigBer → Adress-Auflistung der Signierbereiche (hier als Mehrfachbereichsangabe)
Durch diese Vorgehensweise stehen alle ggf zu aktualisierenden Angaben am PgmAnfang und können so leicht späteren Erfordernissen angepasst wdn. In den folgd PgmZeilen muss so idR nichts geändert wdn.
Die nachflgd Variablen haben diese Bedeutung:
anzVorsp → Vorspaltenanzahl der Tabelle; wird automatisch aus Range(adKalBer) ermittelt und im Pgm als Korrektiv benötigt
ebFT → Objekt-Laufvariable für FT-Bereiche aus Range(adFT)
KalT → Objekt-Laufvariable für Kalenderbereich Range(adKalBer) (→nach For Each-Abarbeitung automatisch Nothing
SigBer → Objekt-Laufvariable für Signierbereiche aus Range(adSigBer) (→dito)
Die Symbole wdn spaltenweise (auf 1× pro Signier-Teilbereich) eingetragen und horizontal zentriert.
Probleme könnte der 29.2. in Nicht-Schaltjahren bereiten (auch im BedingtFormat). Behelf: Als Jahr ein Schaltjahr eintragen, in dem der 29.2. nicht (bzw gerade doch, je nach Erfordernis) auf ein WE fällt.
Viel Erfolg!
SchöWE, Gruß Luc :-?

Sub FreieTageMakieren() 'Dimmensionierung der Variablen Dim Zeile As Long 'Zeilenvariable Dim Spalte As Long 'Spaltenvariable Dim anfSpalte As Long 'Anfang der Spalte Dim anfZeile As Long 'Anfang der Zeile Dim endeZeile As Long 'Ende Zeile Dim endeSpalte As Long 'Ende Spalte Dim AktZeile As Long 'Aktuelle Zeile Dim AktSpalte As Long 'Aktuelle Spalte Dim ZeileDatum As Long 'Zeile wo Datum steht anfSpalte = 6 'Anfangswert der Spalte endeSpalte = 371 'Ende der Schleife bei Spalte anfZeile = 8 'Anfangswert der Zeile endeZeile = 34 'Ende der Schleife bei Zeile ZeileDatum = 6 'Zeile wo Datum steht For Zeile = anfZeile To endeZeile 'Schleife für Zeile For Spalte = anfSpalte To endeSpalte 'Schleife für Spalte Cells(Zeile, Spalte) = "" Select Case Cells(ZeileDatum, Spalte) Mod 7 Case 1 Cells(Zeile, Spalte) = "'-" 'Frei mit "-" füllen Case 2 Cells(Zeile, Spalte) = "'-" 'Frei mit "-" füllen End Select Next Spalte Next Zeile End Sub

Beliebteste Forumthreads (12 Monate)

gefärbte Zellen mit Zeichen füllen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

gefärbte Zellen mit Zeichen füllen

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

303 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