Daten in Variable

Bild

Betrifft: Daten in Variable
von: Gregor
Geschrieben am: 03.07.2015 09:18:40

Hallo
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
Wie erhalte ich zudem aus einem beliebigen Datum das erste Wochentagdatum?
Vielen Dank und Gruss
Gregor

Bild

Betrifft: AW: Daten in Variable
von: Herbert Grom
Geschrieben am: 03.07.2015 17:13:43
Hallo Gregor,
da sehe ich mehrere Probleme, aber lösbar. Kannst Du mir eine Beispieldatei hochladen, dann habe ich es leichter.
Servus

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Daten in Variable"