Teilsumme
11.03.2005 08:13:05
Artur
ich möchte eine Teilsumme erzeugen, diese soll Spalten mit Datum vergleichen und nach eingabe eines Anfangs und Enddatums die entsprechenden Kosten addieren.
Habe schon folgendes geschrieben, aber es kommt immer ein Fehler in der IF zeile, dass die Typen unverträglich wären. Das ist bestimmt wegen dem DAtum, was kann ich ändern damits läuft:
Sub Teilsumme()
Range("O2") = ActiveSheet.Application.InputBox( _
prompt:="Geben Sie das Anfangsdatum ein:", Type:=2)
Range("A2").Select
Range("p2") = ActiveSheet.Application.InputBox( _
prompt:="Geben Sie das Enddatum ein:", Type:=2)
Range("A2").Select
If "(d2:d7)" >= "(o2)" & "(d2:d7)" <= "(p2)" Then
Range("Q2").Formula = "=sum(n2:n7)"
End Sub
VIELEN Dank
MFG
Artur