Spalte addieren
Ralf
Habe folgendes Problem
Vergleiche Datum , bei einer Zeile klappts .Jetzt will ich das er die Spalte von Zelle F9 bis zur letzten gefüllte Zelle F? vergleicht und die werte angleicht . Hier mein Code für eine Zelle . Zelle C2 ist der
Vergleichswert
Sub Datenabgleich()
Dim i As Integer
With ActiveSheet
i = DateDiff( _
interval:="M", _
date1:=.Range("F9").Value, _
date2:=.Range("C2").Value)
If i = 1 Then
.Range("N9") = .Range("H9")
End If
End With
End Sub
Gruss Ralf
Anzeige