Hallo zusammen,
ich bin absoluter Laie mit VBA.
Beispiel:
Habe folgendes Problem. Ich habe die Zelle E2 mit folgender Formel belegt:
=WENN('Ordersatz detailliert'!B$4=Umsatzstatistik!A2;Auftragsübersicht!O$88;"Fehlt")
Jetzt möchte ich mit Hilfe von VBA den Wert aus E2 mit dem derzeitigen in Zelle F2 addieren und der Wert soll dann auch so stehen bleiben.
Leider funktioniert es nicht bei mir.
Wenn ich die Formel aus E2 entferne und es dann manuell eingebe, funzt es.
Es sollen die ganzen Zellen in den Spalten angesprochen werden. E2 und F2 waren nur ein Beispiel aus den Spalten.
Wäre für einen Rat oder Lösungsvorschlag sehr Dankbar.
Hier der Code:
Sub KopierenundAddieren()
Cells(Target.Row, 5) = Cells(Target.Row, 6)
If Target.Column = 6 Then
On Error GoTo Err_Exit
Application.EnableEvents = False
Cells(Target.Row, 7) = Cells(Target.Row, 7) + Target
End If
Err_Exit:
Application.EnableEvents = True
End Sub
Vielen Dank!
Andreas :-)
|