Daten in Variable
03.07.2015 11:18:40
Gregor
Ich will ausgehend von einem Datum aus Zelle A6 (Zelle variable nach grösstem Wert) in Zeile 1 die Zellen mit dem Datum des ersten Wochentages füllen. Die Anzahl Spalten richtet sich nach dem Wert dblMAX. Ich versuchte es mit arrDaten, ich erhalte aber immer die Fehlermeldung Index ausserhalb des gültigen Bereichs. Was ist hier falsch?
Sub Zeitstrahl()
Dim arrDaten()
dblMAX = Int(Application.Max(Range(Cells(3, 5), Cells(Rows.Count, 5).End(xlUp))) / 7)
Zeile = Application.Match(Application.Max(Range(Cells(3, 5), Cells(Rows.Count, 5).End(xlUp))), _
_
Columns(5), 0)
For Each sh In ActiveSheet.Shapes
If Not (sh.Type = msoFormControl Or sh.Type = msoOLEControlObject) Then sh.Delete
Next sh
Woche = 7
For Start = 1 To dblMAX
arrDaten(Start, 1) = Cells(Zeile, 1) + Woche
Woche = Woche + 7
Next
Cells(8, 1).Resize(Start, dblMAX) = WorksheetFunction.Transpose(arrDaten)
End Sub
Vielen Dank und Gruss
Gregor
Anzeige