Subtrahier zwischen Spalten
04.10.2007 16:50:41
edie
vom Datum (Spalte A) sollen die Tage (Spalte C)
in die Spalte F subtrahiert werden.
Sub test()
Dim z As Integer
Dim x As Integer
Dim wks As Worksheet
Set wks = ThisWorkbook.Sheets("Auswertung")
x = wks.Cells(3, 1).End(xlDown).Row 'Datum
For z = 3 To x
On Error Resume Next
wks.Cells(z, 6).Value = wks.Cells(z, 1) - ws.Cells(z, 3)
Next z
End Sub
funktioniert nicht was ist Falsch?
Kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße