AW: Makro gesucht: Berechnung wenn Zelle gefüllt
01.08.2004 12:54:48
Björn
Hallo Daniel,
Rainer hat recht (eigentlich hat Rainer immer recht), aber da du gerne ein Makro möchtest...
Kannst du damit was anfangen?
Sub Zellen_fuellen()
Dim f As Object
Set f = Application.WorksheetFunction
For Zeile = 2 To 65536 'Hier musst du die Zeilen angeben, die bearbeitet werden sollen!
If Not IsEmpty(Worksheets("Data1").Cells(Zeile, 1)) And _
Not IsEmpty(Worksheets("Data2").Cells(Zeile, 1)) Then
With Worksheets("Calc2")
For i = 1 To 2
myrange = Worksheets("Data" & i).Range("B" & Zeile & ":IV" & Zeile)
If f.Count(myrange) <> 0 Then 'Kein Teilen durch Null möglich!
.Cells(Zeile, 1 + i) = f.Sum(myrange) / f.Count(myrange)
End If
Next i
.Cells(Zeile, 4) = .Cells(Zeile, 2) - .Cells(Zeile, 3)
End With
End If
Next Zeile
End Sub
Gruß
Björn