Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1028to1032
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
1028to1032
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

KW-Funktion

KW-Funktion
29.11.2008 16:28:23
Burghard
Hallo,
ich brauche mal Hilfe hinsichtlich einer Kalenderwochen-Funktion.
Ich habe dazu eine Beispieldatei hochgeladen.
https://www.herber.de/bbs/user/57238.xls
Im Tabellenblatt "01" in der Spalte "C3" beginnend, schreibe ich die Kalenderwoche rein. Ändere ich in A1 das Jahr, ändert sich richtigerweise der Beginn der 2. Kalenderwoche etc.
Im Tabellenblatt "Gesucht" habe ich einmal reingeschrieben, wie es eigentlich aussehen soll.
Vielleicht läßt sich ja das Ganze über eine "Bedingte Formatierung" lösen.
Schönen Gruß
Burghard

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: KW-Funktion
29.11.2008 16:35:06
Bernd
Hallo, Burghard!
Habe mal in Deiner Beispieldatei im Register 01 die Formel ergänzt. Formel in Zelle C4 ergänzt und runterkopiert.

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


Gruß Bernd
AW: KW-Funktion
29.11.2008 19:20:13
Burghard
Hallo,
mit Eurer Hilfe konnte ich die Lösung finden.
Nur beim Monat Januar in Zelle C3
=WENN(WOCHENTAG(B3;2)1;KÜRZEN((B3-WOCHENTAG(B3;2)+11-("1/"&JAHR(B3+4-WOCHENTAG(B3;2))))/7); KÜRZEN((B3-WOCHENTAG(B3;2)+11-("1/"&JAHR(B3+4-WOCHENTAG(B3;2))))/7))
In Zelle C4
=WENN(WOCHENTAG(B4;2)1;"";KÜRZEN((B4-WOCHENTAG(B4;2)+11-("1/"&JAHR(B4+4-WOCHENTAG(B4;2))))/7))
von dort runterkopieren.
Bei den weitern Monaten nur die Formel von Zelle C4 verwenden.
So kriege ich auch die Probleme mit der Woche 52 bzw. 53 Anfang Januar in den Jahren 2010 ff in den Griff.
Ohne die etwas geänderte Formel in C3 (nur Monat Januar) würde in manchen Jahren die KW 1 fehlen.
Vielen Dank für die Mühe und Hilfe!
Schönen Gruß
Burghard
Anzeige
AW: KW-Funktion
29.11.2008 17:05:00
Erich
Hallo ,
das würde ich so machen: (Spalte A hat ab Zeile 3 das benutzerdefinierte Format T
 ABC
31Do1
42Fr 
53Sa 

Formeln der Tabelle
ZelleFormel
A3=D1
B3=A3
C3=KÜRZEN((A3-DATUM(JAHR(A3+3-REST(A3-2;7)); 1;REST(A3-2;7)-9))/7)
A4=A3+1
B4=A4
C4=WENN(WOCHENTAG(A4;2)>1;"";KÜRZEN((A4-DATUM(JAHR(A4+3-REST(A4-2;7)); 1;REST(A4-2;7)-9))/7))
A5=A4+1
B5=A5
C5=WENN(REST(A5;7)=2;KÜRZEN((A5-DATUM(JAHR(A5+3-REST(A5-2;7)); 1;REST(A5-2;7)-9))/7); "")

Die Formel in C5 ist etwas kürzer als die in C4, dafür ist C4 "klarer".
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: KW-Funktion
29.11.2008 19:26:54
Burghard
Hallo,
mit Eurer Hilfe konnte ich die Lösung finden.
Nur beim Monat Januar in Zelle C3
=WENN(WOCHENTAG(B3;2)1;KÜRZEN((B3-WOCHENTAG(B3;2)+11-("1/"&JAHR(B3+4-WOCHENTAG(B3;2))))/7); KÜRZEN((B3-WOCHENTAG(B3;2)+11-("1/"&JAHR(B3+4-WOCHENTAG(B3;2))))/7))
In Zelle C4
=WENN(WOCHENTAG(B4;2)1;"";KÜRZEN((B4-WOCHENTAG(B4;2)+11-("1/"&JAHR(B4+4-WOCHENTAG(B4;2))))/7))
von dort runterkopieren.
Bei den weitern Monaten nur die Formel von Zelle C4 verwenden.
So kriege ich auch die Probleme mit der Woche 52 bzw. 53 Anfang Januar in den Jahren 2010 ff in den Griff.
Ohne die etwas geänderte Formel in C3 (nur Monat Januar) würde in manchen Jahren die KW 1 fehlen.
Vielen Dank für die Mühe und Hilfe!
Schönen Gruß
Burghard
Anzeige
AW: KW-Funktion
29.11.2008 21:04:00
Erich
Hallo Burghard,
das ginge auch mit einer einzigen Formel, gültig für alle Monate (auch Februar):
 ABCDE
12004Januar
2DatumWoEreignisseNotizen
31Do1  
42Fr   

Formeln der Tabelle
ZelleFormel
D1=DATUM($A$1;1;1)
A3=D1
B3=A3
C3=WENN(A3="";"";WENN((A3=DATUM($A$1;1;1))+(REST(A3;7)=2); KÜRZEN((A3-DATUM(JAHR(A3+3-REST(A3-2;7)); 1;REST(A3-2;7)-9))/7); ""))
A4=A3+1
B4=A4
C4=WENN(A4="";"";WENN((A4=DATUM($A$1;1;1))+(REST(A4;7)=2); KÜRZEN((A4-DATUM(JAHR(A4+3-REST(A4-2;7)); 1;REST(A4-2;7)-9))/7); ""))


 ABCDE
3028Mi   
3129Do   
3230Fr   
3331Sa   

Formeln der Tabelle
ZelleFormel
A30=A29+1
A31=WENN(MONAT(A$30+1)>MONAT(A$30); "";A$30+1)
A32=WENN(MONAT(A$30+2)>MONAT(A$30); "";A$30+2)
A33=WENN(MONAT(A$30+3)>MONAT(A$30); "";A$30+3)

In dieser Mappe findest du auch noch eine Zusammenfassung der Spalten A und B,
mit unterschiedlichen Formaten: https://www.herber.de/bbs/user/57248.xls
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: KW-Funktion
29.11.2008 17:11:00
Daniel
Hi
ergänze deine KWormel mal so:

=Wenn(Wochentag(B3;2)1;"";Deine KW-formel)


und kopiere die Formel ganz nach unten. dann sollte immer Montags die Kalenderwoche erscheinen.
bei einer Lösung über bedingte Formatierung müsstest du so vorgehen:
- Zellen C3-C34 markieren
- unter FORMAT - BEDINGTE FORMATIERUNG - FORMEL folgendes eingeben: =C3=C2 und bei FORMAT-SCHRIFT die Farbe weiss auswählen.
Gruß, Daniel
Gruß, Daniel

AW: KW-Funktion
29.11.2008 19:28:00
Burghard
Hallo,
mit Eurer Hilfe konnte ich die Lösung finden.
Nur beim Monat Januar in Zelle C3
=WENN(WOCHENTAG(B3;2)1;KÜRZEN((B3-WOCHENTAG(B3;2)+11-("1/"&JAHR(B3+4-WOCHENTAG(B3;2))))/7); KÜRZEN((B3-WOCHENTAG(B3;2)+11-("1/"&JAHR(B3+4-WOCHENTAG(B3;2))))/7))
In Zelle C4
=WENN(WOCHENTAG(B4;2)1;"";KÜRZEN((B4-WOCHENTAG(B4;2)+11-("1/"&JAHR(B4+4-WOCHENTAG(B4;2))))/7))
von dort runterkopieren.
Bei den weitern Monaten nur die Formel von Zelle C4 verwenden.
So kriege ich auch die Probleme mit der Woche 52 bzw. 53 Anfang Januar in den Jahren 2010 ff in den Griff.
Ohne die etwas geänderte Formel in C3 (nur Monat Januar) würde in manchen Jahren die KW 1 fehlen.
Vielen Dank für die Mühe und Hilfe!
Schönen Gruß
Burghard
Anzeige
AW: KW-Funktion
29.11.2008 18:09:48
Gert
Hallo Burghard,
Zelle D1 =Monat(1); Zelle A3=Datum(A1;D1;1); Zelle A4 =A3+1 und nach unten kopieren
Formatierung : A1 =Standard; D1=Format--->Zelle--->Benutzerdefiniert =MMMM.
Format Spalte_A = Benutzedefiniert TT; Format Spalte_B =wie gehabt;
Format Spalte_C =Benutzerdefiniert 00 (NullNull)
Formel in C3=wie gehabt; Formel in C4
=WENN(UND($A4<>"";$B4=2);KÜRZEN(($A4-WOCHENTAG($A4;2)-DATUM(JAHR($A4+4-WOCHENTAG($A4;2));1;-10) )/7);"")
bitte die "gemischten Bezüge" beachten und nach unten kopieren.
mfg
Gert
AW: KW-Funktion
29.11.2008 19:29:26
Burghard
Hallo,
mit Eurer Hilfe konnte ich die Lösung finden.
Nur beim Monat Januar in Zelle C3
=WENN(WOCHENTAG(B3;2)1;KÜRZEN((B3-WOCHENTAG(B3;2)+11-("1/"&JAHR(B3+4-WOCHENTAG(B3;2))))/7); KÜRZEN((B3-WOCHENTAG(B3;2)+11-("1/"&JAHR(B3+4-WOCHENTAG(B3;2))))/7))
In Zelle C4
=WENN(WOCHENTAG(B4;2)1;"";KÜRZEN((B4-WOCHENTAG(B4;2)+11-("1/"&JAHR(B4+4-WOCHENTAG(B4;2))))/7))
von dort runterkopieren.
Bei den weitern Monaten nur die Formel von Zelle C4 verwenden.
So kriege ich auch die Probleme mit der Woche 52 bzw. 53 Anfang Januar in den Jahren 2010 ff in den Griff.
Ohne die etwas geänderte Formel in C3 (nur Monat Januar) würde in manchen Jahren die KW 1 fehlen.
Vielen Dank für die Mühe und Hilfe!
Schönen Gruß
Burghard
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige