AW: Hoch/Tief der vergangenen 52 Wochen gesucht.
06.10.2007 16:19:00
Daniel
Hallo
änhlich wie bei deiner letzten Frage kannst du das auf diese Weise bewerkstelligen, wobei ich mal die letzen 52 Wochen gleichgesetzt habe mit den letzen 365 Tagen ab dem aktuellen Datum.
Public Sub GetValues52H(Zieltabelle As Worksheet, ZielZeile As Long, ZielSpalte As Integer, _
QuellSpalte As Integer, Quellmappe As Workbook, ParamArray Tabellen() As Variant)
Dim intc As Integer
Dim Datum52WH As Long
Dim lngZeileLetzterTagVormonat As Long
Dim Zeile2 As Long
Dim Zeile1 As Long
Datum52WH = CLng(Date) - 365
For intc = 0 To UBound(Tabellen)
With Quellmappe.Sheets(Tabellen(intc))
Zeile2 = .Cells(65536, 1).End(xlUp).Row
If .Cells(2, 1).Value > Datum52WH Then
Zeile1 = 2
Else
Zeile1 = WorksheetFunction.Match(CLng(Date) - 365, .Columns(1), 1)
End If
Zieltabelle.Cells(ZielZeile + intc, ZielSpalte + 1).Value = _
WorksheetFunction.Max(.Range(.Cells(Zeile1, QuellSpalte), .Cells(Zeile2, QuellSpalte)))
Zieltabelle.Cells(ZielZeile + intc, ZielSpalte + 2).Value = _
WorksheetFunction.Min(.Range(.Cells(Zeile1, QuellSpalte), .Cells(Zeile2, QuellSpalte)))
End With
Next
End Sub
Gruß, Daniel