Umsätze

Ich möchte eine Tabelle erstellen, in der Automatisch eine Spalte ausgefüllt werden soll.
Die Spalte D beinhaltet nur positive Werte (Einnahmen) Spalte E beinhaltet nur negative Werte (Ausgaben). In Spalte F soll der aktuelle Kontostand angezeigt werden. Ich möchte nun, das Excel Automatisch die Spalte F erstellt, wenn die Spalte D und/oder F ausgefüllt ist. Wenn Excel den Wert in F7 eintrage soll, dann soll Excel den Wert aus F6 nehmen, dann E und/oder F addieren und den Wert in F7 eintragen. Die Formel dafür habe ich schon:
[F7]* =F6+(D7+E7) (*Nicht eintippen!!)

Nun soll Excel aber auch für Zeile 8 den Wert errechen. Dann müsste man eigentlich per Hand die Formel so ändern: [F8]*=F7+(D8+E8) (*Nicht eintippen!!)
Wie kann man so etwas automatisieren??

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Umsätze

03.09.2003 14:50:54

WernerB.

AW: Umsätze

03.09.2003 15:10:39

Consti

AW: Umsätze

03.09.2003 15:15:57

Consti

AW: Umsätze

03.09.2003 15:28:28

WernerB.

AW: Umsätze

03.09.2003 15:58:54

Consti

AW: Umsätze

04.09.2003 07:51:28

WernerB.

AW: Umsätze

04.09.2003 11:09:27

Consti

AW: Umsätze

04.09.2003 11:28:09

WernerB.

AW: Umsätze

04.09.2003 12:02:12

Consti

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim tR As Long If Target.Row = 1 Then Exit Sub If Target.Column < 4 Or Target.Column > 5 Then Exit Sub tR = Target.Row If Cells(tR, 6).Value = "" Then Cells(tR, 6).Formula = "=F" & tR - 1 & "+D" & tR & "+E" & tR End If End Sub

Hallo Consti,

woher soll ich denn wissen, dass Deine erste Rechnungszeile die Zeile 7 ist und der Vormonatsstand in Zelle F5 steht?
Die Gabe des Hellsehens wurde mir nicht in die Wiege gelegt und bei den ärmlichen Verhältnissen, in denen ich dahin vegetiere, kann ich mir eine Glaskugel auch nicht leisten.
Merke: Wenn ein Programm geschrieben werden soll, muss der Programmierer sowohl

a) die Ausgangsbedingungen als auch
b) die Zielvorstellung

exakt kennen. Erst dann ist er in der Lage, einen funktionierenden Weg (=Programm) von a) nach b) zu realisieren; ansonsten führt der Weg in den Abgrund.

Entschuldige bitte, aber das musste sein!


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim tR As Long
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D7:E65536")) Is Nothing Then
tR = Target.Row
If Cells(tR, 6).Value = "" Then
If tR > 7 Then
Cells(tR, 6).Formula = "=F" & tR - 1 & "+D" & tR & "+E" & tR
Else
Cells(7, 6).Formula = "=F5+D7+E7"
End If
End If
End If
End Sub

Viel Erfolg wünscht
WernerB.

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread