Function zum Addieren

Forumthread: Function zum Addieren

19.01.2007 12:54:14

arend

Liebe Experten,
hoffentlich könnt ihr mir helfen bei dem Entwickeln einer Funktion.
In der Spalte A stehen die Nummern als Text formatiert. In Spalte B die Werte. Immer wenn die Nummer mit einem 2 beginnt soll er den Wert aus der Spalte B mit 80% multiplizieren und aufsummeriert z.B. in die Zelle b25 eintragen.
herzleich Dank für eure Hilfe im Voraus
arend

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Function zum Addieren

19.01.2007 13:05:33

Peter
AW: Function zum Addieren

19.01.2007 13:14:23

Arend
AW: Function zum Addieren

19.01.2007 14:31:58

Peter
=summewenn(a:a;"2*";b:b)*,8

19.01.2007 14:27:48

IngoG
Ohne VBA

19.01.2007 13:43:54

Ramses

AW: Function zum Addieren

19.01.2007 13:05:33

Peter

Hallo arend
das geht z. B. so:
Public


Function Addiere() As Double
Dim lZeile  As Long
For lZeile = 1 To Range("A65536").End(xlUp).Row
If Left(Range("A" & lZeile).Value, 1) = "2" Then
If IsNumeric(Range("B" & lZeile).Value) Then
Addiere = Addiere + CDbl(Range("B" & lZeile).Value)
End If
End If
Next lZeile
End Function

mit Alt + F11 in die VBA Umgebung wechseln
unter Einfügen - Modul auswählen und anklicken
in das sich öffnende Fenster obige Makro kopieren
mit Schließen-Kreuz (recht obere Ecke) abschließen
mit =Addieren() ausprobieren
Public


Function Addiere() As Double
Dim lZeile  As Long
For lZeile = 1 To Range("A65536").End(xlUp).Row
If Left(Range("A" & lZeile).Value, 1) = "2" Then
If IsNumeric(Range("B" & lZeile).Value) Then
Addiere = Addiere + CDbl(Range("B" & lZeile).Value)
End If
End If
Next lZeile
End Function

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: Function zum Addieren

19.01.2007 13:14:23

Arend

super schnell und klappt
aber wo wird mit den achtzig Prozent multipliziert?

AW: Function zum Addieren

19.01.2007 14:31:58

Peter

Hallo arend,
die 80 % waren mir leider entfallen - nun kommen sie aber:
Option Explicit
Public


Function Addiere() As Double
Dim lZeile  As Long
For lZeile = 1 To Range("A65536").End(xlUp).Row
If Left(Range("A" & lZeile).Value, 1) = "2" Then
If IsNumeric(Range("B" & lZeile).Value) Then
Addiere = Addiere + CDbl(Range("B" & lZeile).Value) * 0.8
End If
End If
Next lZeile
End Function

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

=summewenn(a:a;"2*";b:b)*,8

19.01.2007 14:27:48

IngoG

Hallo Arend,
obige funktion sollte genau das machen ohne VBA
Gruß Ingo
PS eine Rückmeldung wäre nett...

Ohne VBA

19.01.2007 13:43:54

Ramses

Hallo
das sollte doch auch gehen,... oder ;-)

Tabelle1

	A	B	C	D	E	F
1	Nummern	Wert		Gesucht	Ergebnis
2	2-Nummer	1		2	8
3	2-Nummer	1		1	3.2
4	2-Nummer	1
5	2-Nummer	1
6	2-Nummer	1
7	1-Nummer	1
8	1-Nummer	1
9	1-Nummer	1
10	1-Nummer	1
11	2-Nummer	1
12	2-Nummer	1
13	2-Nummer	1
14	2-Nummer	1
15	2-Nummer	1
16
17	1-Nummer Anzahl	4
18	2-Nummer Anzahl	10
19

Formeln der Tabelle

E2 : =SUMMENPRODUKT((WERT(LINKS($A$2:$A$15;1))=D2)*($B$2:$B$15))*0.8
E3 : =SUMMENPRODUKT((WERT(LINKS($A$2:$A$15;1))=D3)*($B$2:$B$15))*0.8

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Forumthread: Function zum Addieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread