komplizierte suche+addition

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Moritz,
so könnte es etwa aussehen
Gruß
Franz


Sub Sondersumme()
Dim dblSumme As Double, strBegriffSumme As String, strBegriffKriterium, strKriterium As String
Dim rngBegriffSumme As Range, rngBegriffKriterium As Range
Dim wks As Worksheet, rngBegriff As Range, lngZeile As Long
Set wks = ActiveSheet
Set rngBegriff = wks.Range("A1:Z1") ' Bereich in dem Begriffe gesucht werden sollen
'Eingabe der Begriffe und des Kriteriums
strBegriffSumme = InputBox("Bitte Begriff eingeben unter dem Summiert werden soll:", "Sondersummierung", "Maus")
strBegriffKriterium = InputBox("Bitte Begriff eingeben unter dem Kriterium steht:", "Sondersummierung", "Katze")
strKriterium = InputBox("Bitte Kriterium eingeben:", "Sondersummierung", "rot")
'Suchen der Zellen mit den Begriffen
Set rngBegriffSumme = rngBegriff.Find(What:=strBegriffSumme, LookIn:=xlValues, Lookat:=xlWhole)
Set rngBegriffKriterium = rngBegriff.Find(What:=strBegriffKriterium, LookIn:=xlValues, Lookat:=xlWhole)
If (rngBegriffSumme Is Nothing) Or (rngBegriffKriterium Is Nothing) Then
MsgBox "Begriff '" & strBegriffSumme & "' oder '" & strBegriffKriterium & "' wurde nicht gefunden"
Exit Sub
End If
'Summenermittlung
With wks
'Letzte Zeile mit Daten in Spalte mit Begriff1 (strBegriffSumme)
lngZeile = wks.Cells(wks.Rows.Count, rngBegriffSumme.Column).End(xlUp).Row
'Zellinhalte unterhalb Begriff 1 summieren, wenn Kriterium unter Begriff 2 erfüllt ist
dblSumme = Application.WorksheetFunction.SumIf(.Range(.Cells(rngBegriffSumme.Row + 1, _
rngBegriffKriterium.Column), .Cells(lngZeile, rngBegriffKriterium.Column)), _
"=" & strKriterium, .Range(.Cells(rngBegriffSumme.Row + 1, rngBegriffSumme.Column), _
.Cells(lngZeile, rngBegriffSumme.Column)))
MsgBox "Summe für eingegebene Kriterien:  " & Format(dblSumme, "#,##0.00")
End Sub

Hallo Moritz,
falls du einen Wert automatisch und ohne Inputboxen berechnen lassen möchtest, dann geht dies am besten mit einer benutzerdefinierten Funktion in der du wie in einer normalen Formel die Eingabewerte einträgst.
Ich hab hier mal eine Beispieldatei erstellt, in der du auch die Makrolösung findest.
Die Makrolösung ist jetzt so abgeändert, das sie die Werte für Begriffe und Kriterium aus der Tabelle2 ausliest. Wenn du mit festen Werten arbeiten willst, dann muss du im Makro statt des Verweises auf die Zellen hinter dem Gleichheitszeichen die gesuchten Werte in Anführungszeichen gesetzt eintragen.
Ein weiters Makro, dass du im VBA-Editor unter "Tabelle2" findest, startet die Summenberechnung automatisch wenn einer der Eingabewerte in Tabelle2 Bereich A2:C2 geändert wird.
Der Summenwert läßt sich übrigens auch ohne VBA ermitteln. Siehe Beispieldatei.
https://www.herber.de/bbs/user/35363.xls
Jetzt kannst du dir die Lösung aussuchen, die dir am meisten zusagt.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

komplizierte suche+addition

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread