Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
836to840
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Function zum Addieren

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
Anzeige
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.
Anzeige
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.
Anzeige
=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
 ABCDEF
1Nummern Wert GesuchtErgebnis 
22-Nummer1 28 
32-Nummer1 13.2 
42-Nummer1    
52-Nummer1    
62-Nummer1    
71-Nummer1    
81-Nummer1    
91-Nummer1    
101-Nummer1    
112-Nummer1    
122-Nummer1    
132-Nummer1    
142-Nummer1    
152-Nummer1    
16      
171-Nummer Anzahl4    
182-Nummer Anzahl10    
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige