filter2
05.12.2007 17:25:00
klaro
Nur eine kurze Frage
Wiso wird nach eingabe in A1
Einer Ziffer = 1 so wird mit
Datum gerechnet wo ich doch
Mit Zahlen rechnen will
Option Explicit
Public Sub filter()
Dim oBlatt As Worksheet
Set oBlatt = ThisWorkbook.Worksheets("Tabelle1") 'Tabellennamen gg. anpassen
With oBlatt
.Range("A3").FormulaLocal = "=Summe(A1:A2)/(A1)"
End With
If Range("A3") > 1.7 Then
If Range("A3")