Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bestand über vba anpassen

Bestand über vba anpassen
13.09.2003 13:34:11
Michael
Hallo,

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestand über vba anpassen
13.09.2003 14:07:36
PeterW
Hallo Michael,

mit deinem Kenntnisstand VBA nein ist es wohl so am einfachsten


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
If Target.Column = 12 Then
' Applica....
'Cells....
'Cells....
'Applica....
End If
End Sub


Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige