Hallo, und Guten Abend,
kann mir jemand helfen?
Ich habe folgendes Script aufgeschnapt und möchte dies erweitern:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G2:H22]) Is Nothing Then Exit Sub
On Error GoTo fehler
Application.EnableEvents = False
Select Case Target.Column
Case 7
[C2] = [C2] + Target
Case 8
[C2] = [C2] - Target
End Select
fehler:
Application.EnableEvents = True
End Sub
Es soll so erweitert werden, das die Funktion in den nachfolgenden
Zellen ebenfalls funktioniert.
Da ich schon einiges versucht habe und meine Kenntnisse wohl nicht ausreichen
um spezifisch danach zu suchen wende ich mich an Euer Forum.
Ich wäre sehr froh wenn mir jemand Unterstützung geben könnte.
Ich benötige diese Funktion für eine kleine Bestandshaltung.
Mit freundlichen Gruessen
BuStue