Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
296to300
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
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Berechnen nur wenn Bedingung erfüllt ist

Berechnen nur wenn Bedingung erfüllt ist
24.08.2003 01:49:05
Stefan Glande

Excelanier,

ich möchte gerne in Spale C die Summe berechnen.Siehe Formel.
Wenn sich nun der Zinssatz in Tabellenblatt2 Spalte B ändert würden sich auch bei alle älteren Berechungen
die Werte im Tabellenblatt 1 in Spalte C ändern.DAs soll aber nicht passieren.

Am liebsten wäre mir eine Lösung in VBA
Excel Jeanie HTML

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Berechnen nur wenn Bedingung erfüllt ist
24.08.2003 09:03:58
GraFri
Hallo



'In Tabelle1

Option Explicit

Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim dB1         As Worksheet
Dim dB2         As Worksheet
Dim Wert        As Variant

Set dB1 = Worksheets("Tabelle1")
Set dB2 = Worksheets("Tabelle2")

On Error GoTo Fehler
Application.EnableEvents = False
If Target.Column = 2 Then
    Wert = dB1.Range(Target.Address).Value
    If IsNumeric(Wert) Then   'Abfrage, ob Zahl
        dB1.Range(Target.Address).Offset(0, 1).Value = Wert * dB2.Range("B2").Value 'Ausgabe in Nachbarzelle
    Else
        dB1.Range(Target.Address) = vbNullString
        dB1.Range(Target.Address).Offset(0, 1) = vbNullString
    End If
End If
Application.EnableEvents = True
Exit Sub

Fehler:
Application.EnableEvents = True
End Sub


     Code eingefügt mit Syntaxhighlighter 2.4


mfg, GraFri


Anzeige
AW: Danke :-) o.T
24.08.2003 10:06:50
Stefan Glander
.


303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige