Herbers Excel-Forum - das Archiv
Spezielle Auswahl und Summe
- Spezielle Auswahl und Summe von Giorgio vom 25.11.2003 11:18:56
- AW: Spezielle Auswahl und Summe - von Thomas Ramel am 25.11.2003 12:11:27
- AW: Spezielle Auswahl und Summe - von Giorgio am 27.11.2003 13:33:53
- AW: Spezielle Auswahl und Summe - von Thomas Ramel am 27.11.2003 16:23:42
- AW: Spezielle Auswahl und Summe - von Thomas Ramel am 27.11.2003 16:23:42
- AW: Spezielle Auswahl und Summe - von Giorgio am 27.11.2003 13:33:53
- AW: Spezielle Auswahl und Summe - von Thomas Ramel am 25.11.2003 12:11:27
 |
Betrifft: Spezielle Auswahl und Summe
von: Giorgio
Geschrieben am: 25.11.2003 11:18:56
Hi Leute!!! Brauche dringend ein code Beispiel/bzw. Formel zu folgendem Problem:
Gegeben:
sheet 1
Spalte c Spalte d
anton 200
anton 250
berta 300
cesar 100
anton 300
sheet 2
spalte c spalte d
berta 50
cesar 100
cesar 100
anton 50
berta 40
Und ich möchte jetzt gern haben durch die Sheets laufen, schauen wo anton steht, die zugehörige spalte daneben nehmen, und aufsummieren, und dies in einem anderen Feld ausgeben.
Bin um jede Hilfe dankbar!
Ach ja ich kann ja durchaus vorher die Sheets sortieren lassen durch ein Makro.
 |
Betrifft: AW: Spezielle Auswahl und Summe
von: Thomas Ramel
Geschrieben am: 25.11.2003 12:11:27
Grüezi Giorgio
Im Prinzip ist das SUMMEWENN() über mehrere Tabellen.
Hier eine Funktion die das tut; mit densleben Parametern wie SUMMEWENN():
Public Function SummeWennTabellen(Tab1 As String, Tab2 As String, _
Bereich As Range, Suchkriterium As String, _
Optional Summe_Bereich As Range) As Double
'© Thomas Ramel / 30.05.2003
'Funktion zur Anwendung von SUMMEWENN() über mehrere Tabellenblätter
'Mit angegeben werden die Tabellenblattnamen von...bis,
'sowie die üblichen Parameter für SUMMEWENN()
Application.Volatile
Dim intI As Integer
Dim intJ As Integer
Dim intTab As Integer
Dim Summe As Double
If Suchkriterium = "" Then
SummeWennTabellen = 0
Exit Function
End If
If Summe_Bereich Is Nothing Then Set Summe_Bereich = Bereich
intI = Worksheets(Tab1).Index
intJ = Worksheets(Tab2).Index
For intTab = intI To intJ
Set Bereich = ActiveWorkbook.Worksheets(intTab).Range(Bereich.Address)
Set Summe_Bereich = ActiveWorkbook.Worksheets(intTab).Range(Summe_Bereich.Address)
Summe = Summe + Application.WorksheetFunction.SumIf(Bereich, Suchkriterium, Summe_Bereich)
Next intTab
SummeWennTabellen = Summe
End Function
Code eingefügt mit: Excel Code Jeanie
Mit freundlichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
[Win 2000Pro SP-4 / xl2000 SP-3]
|
Betrifft: AW: Spezielle Auswahl und Summe
von: Giorgio
Geschrieben am: 27.11.2003 13:33:53
Wie lass ich es mir dann ausgeben??
|
Betrifft: AW: Spezielle Auswahl und Summe
von: Thomas Ramel
Geschrieben am: 27.11.2003 16:23:42
Grüezi Giorgio
Kopiere die Code-Zeilen in ein allgemeines Modul der Mappe.
Dann steht dir die Funktion im Assistenten von Excel unter der Rubrik 'Benutzerdefiniert' zur Verfügung.
Mit freundlichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
[Win 2000Pro SP-4 / xl2000 SP-3]
| |