Zeiberechnung per VBA
26.02.2019 08:26:46
Alexander
Sub Differenzen_T_minus_S_in_Y_()
Dim lngUnten As Long, lngZeile As Long
lngUnten = Application.Max(3, Cells(Rows.Count, 20).End(xlUp).Row, Cells(Rows.Count, 19).End( _
xlUp).Row)
For lngZeile = 3 To lngUnten
Cells(lngZeile, 21).Value = Cells(lngZeile, 20).Value - Cells(lngZeile, 19).Value
Next
End Sub
Anzeige