Hallo,
ich hoffe mir kann jemand helfen!
Das Script weiter unten, soll wenn ich in K2 etwas eingebe, in F2 etwas dazu rechnen oder etwas abziehen, was es auch macht.
Wie oder wo muss ich das Script verändern, damit es in anderen Zeilen das gleiche macht. K3 - F3, K4 - f4 u.s.w.
Habe die Excel als Zip hier zum Download hinterlegt, falls es sich jemand ansehen möchte.
http://www.hostarea.de/server-10/Oktober-458356678a.rar
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
On Error GoTo myErr
Application.EnableEvents = False
If Intersect(Target, Range(„K2“)) Then Me.Range(„F2“) _
= Me.Range(„F2“) + Me.Range(„K2“)
myErr:
Application.EnableEvents = True
End Sub
Bin für jede Hilfe sehr dankbar.
Das Script weiter unten, soll wenn ich in K2 etwas eingebe, in
F2 etwas dazu rechnen oder etwas abziehen, was es auch macht.
Wie oder wo muss ich das Script verändern, damit es in anderen
Zeilen das gleiche macht. K3 - F3, K4 - f4 u.s.w.
Hi Paranoia,
Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Cells.Count \> 1 Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
If Target.Column 11 Then Exit Sub
On Error GoTo myErr
Application.EnableEvents = False
Target.Offset(0, -5) = Target.Value + Target.Offset(0, -5).Value
myErr:
Application.EnableEvents = True
End Sub
Gruß
Reinhard
@Reinhard
Erstmal vielen Dank Reinhard.
Dein Script funktioniert auf alle Zeilen,genau so wie ich es wollte.
Allerdings gibt er mir schon bei der ersten entnahme, eine Minus-Zahl an.Das heisst, selbst wenn mein Bestand/Ist noch nicht den Mindestbestand erreicht hat, sagt er schon „bitte nachbestellen“.
Wenn ich jetzt nochmal entnehme, zählt er die zweite Entnahme dazu.
Target.Offset(0, -5) = Target.Value + Target.Offset(0,
-5).
Wo zwichen Target.Value und Target.offset ein PLUS ist habe ich ein MINUS gemacht.
Hier nochmal der Download Link, bei der Tabelle handelt es sich nur um einen kleinen Auszug. Die fertige Tabelle wird weit über 500 Artikel erreichen.
http://www.hostarea.de/server-10/Oktober-458356678a.rar
Wäre sehr nett, wenn Du oder jemand anderes mir weiter helfen könnten.
Gruß
Hi Paranoia,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
If Target.Column 11 Then Exit Sub
On Error GoTo myErr
Application.EnableEvents = False
Target.Offset(0, -5) = Target.Value + Target.Offset(0,
-5).Value
myErr:
Application.EnableEvents = True
End Sub
Gruß
Reinhard
Allerdings gibt er mir schon bei der ersten entnahme, eine
Minus-Zahl an.Das heisst, selbst wenn mein Bestand/Ist noch
nicht den Mindestbestand erreicht hat, sagt er schon „bitte
nachbestellen“.
Wenn ich jetzt nochmal entnehme, zählt er die zweite Entnahme
dazu.
Hi Paranoia,
der Code ist schon okay gewesen, ich hatte nur deinen Code umgesetzt ohne die Datei anzuschauen.
Daß K eine Entnahmespalte ist war nicht klar, hätte ja auch sein können daß du da mit plus und minus Zahlen arbeitest. Daß in F auch Formeln stehen wußte ich nicht, daher rührt die doppelte Abbuchung.
Ich habe in der Datei: http://www.hostarea.de/server-10/Oktober-d42e835448.xls paar Kleinigkeiten geändert, vielleicht gefallen sie dir.
Den Code habe ich abgeändert in der Datei, er steht nachstehend auch.
Gruß
Reinhard
im Modul des Blattes:
Option Explicit
'
Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Cells.Count \> 1 Then Exit Sub
If Not IsNumeric(Target) And Target "" Then Exit Sub
If Target.Column 11 Then Exit Sub
If Target.Offset(0, -5).HasFormula = True Then Exit Sub
On Error GoTo myErr
Application.EnableEvents = False
Target.Offset(0, -5).Value = Target.Offset(0, -5).Value - Target.Value
myErr:
Application.EnableEvents = True
End Sub
'
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
If Target.Cells.Count \> 1 Then Exit Sub
If Target.Row = 1 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
Range(Cells(2, 1), Cells(1000, 11)).Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Interior.ColorIndex = 34
Range(Cells(2, 1), Cells(1000, 11)).Font.Bold = False
Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Font.Bold = True
Cells(Target.Row, 6).Interior.ColorIndex = Range("A1").Interior.ColorIndex
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
@Reinhard
Hallo Reinhard, endlich komme ich dazu mich für Deine Hilfe zu bedanken,
Vielen Dank und liebe Grüße aus Neuss!