Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: mit Ergebnis weiterrechnen, VBA-lösung erwünscht

mit Ergebnis weiterrechnen, VBA-lösung erwünscht
Matze,Matthias
Hallo @ All,
Problem ist mit dem aktuellen Wert weiter zurechnen
aus Altbestand , Eingabe+ , Eingabe- den aktuellen Wert ermitteln, um damit wenn eine erneute Eingabe+ , Eingabe- in den selben Zellen erfolgt weiter zurechnen.
Wonach müsste ich in der Recherche suchen um ein Beispiel zu finden?
oder schaut euch bitte die,
Mustervorlage : https://www.herber.de/bbs/user/80678.xlsm an
VBA mit den Change Ereignis scheint mir die sicherste Lösung zu sein,
aber ich habe keine Idee wie ich das umsetzen soll.
Gruß Matze
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: mit Ergebnis weiterrechnen, VBA-lösung erwünscht
21.06.2012 21:38:20
Josef

Hallo Matthias,
ins Modul der Tabelle.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  
  On Error GoTo ErrExit
  
  Application.EnableEvents = False
  
  If Target.Address(0, 0) = "B2" Then
    If IsNumeric(Target) Then Range("B5") = Abs(Target)
  ElseIf Target.Address(0, 0) = "B3" Then
    If IsNumeric(Target) Then Range("B5") = Range("B5") + Abs(Target)
    Target = ""
    Target.Select
  ElseIf Target.Address(0, 0) = "B4" Then
    If IsNumeric(Target) Then Range("B5") = Range("B5") - Abs(Target)
    Target = ""
    Target.Select
  End If
  
  ErrExit:
  Application.EnableEvents = True
End Sub



« Gruß Sepp »

Anzeige
@Sepp,..Danke, genauso ! owT
21.06.2012 21:45:02
Matze,Matthias
@Sepp - Nachfrage zum Code
21.06.2012 21:59:06
Matze,Matthias
hallo Sepp,
habe erst gestern hier gelesen das es keine Zeile 0 bzW Spalte 0 gibt, jetzt schreibst du im Code
If Target.Address(0, 0) = "B2" Then wie muss ich das verstehen?
ist das Der Platzhalter, wie eine Art Variable?
Gruß Matze
AW: @Sepp - Nachfrage zum Code
21.06.2012 22:15:09
Josef

Hallo Matthias,
das sind die Parameter der .Address-Eigenschaft RowAbsolute bzw. ColumnAbsolute
Schau dir dazu einfach mal die Hilfe zu .Address an.

« Gruß Sepp »

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige