Wie befülle ich diesen Array am sinnvolsten
14.06.2018 17:12:37
Tim
Im Umgang mit Arrys erstellen tue ich mich noch ein wenig schwer. Habt Ihr eine Idee?
Ich habe eine Reihe von Kalender Daten nebeneinander stehen (mit leeren Spalten dazwischen)
Wie bekomme ich diese drei Werte sinnvoll in eine in eine Array rein:
intWeekday = Wochhentag Kennung ("1=Montag, 2= Dienstag.... 7=Sonntag")
i = Spaltenzahl
dDatum = das Datum aus der Spalte i
Sub Wochentag_Koordinaten_zu_Arry()
Dim dDatum As Date
Dim WotArr(7, 2, 1)
Dim i As Integer 'Spaltennr
Dim intWeekday As Integer
Erase WotArr 'löscht den Arry
Debug.Print "1=Montag, 2= Dienstag.... 7=Sonntag"
For i = 1 To 100
If Sheets("Übersicht").Cells(8, i).Value "" Then
dDatum = Sheets("Übersicht").Cells(8, i).Value
intWeekday = Weekday(dDatum, vbMonday)
Debug.Print intWeekday, dDatum, " inSpalte: " & i
End If
Next i
End Sub
Das Ergebnis von Debug.print ist:
1=Montag, 2= Dienstag.... 7=Sonntag
4 31.05.2018 inSpalte: 1
4 07.06.2018 inSpalte: 6
3 30.05.2018 inSpalte: 11
3 06.06.2018 inSpalte: 16
1 28.05.2018 inSpalte: 21
1 04.06.2018 inSpalte: 26
5 01.06.2018 inSpalte: 31
5 08.06.2018 inSpalte: 36
2 29.05.2018 inSpalte: 41
2 05.06.2018 inSpalte: 51
6 02.06.2018 inSpalte: 56
6 09.06.2018 inSpalte: 61
Die Daten sind wie man sieht nicht chronologisch nebeneinander.Jeden Werktag gibt es maximal 2x Feiertagsbedingt kann ein Werktag jedoch auch komplett fehlen.
Was soll mir die Array bringen?
Ich möchte wissen.
a)wie viele Einträge hat z.B. der Dienstag (2 oder 1 oder 0)
b) an welcher Position steht z.B. der 2. Dienstag und mit welches Datum WotArr(2,2,1)
Ich hoffe soetwas bekommt man mit Array´s hin :)
Viele Grüße
Tim
Mein Muster:
https://www.herber.de/bbs/user/122129.xlsm