Office: (Office 2010) Datum in Funktion verwenden

Hallo Community,

ich schreibe gerade in Excel ein kleines Modul, welches vom User eine Eingabe (Datum) erwartet und dieses dann in einer Funktion verwendet. Leider komme ich bei der Nutzung der Variable für das Datum nicht weiter. Mein datumsbezogener Code sieht so aus

Code:

' ### Input box for the date the user can specify:
   sTxt = InputBox(prompt:=sPrompt, Default:=week1)
   ' ### Converting into real date format:
   von = CDate(sTxt)
   ' ### Defining the weeks that are necessary for later usage:
   week1 = DateSerial(Year(von), Month(von), Day(von) + 0)

Nun möchte ich gerne das Datum, das in von gespeichert ist, in dieser Funktion werden:

Code:

     Range("D2").FormulaLocal = "=SUMMEWENNS(SourceData!$T:$T;SourceData!$Z:$Z;WorkData!A2;SourceData!$G:$G;"">=von"";SourceData!$G:$G;""<=week1"")"
     Range("D2").AutoFill Destination:=Range(Cells(2, 4), Cells(LastRow, 4))

Jedoch scheint das nicht zu klappen, der Output sieht so aus:


Normalerweise sollten da jetzt 0'en und 1'en stehen, aber keine Datumsangaben. Das Funktionsfeld sieht so aus:


Könnt ihr mir vielleicht helfen, dass das Datum richtig genutzt? Wenn ich das Datum "hardcodiere", dann klappt das..

 

Hallo Caprisonne,

wahrscheinlich waren deine Zellen ursprünglich bereits als Datum formatiert.

ABER: Bei der Formel hängt's grundsätzlich.
Du gibst ein Datum ein und speicherst es als Variable "von", dann speicherst Du dieses Datum als Variable "week1". Am Ende summierts du alle Werte der Spalte T, wenn Spalte G>=Datum und Spalte G<=Datum gilt. Warum nimmst Du nicht gleich G=Datum?

Deine Variablen in die Formel zu basteln habe ich auch nicht hinbekommen und weiß nicht, ob das so überhaupt funktioniert. Aber ich habe mal ein Beispiel geschrieben, in dem ich deine Variablen in zwei Zellen schreibe und diese dann in der Formel verwende.

Code:

Sub Makro1()
'
' Makro1 Makro
'
   sTxt = InputBox(prompt:="TEST", Default:=Date)
   ' ### Converting into real date format:
   von = CDate(sTxt)
   ' ### Defining the weeks that are necessary for later usage:
   week1 = DateSerial(Year(von), Month(von), Day(von) + 0)
    
    Cells(4, 1) = von
    Cells(5, 1) = week1
    
    Range("A1").Select
    
    ActiveCell.FormulaR1C1 = _
        "=SUMIFS(RC[6]:R[8]C[6],RC[7]:R[8]C[7],""<=""& R[3]C,RC[8]:R[8]C[8],"">=""& R[4]C)"
End Sub

Solltest Du Deine Formel in viele Zellen kopieren, dauert das natürlich ewig.
Brauchst Du wirklich die Formel, weil deine Tabelle dynamisch sein soll, oder tut's der reine Wert. Dann wäre die Aufsummierung im Makro mit Sicherheit der schnellere Weg.

Gruß,
Lutz

 

Hola,

um Doppelarbeit zu vermeiden......

http://www.office-loesung.de/p/viewtopic.php?f=166&t=723066

Gruß,
steve1da

 

Hallo,

du meinst, wenn du statt "von" und "week1" ein Datum einsetzt, dann klappt es. Genau das ist das Problem, dass du keine Datumsangaben eingesetzt hast in der SUMMEWENNS-Formel.
Um das am einfachsten zu ermöglichen, habe ich im folgenden Code eine Hilfsvariable "SuFormel" eingesetzt, in der dann mittels Replace-Funktion die Texte "von" bzw. "week1" durch die Datumswerte ersetzt werden:

Code:

Option Explicit
'
Sub testen()
'
   Dim sTxt As String
   Dim von As Date, week1 As Date
   Dim SuFormel As String
'
' ### Input box for the date the user can specify:
   sTxt = InputBox(prompt:=sPrompt, Default:=week1)
   ' ### Converting into real date format:
   von = CDate(sTxt)
   ' ### Defining the weeks that are necessary for later usage:
   week1 = DateSerial(Year(von), Month(von), Day(von) + 0)
'   
[COLOR="#0000CD"]   SuFormel$ = "=SUMMEWENNS(SourceData!$T:$T; SourceData!$Z:$Z;WorkData!A2;  SourceData!$G:$G;"">=von"";  SourceData!$G:$G;""<=week1"")"
   SuFormel$ = Replace(SuFormel$, "von", von)
   SuFormel$ = Replace(SuFormel$, "week1", week1)[/COLOR]
   Range("D2").FormulaLocal = [COLOR="#0000CD"]SuFormel$[/COLOR]
   Range("D2").AutoFill Destination:=Range(Cells(2, 4), Cells(LastRow, 4))
   
End Sub

 

Danke erstmal euch beiden für die Hilfe.

Die Datumseingaben hole ich mir vom User. Ich habe das jetzt so geschrieben:

Code:

   Dim sTxt As String
   sTxt = InputBox(prompt:=sPrompt)
   
   ' ### We take the date entered by the user and convert it into real date format.
   ' ### Afterwards we define the weeks that are necessary for later usage:
   StartOfWeek1 = CDate(sTxt)
   EndOfWeek1 = DateSerial(Year(StartOfWeek1), Month(StartOfWeek1), Day(StartOfWeek1) + 6)

Dann konvertiere ich und setze die Funktion ein:

Code:

   Sheets("WorkData").Select
   Range("D:H").NumberFormat = "General"
   
   'Column D:
     Range("D2").Select
     Range("D2:D" & LastRow).ClearContents
     Range("D2").FormulaLocal = "=SUMMEWENNS(SourceData!$T:$T;SourceData!$Z:$Z;WorkData!A2;SourceData!$G:$G;>= " & StartOfWeek1 & ";SourceData!$G:$G;<= " & EndOfWeek1 & ")"
     Range("D2").AutoFill Destination:=Range(Cells(2, 4), Cells(LastRow, 4))

Ist es also nicht möglich, dass er die Datumsangaben so in die Formel schreibt?

Ich verstehe auch nicht ganz, warum die Formel falsch sein soll. Wenn ich ein richtiges Datum eingeben wie z.B. 01.07.2016, dann klappt die Formel. Es soll jetzt nur eine Variable dafür genutzt werden.


EDIT:

Exl121150, dein Workaround funktioniert. Ich weiß zwar nicht, warum das klappt, aber es geht. Danke auf jeden Fall dafür!

 

Lösung(en) im bereits verlinktem Nachbarforum.
Gruß Ralf

 

Danke euch allen für die Hilfe, es klappt jetzt alles! Das Thema kann geschlossen werden :)

 

Hallo Caprisonne,

jetzt macht die Formel Sinn. Zu Beginn stand dort
week1 = DateSerial(Year(von), Month(von), Day(von) + 0)

@Ralf, Deine Formel funktioniert bei Dir? Bei mir krieg ich nen Fehler beim Kompilieren.
Die Formel von "Gast"

Code:

"=SUMMEWENNS(SourceData!$T:$T;SourceData!$Z:$Z;WorkData!A2;SourceData!$G:$G;""" & ">=" & StartOfWeek1 & """;SourceData!$G:$G;""" & "<=" & EndOfWeek1 & """)"

funktioniert

Gruß,
Lutz