Herbers Excel-Forum - das Archiv
VBA - Datum, Wochentag
- VBA - Datum, Wochentag von Fred Neumann vom 11.09.2019 12:31:16
- AW: VBA - Datum, Wochentag - von Torsten am 11.09.2019 15:10:36
- AW: VBA - Datum, Wochentag - von Fred Neumann am 11.09.2019 16:14:50
- AW: VBA - Datum, Wochentag - von ChrisL am 11.09.2019 17:03:53
- AW: VBA - Datum, Wochentag - von Fred Neumann am 11.09.2019 17:25:48
Betrifft: VBA - Datum, Wochentag
von: Fred Neumann
Hallo VBA-Experten,
ich stelle mit folgenden VBA Spiele zusammen.
Dim z, arr(7), x, i
Sheets("ListeSpiele").Range("A2:N2000").ClearContents
Set dict = CreateObject("Scripting.Dictionary")
For z = 3 To 2000
ky = Cells(z, 7)
If ky <> "" Then
If Not dict.exists(ky) Then
arr(7) = z
arr(0) = 1 'Bets
arr(1) = Cells(z, 11) 'Einsatz
arr(2) = Cells(z, 14) 'Gewinn
arr(3) = Cells(z, 15) 'gewonnen
arr(4) = Cells(z, 16) 'patt
arr(5) = Cells(z, 17) 'verl
arr(6) = Cells(z, 18) 'tag
dict.Add ky, arr
Else
x = dict(ky)
x(0) = x(0) + 1: x(1) = x(1) + Cells(z, 11): x(2) = x(2) + Cells(z, 14): x(3) = _
x(3) + Cells(z, 15): x(4) = x(4) + Cells(z, 16): x(5) = x(5) + Cells(z, 17): x(6) = x(6) + Cells(z, 28)
dict(ky) = x
End If
End If
Next z
ze = 2
With Sheets("ListeSpiele")
For Each ky In dict.Keys
x = dict(ky)
z = x(7)
Range(Cells(z, 1), Cells(z, 7)).Copy .Cells(ze, 1)
.Cells(ze, 8) = x(1)
.Cells(ze, 9) = x(2)
.Cells(ze, 10) = x(0)
.Cells(ze, 11) = x(3)
.Cells(ze, 12) = x(4)
.Cells(ze, 13) = x(5)
.Cells(ze, 14) = x(6)
ze = ze + 1
Next ky
End With
So wie ich den Code geschrieben habe, klappt es allerdings nicht.
Könnte mal jemand drauf schauen und mir evt. den Fehler, bzw die Korrektur sagen?
Zum besseren Verständnis;
https://www.herber.de/bbs/user/131972.xlsb
mit freundlichen Gruß
Fred Neumann
Betrifft: AW: VBA - Datum, Wochentag
von: 1712478.html
Geschrieben am: 11.09.2019 15:10:36
Hallo Fred,
keine Ahnung was bei dir krumm laeuft, aber bei mir wird der Wochentag eingetragen.
Funktioniert.
Gruss Torsten
Betrifft: AW: VBA - Datum, Wochentag
von: 1712496.html
Geschrieben am: 11.09.2019 16:14:50
Hallo Torsten,
Ja,- aber der "falsche"
Gruß
Fred
Betrifft: AW: VBA - Datum, Wochentag
von: 1712512.html
Hi Fred
Was wäre denn das richtige Resultat, wenn du mehrere Wochentage (resp. Datumswerte) addierst?
Mittwoch + Mittwoch = Weihnachten? :)
Hier müsstest du das Datum übernehmen (Spalte 28 statt 18)
arr(6) = Cells(z, 28) 'tag
Und hier die Addition weglassen
...: x(6) = x(6)
cu
Chris
Betrifft: AW: VBA - Datum, Wochentag
von: 1712520.html
Geschrieben am: 11.09.2019 17:25:48
Hallo ChrisL,
danke für deine Erklärung,- und nu funzt es !!
Gruß
Fred