Office: 2 Spalten adieren ohne eine 3. Spalte

Hallo,
ich brauche für einen Sparclub eine Formel e.c.t.
und zwar Spalte D kommt der betrag rein was in der aktuellen Woche gespart wurde in Spalte E ist der bisherige Sparbetrag und in Spalte F der aktuelle gesamt betrag (Spalte D und E)
so nun ist es so wenn in Spalte D 0,-€ eingetragen ist wird automatisch in Spalte G 2,-Strafgeld eingetragen soweit so gut,da das bei dem einen od. anderen mehrmals vorkommt dafür habe ich Spalte H da steht das gesamt Strafgeld des jeweiligen Sparer drin nun meine frage ist es möglich wenn ich in Spalte G 2,-€ eintrage das dann automatisch in Spalte H dieses dazu addiert wird?

Bsp: Spalte H stehen bereits 10,-€ (5 mal nicht einbezahlt nun kommt ein weiteres Strafgeld hinzu (Spalte G 2,-€) also soll nun in Spalte H 12,-€ stehen ist das möglich wenn ja wie bitte,danke.

gruß Arbeiter 1

 

Hi,

das geht mit VBA:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 4 Then
      If Target.Count = 1 Then
         Application.EnableEvents = False
         If Target = -2 Then Cells(Target.Row, 8) = Cells(Target.Row, 8) + Target
         Application.EnableEvents = True
      End If
   End If
End Sub

Bis später,
Karin

 

Hallo Karin,
danke erstmal.
frage funktioniert das auch bei OO?
und kannst du mir das ganze mal bitte für doffe erklären,was Excel b.z.w. OO betrifft bin ich ein absoluter leie

gruß Arbeiter 1

 

Hi,

ob das in OO funktioniert weiß ich nicht, damit kenne ich mich nicht weiter aus.

Ichhabe dir mal ein paar Kommentare reingeschreiben - damit sollte es verständlicher sein:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   ' Eingabespalte is 4 (D)    
   If Target.Column = 4 Then
      ' nur in 1 Zelle wurde etwas eingegeben      
      If Target.Count = 1 Then
         ' Reaktion auf die Eingabe abschalten          [URL="http://www.office-hilfe.com/support/#"][COLOR=#FD9003][U]
         Application[/U][/COLOR][/URL].EnableEvents = False
         ' Wenn die Eingabe -2 ist, dann in der Eingabezeile in Spalte 8 (H) zum Inhalt die Eingabe addieren         
         If Target = -2 Then Cells(Target.Row, 8) = Cells(Target.Row, 8) + Target
         ' Reaktion auf die Eingabe wieder einschalten          
         Application.EnableEvents = True       
        End If    
    End If 
End Sub

Bis später,
Karin

 

Hallo,

OpenOffice hat zwar auch ein VBA, dieses unterscheidet sich aber wesentlich von dem hier dargestellten. Es wird so also nicht funktionieren. Das sollte allerdings auch ohne Makros gehen, wobei mir der Tabellenaufbau nicht klar ist. Wird das Ganze zeilenweise geführt? Wo stehen die Namen der Sparer? Gibt es ein Datum? was ist, wenn einer das Starfgeld zahlt, wo wird das gebucht? Wie wird das mit dem Gesamtstrafgeld verrechnet????

Du siehst, Dein Problem wirft mehr Fragen als Lösungen auf!!!


Hier mal ein Muster, wie es funktionieren könnte, auch in OO:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H
1	Datum	Name	Gezahlt	pers. Summe	Sparguthaben	Strafgeld	Summe Strafgeld	Strafgeld gezahlt
2	18.03.2013	Huber	5,00 €	5,00 €	5,00 €	- €	- €
3	18.03.2013	Maier	5,00 €	5,00 €	10,00 €	- €	- €
4	18.03.2013	Müller	- €	- €	10,00 €	2,00 €	2,00 €
5	25.03.2013	Huber	5,00 €	10,00 €	15,00 €	- €	- €
6	25.03.2013	Maier	5,00 €	10,00 €	20,00 €	- €	- €
7	25.03.2013	Müller	- €	- €	20,00 €	2,00 €	4,00 €
8	01.04.2013	Huber	- €	10,00 €	20,00 €	2,00 €	2,00 €
9	01.04.2013	Maier	5,00 €	15,00 €	25,00 €	- €	- €
10	01.04.2013	Müller	5,00 €	5,00 €	30,00 €	- €	4,00 €
11	08.04.2013	Huber	5,00 €	15,00 €	35,00 €	- €	2,00 €
12	08.04.2013	Maier	5,00 €	20,00 €	40,00 €	- €	- €
13	08.04.2013	Müller	9,00 €	14,00 €	49,00 €	- €	- 4,00 €	x
14	15.04.2013	Huber	5,00 €	20,00 €	54,00 €	- €	2,00 €
15	15.04.2013	Maier	5,00 €	25,00 €	59,00 €	- €	- €
16	15.04.2013	Müller	- €	14,00 €	59,00 €	2,00 €	2,00 €

Zelle	Formel
D2	=SUMMEWENN($B$1:B2;B2;$C$1:C2)
E2	=SUMME($C$1:C2)
F2	=WENN(C2=0;2;0)
G2	=WENN(H2="x";-C2+5;SUMMEWENN($B$1:B2;B2;$F$1:F2))
G3	=WENN(H3="x";-C3+5;SUMMEWENN($B$1:B3;B3;$F$1:F3)+SUMMENPRODUKT(($B$1:B2=B3)*($H$1:H2="x");$G$1:G2))

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Gruß


Bosko