Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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

Mit SVERWEISS Formel weiterrechnen | Herbers Excel-Forum
Holli62
Hallo Excel Gemeinde
In Zeile 4 wird mit folgender Formel =SVERWEIS(C4;Tabelle4!A:B;2;0)*D4 eine Berechnung durchgeführt das Ergebniss steht in F4 z.B: 141,42
so weit so gut
Jetzt soll auf Basis des Ergebnisses In F4 in Zeile 7 weitergerechnet werden
Und zwar mit folgendern Eingaben...
22.01.2010 19:51:36
Thread-ID: 1132216
2 Beiträge
Anzeige
Sverweis und Fehlermeldung "Wert"
Gisela

Hallo,
was muss ich an folgender Formel ändern, damit die Fehlermeldung "Wert" nicht erscheint, wenn in der Tabelle "thjuli" kein Wert vorhanden ist.
f~WENN($A10="";"";WENN(ISTFEHLER(SVERWEIS($A10;thjuli;38;0));0;SVERWEIS($A10;thjuli;38;0)))+ZÄHLENWENN(C10:AG10;"BW")~f
Vielen Dank f...
20.08.2012 11:31:13
Thread-ID: 1275690
3 Beiträge
WENN Funktion gibt nur #WERT! zurück
Monaco

Hallo zusammen,
Ich würde gerne ein Sheet mit einer WENN Funktion durchsuchen und dann zusammengefasst wenn in dieser Zeile ein x vorkommt, auch in die neue Tabelle, die übersichtlicher ist, ein x setzen.
Zur Veranschulichung habe ich das dementsprechende File mal mit hochgeladen, in de...
12.12.2013 14:47:59
Thread-ID: 1342346
6 Beiträge
Anzeige
Funktion gibt #Wert! zurück
Sebastian

Liebe Forumgemeinde,
da mein letzter Thread untergegangen ist, ersuche ich erneut um eure Mithilfe.
Ich habe eine Funktion erstellt, welche eine Zelle (BIC des Kunden) mit einer Liste (dt. BIC Nummern) auf einem anderen Tabellenblatt ("BIC", Zellen H2-H99999)vergleicht. Diese Funktion s...
04.12.2014 17:11:36
Thread-ID: 1396192
5 Beiträge
Funktion gibt sporadisch #WERT! zurück
Manne

Hallo schon wieder,
ich habe eine Funktion geschrieben, die grundsätzlich funktioniert, Aber sporadisch ein #WERT! ausgibt, ohne das sich an der Funktion oder den Zellen irgendetwas ändert.
Das geschieht indem ich z.B. eine SUB ausführe, welche nichts auf dem Sheet ändert auf dem die Fu...
07.06.2015 15:23:45
Thread-ID: 1429717
7 Beiträge
xlFunctionWizard gibt #Wert zurück
Andreas
Hallo Excel-Forum,
ich habe gerade folgendes Problem:
Ich habe mir Excel-extern eine DLL zusammengebaut. In Excel gibt es dann eine UDF, die eine Klasse aus der DLL instanziert und bestimmte Berechnungen auf Grundlage der DLL durchführt. Die UDF erwartet die Eingabe von z.B. 2 Parametern. Be...
03.03.2022 17:43:40
Thread-ID: 1873677
4 Beiträge
Pivot berechnetes Feld
Peter

Hallöchen zusammen,
entweder stelle ich mich zu dämlich an, oder ich kapiere die Pivot wirklich nicht.
Habe eine Tabelle, aus der ich mir die Daten ziehe.
In die Datenfelder der Pivot kommt die gesamte Anzahl von Datensätzen.
In die Spaltenfelder die Differenzierung eines bestim...
15.08.2008 10:34:52
Thread-ID: 1002088
4 Beiträge
Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
2
5
4
4
6
3
3
1
2
3
5
8
1
1
3
4
3
4
2
1
5
3
4