Hallo,
vielleicht könnt ihr mir bei folgender Frage behilflich sein.
Folgend eine Tabelle - die durch Eingabe in Spalte C oder Spalte D den Laberbestand in Spalte B aktualisiert:
Spalte A |
Spalte B |
Spalte C |
Spalte D |
Materialname |
Lagerbestand kg |
Mat. Zugang kg |
Mat. Abgang kg |
Pilsner Malz |
42,8 |
|
|
Münchner Malz |
12,8 |
|
|
Hier der Code dazu:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Intersect(Target, Range("C:D")) _
Is Nothing Then Exit Sub
Application.EnableEvents = False
With Cells(Target.Row, "B")
.Value = .Value + .Offset(0, 1).Value - .Offset(0, 2).Value
.Offset(0, 1).Resize(1, 2).ClearContents
End With
Application.EnableEvents = True
End Sub
Jetzt möchte ich aber, dass der Lagerbestand in Spalte D steht und die Zugänge und Abgänge in den Spalten F bzw. G.
Spalte B |
Spalte C |
Spalte D |
Spalte E |
Spalte F |
Spalte G |
Bezeichnung |
EBC |
Lagerbestand kg |
Einheit |
Zugang |
Abgang |
Cara Wheat |
120 |
1,00 |
kg |
|
|
CaraHell |
20-30 |
2,00 |
kg |
|
|
Wie bekomme ich das hin?
TargetRow müsste ja dann D sein und die Range F und G.
Danke für die Hilfe.
Gruß.
Alex
|