Bestand über vba anpassen
13.09.2003 13:34:11
Michael
ich möchte in einer Tabelle 2 verschiedene Spalten über vba automatisch anpassen. In der Tabelle sind 2 Spalten, Artikelbestand (Spalte 9) und Verkaufte Artikel (Spalte 10), die über vba aktualisiert werden sollen. D.h. in Spalte 11 (Artikel hinzufügen) soll in der jeweiligen Zeile eine Zahl eingegeben werden, die dann automatisch zum vorhandenen Bestand (Spalte 9) des jeweiligen Artikels hinzugefügt wird.
Das ganze sieht dann folgendermaßen aus:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 11 Then
Application.EnableEvents = False
Cells(Target.Row, 9) = Cells(Target.Row, 9) + Cells(Target.Row, 11)
Cells(Target.Row, 11) = ""
Application.EnableEvents = True
End If
End Sub
Bis hierhin funktioniert noch alles. Wenn ich aber in der Spalte 12 die Spalte 10 (verkaufte Artikel) über vba anpassen will, haut das nicht mehr hin. Hier soll dann in Spalte 12 (Art. verkauft) eine Zahl eingetragen werden, die dann zu den verkauften Artikel hinzugefügt wird und gleichzeitig vom Artikelbestand abgezogen wird.
So soll das ungefähr aussehen:
(Spalte 9).................(Spalte 10)...................(11).....................(12)
Artikelbestand.......verkaufte Artikel.....Art. hinzufügen......Art. verkauft
(Zahl)........................(Zahl).............................(vba).....................(vba)
Ich hoffe ihr könnt mir weiterhelfen.
Dank im Voraus.
Michael