VBA Code funktioniert nicht
28.06.2016 13:16:17
Andreas
da ich absoluter Laie in VBA bin, verzweifle ich gerade absolut.
Mein Code funktioniert nicht. Er übernimmt nicht den Zellwert aus Reihe 5 in 6 hinein. Reihe 5 ist allerdings mit einer Formel belegt.
Lösche ich Diese, und gebe dort einen Wert manuell hinein, funktioniert meine VBA Funktion.
In Reihe 7 soll sich dann der darin stehende Wert mit dem Wert in Reihe 6 addieren.
Kann mir jemand bitte weiterhelfen? Bitte kein Fachchinesisch.
Hier der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 6).Value = Cells(Target.Row, 5).Value
If Target.Column = 5 Then
On Error GoTo Err_Exit
Application.EnableEvents = False
Cells(Target.Row, 7).Value = Cells(Target.Row, 7).Value + Target
End If
Err_Exit:
Application.EnableEvents = True
End Sub
Daaanke!!! :-)