Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
760to764
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kalenderwochen über zwei Jahre

Kalenderwochen über zwei Jahre
06.05.2006 19:18:01
Venjacob
Hallo Leute,
ich bin dabei eine graphische Darstellung von Projekten unter Excel XP zu "bauen".
Dazu habe ich für das laufende Jahr (2006) das aktuelle Datum in Kalenderwochen umformatiert, und sie in 52 nebeneinander liegenden Spalten in Zeile 3 geschrieben.
Der Code sieht dann so aus:
Au1blatt.Range("AA3") = Kal_Woche
Au1blatt.Range("Ab3") = Kal_Woche + 1
Aublatt....
Au1blatt.Range("?3") = Kal_Woche + 52
Ich hätte gern auch noch die ersten 10 Wochen von 2007 in der Zeile 3, aber mein aktueller Code schreibt dann "Woche 53, 54, usw., anstatt: Woche 1, 2, usw..
Wie bekomme ich die ersten zehn Wochen von 2007 hinter die letzte Woche aus 2006?
Danke für Tips
Gruß Friedel

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalenderwochen über zwei Jahre
06.05.2006 20:11:36
Gerhard
Hallo Friedel,
eine Projektliste nach KW habe ich bereits erstellt, ohne VBA. (Evtl. sind noch Fehler zu finden!)
Vielleicht kann sie als Beispiel dienen.
https://www.herber.de/bbs/user/33386.xls
Gruß
Gerhard E.
AW: Kalenderwochen über zwei Jahre
06.05.2006 21:11:48
Ralf
Hi Venjacob,
da hast Du Dir ja richtig viel Mühe gemacht. Extra eine Funktion geschrieben, die Dir die KW vom 1.1.06 ausgibt...:-) Wenn in AA3 sowieso die 1. KW steht und 2006 tatsächlich 52 KWn hat, dann ginge das auch einfacher.

Sub KWn_schreiben()
Dim x as byte
Range("AA3").Activate
For x = 1 to 62 '52 KWn für 06 + 10 für 07
if x <= 52 then
activecell.offset(0,x-1) = "KW " & x
else
activecell.offset(0,x-1) = "KW " & x - 52
end if
next x
End Sub

Ciao, Ralf
Anzeige
AW: Kalenderwochen über zwei Jahre
06.05.2006 22:16:00
Friedel
Hallo Ralf,
erst mal vielen Dank für Deine Antwort.
Zwischenzeitlich hab gemerkt dass ich einen Gedankenfehler gemacht habe. Zusätzlich habe ich auch in meiner Frage vergessen zu erwähnen, dass die aktuelle Woche immer im Feld Au1blatt.Range("AA3") = Kal_Woche stehen soll. In den Spalten Links davon sollen die 10 bereits vergangenen Kalenderwochen des aktuellen Jahres stehen, rechts davon sollen die verbleibenden Wochen, sowie die ersten Wochen des neuen Jahres, also 2007, Woche für Woche heran rücken.
Gruß Friedel
AW: Kalenderwochen über zwei Jahre
06.05.2006 23:25:36
Ralf
Hi Friedel,
also praktisch gleitende Kwn. Da ist das Prinzip nicht viel anders. Übrigens hatte ich auch einen Gedankenfehler. Der 1.1. kann ja durchaus KW 53 sein...:-)
Gut, gehen wir davon aus, dass 2006 52 KWn hat (ich hab's nicht nachgeprüft). Du willst trotzdem insgesamt 62. Dann gehe ich davon aus, dass Du das in Deiner KW Funktion berücksichtigt hast. Zähle vergangene KWn seit dem 1.1.06. In AA3 steht immer die aktuelle, links davon max. 10 vergangene, rechts der Rest.
Ach so, hab jetzt Deinen Funktionsnamen nicht mehr im Kopf. Ich nenne ihn hier mal KW.

Sub KWn_anzeigen()
Dim  x as byte, y as Byte, z as byte, aktKW as byte '(Wenn KW Byte zurückliefert!)
aktkw = KW 'hier den richtigen Funktionsnamen einsetzen
range("AA3").activate
For x = aktkw to 62 - aktkw
if x > 52 then
activecell.offset(0,y) = "KW " & aktkw- 52
else
activecell.offset(0,y) = "KW " & x
endif
y = y+1
next x
z = IIf(aktkw <= 10, aktkw, 10) 'max. 10 Wochen nach links
if z > 0 then
For x = 1 to z
activecell.offset(0, -x) = aktkw -x
next x
endif
End Sub

Sollte funktionieren...
Ciao, Ralf
Anzeige
AW: Kalenderwochen über zwei Jahre
06.05.2006 22:32:38
Venjacob
Hallo Ralf,
erst mal vielen Dank für Deine Antwort.
Zwischenzeitlich hab gemerkt dass ich einen Gedankenfehler gemacht habe. Zusätzlich habe ich auch in meiner Frage vergessen zu erwähnen, dass die aktuelle Woche immer im Feld Au1blatt.Range("AA3") = Kal_Woche stehen soll. In den Spalten Links davon sollen die 10 bereits vergangenen Kalenderwochen des aktuellen Jahres stehen, rechts davon sollen die verbleibenden Wochen, sowie die ersten Wochen des neuen Jahres, also 2007, Woche für Woche heran rücken.
Excel gut; VBA geht so
Gruß Friedel
AW: Kalenderwochen über zwei Jahre
06.05.2006 23:32:01
Ralf
...lach... schreibst Du im Familienverband? :-))
Anzeige

157 Forumthreads zu ähnlichen Themen

Fällt Datum in einen Datumbereich dann Eintrag
Josef

Guten Morgen!
Ich habe in der Tabelle 1 in der Spalte A sechsstellige Zahlen stehen.
In derSpalte E stehen Datumsbereiche z.B. 31.05.07-06.06.07.
In der Tabelle stehen in der Spalte A ebenfalls diese sechsstelligen Zahlen, In der Spalte D steht jeweils ein Datum.
Ich möchte jetz...
12.09.2008 07:20:00
Thread-ID: 1009268
10 Beiträge
Anzeige
Zählen mit zwei Bedingungen & Datum
Karen

Hallo Forum,
ich möchte gerne folgenden Sachverhalt durch eine Formel darstellen:
Ergebnis:
Ich habe eine Spalte mit einer Datumsabfolge und eine Spalte, in der die Summe des auftauchenden Datum eingetragen werden soll.
Datenquelle:
Hierzu muß ich nach dem Datum x und nac...
09.10.2008 15:49:00
Thread-ID: 1015377
3 Beiträge
Verzugsdatum einfärben
Hans-Jürgen

Hallo,
ich möchte gerne eine Projektplanung mit Excel erstellen...
Ich habe eine Spalte für den Namen mit den Vorhaben, eine weitere Spalte mit dem Startdatum und zwei weitere Spalten mit SOLL-Fertig und IST-Fertig.
Bei SOLL-Fertig möchte ich nun einfach ein Datum eintragen und dan...
27.10.2008 11:32:00
Thread-ID: 1019589
6 Beiträge
Anzeige
Wochenende nicht mitzählen in Funktion
Nils

Hallo,
ich habe zwei kleine Probleme, die mir einer von euch sicher "leicht" beantworten kann.
Und zwar:
1. ich würde gern die Funktion "AktDatevar = Startvar + 1" für die Datumsprüfung unter Berücksichtigung der Wochenenden machen (also diese nicht mit zählen), weiss aber nicht, wi...
05.12.2008 15:31:00
Thread-ID: 1030477
2 Beiträge
Datumswerte unter Bedingung zählen
Wolfango

Hallo Experten,
ich habe eine Spalte mit vielen Datumswerten.
Nun möchte ich ermitteln, wieviele dieser Datumswerte "größer als heutiges Datum +30Tage" sind.
(...ich versuche die ganze Zeit "ZÄHLENWENN" und "HEUTE" zu kombinieren um die Aufgabe zu lösen aber ich bekomms nicht hin...
12.12.2008 10:56:00
Thread-ID: 1032331
7 Beiträge
Datum mit Bedingte formatieren färben
CarstenAS

Hallo
Wie erreiche ich mit der bedingten formatierung dass ich alle zeilen mit selben datum in einer farbe bekomme
meine Liste ist so aufgebaut in spalte A steht ein Datum nun möchte ich alle Werte die mit dem 01.02.2009 beginnen zb grün sind alle werte die 02.02.2009 beginnen rot sind...
08.02.2009 12:47:31
Thread-ID: 1048270
3 Beiträge
Wochenenden und definierter Datumsbereich
Daniel

Hallo zusammen,
da meine letzte Fragestellung so super beantwortet wurde habe ich sogeich die nächste:
Wie kann man folgendes realisieren? Es sollen die Wochenenden und die Schulferien(die ich in einem separatem Tabellenblatt definiert habe) farblich hinterlegt werden.
Das Tabellen...
11.02.2009 17:14:00
Thread-ID: 1049704
3 Beiträge
Zählen in Abhängigkeit Wochentag
Newbie

Hallo Leute,
Ich habe folgendes Problem:
Eine Tabelle erkennt automatisch die Anzahl der Tage eines Monates und schreibt dementsprechend die Tage als Kalender auf.
In der Nebenspalte sind verschiedene Abkürzungen eingetragen (also A1 bis A28-A31 Datum, B1-B31 Abkürzungen).
J...
01.03.2009 16:09:27
Thread-ID: 1055250
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
5
2
5
6
1
6
2
2
12
11
4
2
2
9
4
6
1
7
1
14
2
2
3
1