ich habe folgenden Code geschrieben. Er soll eine Tabelle von Werten nach dem Maximum durchsuchen. Die Suche beginnt in Spalte b. In Spalte a stehen Datumsangaben. Das Makro sollte nun folgende Sache machen:
Er soll von der Zelle innerhalb der Range in Spalte a gehen. Wie mache ich das? Ich will dann, das eine Variable den Datumswert aufnimmt und in ein anderes Blatt kopiert (Die Kopieraktion bekomme ich wieder selbst hin).
Viele Grüße
Andy
Sub MaxRangeVonOben()
Dim Range1 As range
Dim T As Integer
Static Zähler As Double
Dim Zeitraum As Double
Sheets("tabelle3").Activate
range("b2").Select
Sheets("Tabelle2").range("A:iv").Delete
Zeitraum = 10
T = ActiveSheet.UsedRange.Rows.Count - 1
For i = 2 To ActiveSheet.UsedRange.Columns.Count - 1
Zähler = Zähler + 1
Do While (T - Zeitraum - j) > 0
For j = 1 To T - Zeitraum + 1
Set Range1 = ActiveSheet.range(Cells(j, i),Cells (Zeitraum + j, i))
Sheets("tabelle2").Cells(j, i).Value = Application.WorksheetFunction.Max(Range1)
a = Range1.Find
Next j
Loop
j = 0
ActiveCell.Offset(0, 1).Select
Next i
Zähler = 0
End Sub