Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hoch/Tief der vergangenen 52 Wochen gesucht.

Hoch/Tief der vergangenen 52 Wochen gesucht.
06.10.2007 15:33:00
proxima05
Hallo,
aus mehreren Tabellen (Beispiel siehe Link) soll der höchste/niedrigste Wert der vergangenen 52 Wochen ausgefiltert und in ein anderes Blatt geschrieben werden.
Wie kann ich das realisieren. In der anliegenden Tabelle ein blattübergreifender Code, oder eine Alternative, die bisher aber nur auf ein Blatt beschränkt ist.
https://www.herber.de/bbs/user/46567.xls
Wäre klasse, wenn mir da jemand weiterhelfen könnte.
Allerbesten Dank,
Ralph
PS: Bitte vorher im Code noch den Tabellennamen anpassen, sonst gibt es gleich eine Fehlermeldung.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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

Anzeige
Fantastisch!! ... wT.
07.10.2007 10:33:41
proxima05
Hallo Daniel,
großartige Arbeit .... mit diesem und den anderen Codes habe ich eine Menge gelernt, wie man Abfragen strukturieren kann .... vielen vielen Dank.
Gruß
Ralph

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige