Summenprodukt abhängig von Bedingung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo !
Noch eine Frage zu der Formel:
Ich habe eine Liste und will Spalten auf ein anderes Tabellenblatt bringen um dort weitere Berechnungen durchführen zu können. Jetzt hab ich zumindest "geschnallt" das das vorher nicht ging, da ich eine Spalte ausgeblendet hatte.
Nun zu meiner Frage:
Auf dem Tabellenblatt "AusEin" werden Daten hineingeschaufelt. Also machmal sind sie da und manchmal ist nichts vorhanden. Ich habe nun die u.a. Formel in ein neues Tabellenblatt kopiert und ich bekam auch die Daten im neuen angezeigt. Jedoch nach Leerung des Tabellenblattes AusEin war nur mehr die Fomel ohne Bezug da. Wie kann ich es anstellen, daß diese Formel bleibt. Also, wenn Werte da sind, werden diese übertragen und wenn keine Werte im Tabellenblatt vorhanden sind, dann bleibt zumindest die Formel aufrecht.
Danke für Eure Hilfe
chris58
=SUMMENPRODUKT((MONAT(AusEin!$A$3:$A$10000)=ZEILE(A1))*1;AusEin!$F$3:$F$10000)

Hallo !
Danke für die Formel, habe sie eingebaut, sie funktioniert. Nur eines, ich kann sie wieder nicht verwenden.
Wegen:
Ich muß die Daten, nachdem ich sie "rübergeschaufelt" habe, mit diesem Code weiter bearbeiten. Ich habe da ungefähr 25 Konten die auf diese Konten aufgeteilt werden. Nachdem ich deine Formel eingefügt hatte und auf "Ausführen" (Daten aufteilen) ging, schlägt mir der VBA Code mache Daten in die falschen Konten.
Da ich aber eine korrekte Summe benötige (Bilanz) muß ich mich notgedrungen mit dem normalen kopieren (ca. 9000 Datensätze) begnügen. Jedenfalls für deine Mühe herzlichen Dank
chris58
Hier der Code mit dem ich diese Daten aufteile:
Option Explicit

Public Sub AuswaehlenKopieren()
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Dim rZelle As Range
Dim sFundst As String
Dim sSuchbegriff As String
Dim lZeile_Z As Long
sSuchbegriff = "Strom" ' der zu suchende Begriff
lZeile_Z = 1 ' die erste Ausgabezeile -1
Application.ScreenUpdating = False
Set WkSh_Q = Worksheets("Saldenliste") ' den Tabellenblattnamen ggf. anpassen !!!
Set WkSh_Z = Worksheets("Strom") ' den Tabellenblattnamen ggf. anpassen !!!
With WkSh_Q.Columns(3)
' wenn der gesamte Suchbegriff gefunden werden soll muss es
' xlWhole anstelle von xlPart heißen.
Set rZelle = .Find(sSuchbegriff, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
lZeile_Z = lZeile_Z + 1
WkSh_Q.Rows(rZelle.Row).Copy Destination:=WkSh_Z.Rows(lZeile_Z)
Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address  sFundst
Else
MsgBox "Zum gesuchen Begriff """ & sSuchbegriff & _
""" wurde kein Eintrag gefunden.", _
48, " Hinweis für " & Application.UserName
End If
End With
Application.ScreenUpdating = True
End Sub

Beliebteste Forumthreads (12 Monate)

Summenprodukt abhängig von Bedingung

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summenprodukt abhängig von Bedingung

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread