Microsoft Excel

Herbers Excel/VBA-Archiv

Zelle um Zahl addieren


Betrifft: Zelle um Zahl addieren von: Denver
Geschrieben am: 29.08.2016 14:52:32

Hi,

vor einiger Zeit wurde mir schon mal geholfen.

Es geht um den Code in folgender Datei https://www.herber.de/bbs/user/107517.xlsm

Ich versuche den Code so abzuändern, dass die Zahl nicht mehr am Monatsende, sondern z.B. am 10. eines Monats addiert wird. Der Teil mit den Wochenenden und den Feiertagen soll so bleiben.

Meine Idee wäre gewesen,den Teil LastDatM = Day(DateSerial(Year(Heute), Month(Heute) + 1, 0)) in DateSerial = Day(DateSerial(Year(Heute), Month(Heute) + 1, 10)) abzuändern. Aber das funktioniert nicht.

  

Betrifft: AW: Zelle um Zahl addieren von: Rudi Maintaire
Geschrieben am: 29.08.2016 14:58:19

Hallo,
statt
LastDatM = Day(DateSerial(Year(Heute), Month(Heute) + 1, 0))
einfach
LastDatM = 10

Gruß
Rudi


  

Betrifft: AW: Zelle um Zahl addieren von: Denver
Geschrieben am: 29.08.2016 17:46:59

Ok, danke! Bisher schreibt er alles in B. Wie kann man es machen, dass es es in C schreibt? Und zuletzt soll es alles (Monatesende, 10) in ein Modul geschrieben werden, also muss ich einmal LastDatM umbenennen?


  

Betrifft: AW: Zelle um Zahl addieren von: Denver
Geschrieben am: 30.08.2016 11:37:26

Hm, jemand eine Idee?


  

Betrifft: AW: Zelle um Zahl addieren von: ChrisL
Geschrieben am: 30.08.2016 13:06:05

Hi

Überall wo Offset(i, 1) steht, in Offset(i, 2) ändern.

Und ja, LastDatM einmalig umschreiben. Probieren geht über studieren ;)

cu
Chris


  

Betrifft: AW: Zelle um Zahl addieren von: Denver
Geschrieben am: 30.08.2016 14:26:12

Vielen Dank!
Im Code steht:

Heute = Date
Do
LastDatM = Day(DateSerial(Year(Heute), Month(Heute) + 1, 0))
DatumNew = CDate(LastDatM & "." & Format(Heute, "MM.YYYY"))

Ich will, dass er die Zahl auch nur ab dem aktuellen Monat addiert. Wenn ich es ändere in:

DatumNew = CDate(LastDatM & "." & Format(Heute, "DD.MM.YYYY"))

klappt es nicht, weil er dann auch am 10.08 addiert. Das soll er nicht, weil der vorbei ist, sondern erst wieder am 10.09


  

Betrifft: AW: Zelle um Zahl addieren von: ChrisL
Geschrieben am: 30.08.2016 14:59:49

Hi

OK, jetzt glaube ich zu verstehen ;)

If Day(Date) < 10 Then
    DatumNew = DateSerial(Year(Date), Month(Date), 10)
Else
    DatumNew = DateSerial(Year(Date), Month(Date) + 1, 10)
End If
cu
Chris

cu
Chris


Beiträge aus den Excel-Beispielen zum Thema "Zelle um Zahl addieren"