Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1728to1732
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blockweise ausrichten und färben

Blockweise ausrichten und färben
18.12.2019 08:05:06
Norbert
Guten Tag Spezialisten
gerne möchte ich meine Beispieltabelle die Übersicht vereinfachen. In der 3. Zeile lasse ich mir aufgrund des eingegebenen Datum die Kurzwoche anzeigen. Damit ich eine bessere Übersicht bekomme möchte ich die Kurzwochen zusammenfassen, sodass dies nur 1x pro Block angezeigt werden (wie z.B. in Zeile 8 abgebildet). Pro Monat gibt es dann ein Register. Geht das über ein VBA Skript? Über eine bedingte Formatierung kriege ich's nicht hin.
Danke euch jetzt schon für eine Lösung
Gruss Norbert
https://www.herber.de/bbs/user/133837.xlsx

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blockweise ausrichten und färben
18.12.2019 08:18:15
Hajo_Zi
Hallo Norbert,

Vorlage
 ABCDEFGHIJKLMNOPQRSTUVWXYZAAABACADAEAFAG
3KW55666666677777778888888999999910Total
die bedingte Formatierung Fülleffekte, Symbole, Datenbalken
werden in dieser Tabelle nicht dargestellt

verwendete Formeln
Zelle Formel Bereich N/A
B3:AF3=KALENDERWOCHE(B4;2)  

Zahlenformate
Zelle Format Inhalt
AA3:AE3, Y3:Z3 '"KW"0  9
AF3 '"KW"0  10
B3:C3 '"KW"0  5
D3:J3 '"KW"0  6
K3:Q3 '"KW"0  7
R3:X3 '"KW"0  8
Zellen mit Format Standard werden nicht dargestellt

Bedingte Formatierung Haupttabelle 1  
Wird angewendet auf   Nr. Bed.  Regeltyp  Operator   Formel1   Formel2   Format Schrift Füll-farbe   Unterstrichen   Schrift- farbe Muster   Muster-farbe Typ Bereich
$A$3:$DV$301.Bed.: Formel ist =B3=A3   Test         2$A$3:$DV$3
Bedingte Formatierung Haupttabelle 2 oberere/unterer Bereich    
Wird angewendet auf   Nr. Bed.  Format Zelle Anhalten Auswahl   Anzeige   Anzahl   Durchschnitt   Typ   Bereich
$A$3:$DV$301.Bed.';;;  Falsch          2$A$3:$DV$3
Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.




Anzeige
AW: Blockweise ausrichten und färben
18.12.2019 09:23:23
Norbert
Hallo Hajo
Geht das nicht, dass bei einem Monatswechsel die neuen Kurzwochen Blöcke automatisch gebildet werden, ohne dass ich diese jeweils neu definieren muss? Sonst hilft mir die bedingte Formatierung nicht viel, dann kann ich gleich die Zellen manuell verbinden.
Hast du vielleicht ein Skript, dass die Ausführung automatisch übernimmt?
Danke für Bescheid
Gruss Norbert
AW: Blockweise ausrichten und färben
18.12.2019 10:51:30
Pierre
Hallo Norbert,
schau bitte mal hier, Antwort 3:
https://supportnet.de/fresh/2005/12/id1228157.asp
Die 10er innerhalb des Codes müsstest du auf die richtige Zeilennummer ändern.
Gruß Pierre
Anzeige
AW: Blockweise ausrichten und färben
18.12.2019 12:42:19
Rolf
Hallo Norbert,
z.B. so:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Address(0, 0)  "B4" Then Exit Sub
Range("B3:AF3").HorizontalAlignment = xlCenterAcrossSelection
For Each rng In Range("B4:AF4")
If Weekday(rng, vbMonday) = 1 Then  'Montag
rng.Offset(-1, 0) = DatePart("ww", rng, vbMonday, vbFirstFourDays)
ElseIf rng.Column = 2 Then          '1. Tag des Monats
rng.Offset(-1, 0) = DatePart("ww", rng, vbMonday, vbFirstFourDays)
Else                                'restliche Tage
rng.Offset(-1, 0).ClearContents
End If
Next
End Sub
die Einfärbung machst Du mit bed. Formatierung in B3:AF3:
=REST(KALENDERWOCHE(B$4;21);2)=1
Gruß Rolf
Anzeige
AW: Blockweise ausrichten und färben
18.12.2019 12:59:02
Rolf
Hallo Norbert,
DatePart kann in Ausnahmefällen falsche KWs angeben (KW53, statt KW 1)
deshalb vielleicht besser: Application.WorksheetFunction.WeekNum(rng, 21)
Gruß Rolf

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige