|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.06.2023 13:23:41 |
Iona |
|
|
|
19.06.2023 15:30:03 |
Gast71480 |
|
|
|
19.06.2023 16:48:50 |
Iona |
|
|
|
19.06.2023 16:51:22 |
Gast7777 |
|
|
 Neuberechnung deaktivieren |
19.06.2023 17:02:50 |
Iona |
|
|
|
19.06.2023 17:11:51 |
Gast7777 |
|
|
|
19.06.2023 17:18:19 |
Gast23183 |
|
|
|
21.06.2023 10:58:56 |
Iona |
|
|
|
21.06.2023 13:10:06 |
Gast62807 |
|
|
Von:
Iona |
Datum:
19.06.2023 17:02:50 |
Views:
244 |
Rating:
|
Antwort:
|
Thema:
Neuberechnung deaktivieren |
|
Nun, ich habe ein Terminprogramm welches in Kalenderform dargestellt ist. Der Zeitbereich streckt sich über knapp ein Jahr. Damit die Wochenenden erkennbar sind möchte ich diese orange eingefärbt haben. Dies macht es wenn das Textkürzel vom Tag rot ist. Für zusätzliche Feiertage oder Ferien habe ich die Hilfszeile oben mit den roten Zellen -> Wenn der Projektstart ändert kann diese Hilfszeile einfach mitgeschoben werden. Und so gibt es halt pro Tag bzw. pro Spalte eine bedingte Formatierung. Ich habe es schon mit extrem aufwändigen Makros gemacht die wirklich jede einzelne Zelle durchgehen und diese dann entsprechend einfärben, aber da ist die rechenzeit sehr lange. Deshalb wollte ich es mal so probieren.
Wenn du eine bessere Lösung hast bin ich natürlich offen dafür.
Unten noch die function
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| S |
S |
M |
D |
M |
D |
F |
S |
S |
M |
D |
M |
D |
F |
S |
S |
M |
D |
M |
D |
F |
S |
S |
M |
D |
M |
D |
F |
S |
S |
M |
D |
M |
D |
F |
S |
S |
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Function HighlightRedFont(pRg As Range) As Boolean
'Updateby ExtendOffice
Dim xRg As Range
Dim xBol As Boolean
xBol = False
For Each xRg In pRg
If Application.Caller.Interior.Color = RGB(255, 255, 255) Or Application.Caller.Interior.Color = RGB(242, 242, 242) Or Application.Caller.Interior.Color = RGB(252, 222, 198) Then
If xRg.Font.Color = RGB(255, 0, 0) Or xRg.Interior.Color = RGB(255, 0, 0) Then
xBol = True
End If
Else: GoTo Ende
End If
Next
HighlightRedFont = xBol
Ende:
'MsgBox Application.Caller.Address
End Function
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.06.2023 13:23:41 |
Iona |
|
|
|
19.06.2023 15:30:03 |
Gast71480 |
|
|
|
19.06.2023 16:48:50 |
Iona |
|
|
|
19.06.2023 16:51:22 |
Gast7777 |
|
|
Neuberechnung deaktivieren |
19.06.2023 17:02:50 |
Iona |
|
|
|
19.06.2023 17:11:51 |
Gast7777 |
|
|
|
19.06.2023 17:18:19 |
Gast23183 |
|
|
|
21.06.2023 10:58:56 |
Iona |
|
|
|
21.06.2023 13:10:06 |
Gast62807 |
|
|