Dank WENNFEHLER hat sich der Bedarf ...
02.11.2018 20:25:10
lupo1
von PUTV und GETV übrigens schon mal bestimmt ca. halbiert.
Aber es gibt doch immer wieder Funktionsteil-Wdh. wie hier (excel-center ist mittlerweile tot):
Sub EineMehrfachoperationErstellen() 'getestet unter xl2000 und xl2010
'gibt den nächsten Freitag in ungerader Kalenderwoche aus, jedoch mit Abstand minimal 3 Tage
'aus: http://www.excel-center.de/ _
foren/read.php?2,115167
(hier schon korrigiert!)
Workbooks.Add xlWorksheet
[A:B].NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
[A:B].ColumnWidth = 27
[A1,A4] = 42353 '2015 war ein Jahr mit 53. Woche: 2 ungerade Wochen hintereinander!
q = Chr(10) & "TRUNC((RC[-1]+10)/7)*7-1"
[B1].FormulaR1C1 = "=" & q & "+7-(" & q & "-RC[-1]>2)*MOD(TRUNC((" & q & "-DATE(YEAR(" & _
q & "+3-MOD(" & q & "-2,7)),1,MOD(" & q & "-2,7)-9))/7),2)*7"
[D1:E1,D4:E40].FormulaR1C1 = "=TRUNC((RC[-3]-DATE(YEAR(RC[-3]+3-MOD(RC[-3]-2,7)),1,MOD(RC[-3]-2, _
7)-9))/7)"
'auch hier Pölt-Formel: http://www. _
excelformeln.de/formeln.html?welcher=7
für Excel vor 2010
[A5:A40].FormulaR1C1 = "=R[-1]C+1"
[B3].FormulaR1C1 = "=R1C2"
[A3].CurrentRegion.Table ColumnInput:=[A1]
End Sub
(Code evtl beim Umbruch reparieren)