ich bräuchte einen Tipp wie ich weiter komme.
Ich habe eine Tabelle die Bestände von Artikeln enthält.
Der Tagesanfang steht in A2 in B2 gebe ich die Zugänge vom Morgen ein und am Abend gebe ich in C2 die Tagesabgänge ein und so weiter.
Das Funktioniert auch schon mit dem was ich mir so mit Google zusammengesucht habe.
Siehe hier:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B2" Then
On Error GoTo Err_Exit
Application.EnableEvents = False
Range("A2") = Range("A2") + Target
End If
If Target.Address(0, 0) = "C2" Then
On Error GoTo Err_Exit
Application.EnableEvents = False
Range("A2") = Range("A2") - Target
End If
Err_Exit:
Application.EnableEvents = True
End Sub
ˇˇˇˇ
Jetzt habe ich nicht nur einen Artikel sondern mehrere, wo in dem Code gebe ich ein das diese Subtraktion und Addition auch in A3, 4, 5, 6, usw... funktioniert. Ich wollte den Code jetzt nicht 200 mal kopieren und die entsprechenden Zellen dort angeben und sowas wie ("A2:A200) hab ich auch schon ausprobiert aber da funktioniert dann gleich gar nix mehr.
Vielen Dank fürs drüber gucken.
Sam