Probleme mit DateDiff-Methode



Excel-Version: 10.0 (Office XP)

Betrifft: Probleme mit DateDiff-Methode
von: Maja
Geschrieben am: 27.05.2002 - 13:59:59

Hallo,

ich möchte Datumswerte in einer Tabelle zählen, nach Kalenderwoche zusammenfassen und in einer zweiten Tabelle ausgeben (soll am Ende ein Diagramm ergeben).

Leider hakt es beim Aufruf der DateDiff-Methode, und ich weiß nicht, woran es liegt.


Sub CountActual()
Dim Kalenderwoche As Variant
Dim Actual As Date
Dim As Integer
Dim gefunden As Boolean
Const Zweitausendzwei As Date = #1/1/02#   '1.1.02
Const Zweitausendeins As Date = #1/1/01#   '1.1.01


Sheets("Sortiert Datum").Activate
Range("AC6").Select
Do Until ActiveCell.Value = ""
 Actual = Selection.Value
 If Actual >= Zweitausendzwei Then
  Kalenderwoche = DateDiff(ww, Zweitausendzwei, Actual)
 Else
  Kalenderwoche = DateDiff(ww, Zweitausendeins, Actual)
 End If
 ActiveCell.Offset(1, 0).Select
 Sheets("document control diagram").Select
 Range("A1").Select
 i = 0
 Do Until ActiveCell.Value = ""
  i = i + 1
  If Kalenderwoche = Selection.Value Then
   gefunden = True
   Range(i, 2).Value = Range(i, 2).Value + 1
  Else
   gefunden = False
   ActiveCell.Offset(1, 0).Select
  End If
 Loop
 If gefunden = False Then
  Selection.Value = Kalenderwoche
  Range(i, 2).Value = 1
 End If
Loop
End Sub


  

Re: Probleme mit DateDiff-Methode
von: Andreas
Geschrieben am: 27.05.2002 - 14:44:22

Hallo Maja,

setze das ww mal in Anführungszeichen, also "ww", dann sollte es klappen!

Viel Spaß,
Andreas


  

Re: Probleme mit DateDiff-Methode
von: Maja
Geschrieben am: 27.05.2002 - 14:51:26

Danke:-)