Makro-Korrektur?
05.10.2004 15:14:28
Hanno
ich habe folgendes Makro zusammengebastelt:
Sub Berechnung2()
Dim rng As Range
Dim lngE As Long
Dim lngRow As Long
lngRow = 1
lngE = Worksheets("DATA").Range("b1").End(xlDown).Row
'Inhalt der Zielzellen löschen
Worksheets("RFO").Range("A:A").ClearContents
Worksheets("RFO").Range("b:b").ClearContents
Worksheets("RFO").Range("c:c").ClearContents
Worksheets("RFO").Range("d:d").ClearContents
For Each rng In Worksheets("Data").Range("b1:e" & lngE)
'wenn Zelle in Spalte "A" gefüllt dann
If (rng.Value <> "") Then
If (IsNumeric(rng.Value) = True) Then
Worksheets("RFO").Cells(lngRow, 1).Value = 0
Worksheets("RFO").Cells(lngRow, 2).Value = (rng.Offset(0, 1).Value - rng.Value) / rng.Value
Worksheets("RFO").Cells(lngRow, 3).Value = (rng.Value - rng.Offset(0, 2).Value) / rng.Value
Worksheets("RFO").Cells(lngRow, 4).Value = (rng.Offset(0, 3).Value - rng.Value) / rng.Value
'Zeilenzähler erhöhen
lngRow = lngRow + 1
End If
End If
Next
End Sub
Leider gibt mir nicht die Daten aus, die es soll:
https://www.herber.de/bbs/user/11696.xls
Wie muss ich das Makro verändern, so dass es die überflüssigen Daten berechnet?
Vielen Dank im Voraus,
Hanno