|
VBA - Bestand aktualisieren |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Dienstag, 13. Mai 2008 um 17:32 Uhr |
|
Das folgende Excel VBA Makro zeigt wie man eine Aktualisierung einer Bestandsliste machen könnte. Es werden Waren entnommen und wieder hinzugefügt - der aktuelle Bestand wird immer angezeigt. | | A | B | C | D | E | | 1 | Material | Bestand | Ausgegeben | Zugang | Wert Übername | | 2 | Fingerhut | 9 | 1 | | 10 | | 3 | Nähgarn 1 | 12 | | 2 | 10 | | 4 | Nähgarn 2 | 11 | 1 | 2 | 9 | | 5 | Nähgarn 3 | 10 | | | | | 6 | Nähgarn 4 | 10 | | | |
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("C:D")
For Each RaZelle In Range(Target.Address)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
Cells(Target.Row, 5) = Cells(Target.Row, 2)
Cells(Target.Row, 2) = Cells(Target.Row, 2) - Cells(Target.Row, 3)
End If
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Cells(Target.Row, 5) = Cells(Target.Row, 2)
Cells(Target.Row, 2) = Cells(Target.Row, 2) + Cells(Target.Row, 4)
End If
Next RaZelle
End Sub
|
VBA Makro Beispiele 