Makro-Hilfe
05.10.2004 19:50:20
Hanno
wie muss ich den Code verändern, damit er funktioniert?
Bis auf die
if ... > ... then - Sache funktioniert der Code. Nur leider kann ich die Bedingung nicht richtig formulieren.
Könnt Ihr mir helfen?
Sub Berechnung3()
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("a1:a" & lngE)
'wenn Zelle in Spalte "B" gefüllt dann
If (rng.Value <> "") Then
If (IsNumeric(rng.Value) = True) Then
If (rng.Offset(-1, -3).Value > rng.Offset(-1, 0).Value) 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.Offset(0, 2).Value - rng.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
Danke!
Gruss,
Hanno