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

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

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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige