folgendes habe ich in VBA programmiert mit fest angesprochenen Zellen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("E4") > 0 And Range("F4") = "" Then
Range("G4") = Range("E4") * Range("$E$1")
Else
Range("G4") = ""
If Range("E4") > 0 And Range("F4") > 0 Then
Range("G4") = Range("E4") * Range("$E$1") + Range("F4") * Range("$F$1")
Else
Range("G4") = ""
If Range("E4") = "" And Range("F4") > 0 Then
Range("G4") = Range("F4") * Range("$F$1")
Else
Range("G4") = ""
End If
End If
End If
End Sub
Ich benötige die Formel jedoch für die Zeilen 4 bis 500 und stell mir eine Lösung mit ActiveCell und Offset
vor.