Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1652to1656
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
Inhaltsverzeichnis

Additionsfeld über mehrere Felder

Additionsfeld über mehrere Felder
25.10.2018 10:48:40
Samy
Hi zusammen,
ich bräuchte einen Tipp wie ich weiter komme.
Ich habe eine Tabelle die Bestände von Artikeln enthält.
Der Tagesanfang steht in A2 in B2 gebe ich die Zugänge vom Morgen ein und am Abend gebe ich in C2 die Tagesabgänge ein und so weiter.
Das Funktioniert auch schon mit dem was ich mir so mit Google zusammengesucht habe.
Siehe hier:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B2" Then
On Error GoTo Err_Exit
Application.EnableEvents = False
Range("A2") = Range("A2") + Target
End If
If Target.Address(0, 0) = "C2" Then
On Error GoTo Err_Exit
Application.EnableEvents = False
Range("A2") = Range("A2") - Target
End If
Err_Exit:
Application.EnableEvents = True
End Sub

••••ˇˇˇˇ
Jetzt habe ich nicht nur einen Artikel sondern mehrere, wo in dem Code gebe ich ein das diese Subtraktion und Addition auch in A3, 4, 5, 6, usw... funktioniert. Ich wollte den Code jetzt nicht 200 mal kopieren und die entsprechenden Zellen dort angeben und sowas wie ("A2:A200) hab ich auch schon ausprobiert aber da funktioniert dann gleich gar nix mehr.
Vielen Dank fürs drüber gucken.
Sam

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Additionsfeld über mehrere Felder
25.10.2018 11:01:05
Hajo_Zi
Halo Sam,
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Row 


Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Additionsfeld über mehrere Felder
25.10.2018 11:07:29
Daniel
Hi
Private Sub Worksheet_Change(ByVal Target As Range)
dim x as double
if Target.Row  3 then Exit Sub
if target.count > 1 then Exit Sub
if not isnumeric(target.value) then Exit Sub
if target.column = 2 then x = target.value
if target.column = 3 then x = -target.value
Application.EnableEvents = false
Cells(Target.Row, 1) = Cells(Target.Row, 1) + x
Application.EnableEvents = true
End Sub 

Gruß Daniel
Anzeige
AW: Additionsfeld über mehrere Felder
25.10.2018 11:19:09
Samy
Vielen Dank das klappt super.
Sam

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige