HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Datum, Kalenderwoche und Quartal
hans-joachim

Hallo Experten,
habe mal eine Frage ich habe eine Tabelle in Spalte B steht die Kalenderwoche, in Spalte C steht Quartal, in Spalte D steht Tag und in Spalte E das Datum gibt es eine Möglichkeit das für jede Woche per Makro zu Automatisieren bis jetzt wird jede Woche manuell gebaut.
danke für Eure hilfe
Gruß
Hans-Joachim

AW: Datum, Kalenderwoche und Quartal
Josef

Hallo Hans-Joachim,
was soll den errechnet werden? Bzw. welche Daten liegen vor?

Gruß Sepp



AW: Datum, Kalenderwoche und Quartal
hans-joachim

Hallo Sepp,
habe hier mal eine Kopie geladen (https://www.herber.de/bbs/user/49674.xls). Mir geht es darum das ich fortlaufend pro Woche die Spalten aufbauen kann ohne das immer manuell machen zu müssen. Also Nach Kalenderwoche 5 kommt eben die 6, dazu sollen dann die Wochentage und das aktuelle Datum fortlaufend aufgebaut werden.
Gruß
Hans-Joachim

AW: Datum, Kalenderwoche und Quartal
Gert

Hallo Hans-Joachim,
bei mir erscheint dei Meldung : "Die Seite ist nicht erreichbar! ! !".
Solltest die Datei noch mal hochladen.
mfg
Gert

AW: Datum, Kalenderwoche und Quartal
hans-joachim

Hallo Gerd,
danke für die Info habe die Datei noch mal geladen.
https://www.herber.de/bbs/user/49677.xls
Gruß
Hans-Joachim

AW: Datum, Kalenderwoche und Quartal
Josef

Hallo Hans_Joachim,
meinst du so?
https://www.herber.de/bbs/user/49678.xls

Gruß Sepp



AW: Datum, Kalenderwoche und Quartal
hans-joachim

wenn Du meinst ob ich die Datei meine ja

Die Formeln? angesehen? o.T.
Josef


Gruß Sepp



AW: Die Formeln? angesehen? o.T.
hans-joachim

sorry hatte ich übersehen.

AW: Datum, Kalenderwoche und Quartal
hans-joachim

Hallo Sepp,
das ist gut so geht es, aber kann man das nun auch über vba lösen ?
Gruß
Hans-Joachim

AW: Datum, Kalenderwoche und Quartal
Josef

Hallo Hans-Joachim,
wann soll der Eintrag erfolgen, oder wodurch soll der Eintrag ausgelöst werden?

Gruß Sepp



AW: Datum, Kalenderwoche und Quartal
hans-joachim

am liebsten wäre mir das über eine Symbolleiste in Excel die mit einem Button hinterlegt ist über den dann das Makro bei Bedarf in jeder Woche neu gestartet werden kann.

AW: Datum, Kalenderwoche und Quartal
Josef

Hallo Hans-Joachim,
ganz oben in der Menüleiste, findest du den Button "Woche anlegen".
https://www.herber.de/bbs/user/49679.xls

Gruß Sepp



AW: Datum, Kalenderwoche und Quartal
hans-joachim

Hallo Sepp,
danke klasse genauso habe ich mir das vorgestellt.
Gruß
Hans-Joachim

AW: Datum, Kalenderwoche und Quartal
hans-joachim

Hallo Sepp,
eine Frage hätte ich noch kann man das ganze auch fortlaufend hinbekommen. So wie das Makro jetzt arbeitet überschreibt es immer wieder die Zahlen in der Tabelle, kann man das auch so variable gestallten das es fortlaufend dann weiter geht ohne überschreiben der alten werte damit diese auch zurück verfolgt werden können bei Bedarf?
Gruß
Hans-Joachim

AW: Datum, Kalenderwoche und Quartal
Josef

Hallo Hans-Joachim,
wäre es nicht Sinnvoller, wenn man immer gleich das ganze Jahr anlegt?

Gruß Sepp



AW: Datum, Kalenderwoche und Quartal
hans-joachim

Also so gesehen hast Du recht wäre sinnvoller. Da gibt es nur ein weiteres Problem bei ich muss einmal in der Woche für 4 oder 5 Teams so eine Liste aufbauen damit diese dort Daten eintragen können und ich diese Daten in einer Masterliste zusammenführe kann die so aufgebaut ist wie die dich ich geladen habe. Wir wollen eigentlich diesen wöchentlichen Aufbau bei behalten damit die Kollegen nur immer eine Woche haben.

AW: Datum, Kalenderwoche und Quartal
Josef

Hallo Hans-Joachim,
kein Problem. Wichtig ist nur eines. Solltest du die Tabelle mal löschen, dann müssen die Einträge und Formatierungen in den Zeilen 34 bis 285 erhalten bleiben (Einträge nur in den Spalten F:I), damit die Tabelle fortgeführt werden kann. Als Datum wird jetzt immer das Folgedatum aus Spalte E vorgeschlagen.
https://www.herber.de/bbs/user/49683.xls

Gruß Sepp



AW: Datum, Kalenderwoche und Quartal
hans-joachim

Hallo Sepp,
Du hast mir sehr geholfen danke Dir sehr freundlich.
Gruß
Hans-Joachim

kleine Korrektur
Josef

Hallo nochmal,
ändere im Code die Zeile
.Range(.Cells(lngS, 10), .Cells(lngS + 251, Columns.Count)).ClearContents

ab in
On Error Resume Next
.Range(.Cells(lngS, 10), .Cells(lngS + 251, Columns.Count)).SpecialCells(xlCellTypeConstants).ClearContents
On Error GoTo 0


Gruß Sepp



AW: kleine Korrektur
hans-joachim

Hallo,
ja mache ich.
Gruß
Hans-Joachim