Thema Datum  Von Nutzer Rating
Antwort
16.03.2022 20:16:37 Hannes
Solved
16.03.2022 20:55:09 Hannes
Solved
17.03.2022 23:06:14 Yal
Solved
18.03.2022 08:47:27 Hannes
Solved
Rot Filter Ergebisse auswerten
 16.03.2022 23:33:56 ralf_b
Solved
17.03.2022 00:14:36 Hannes
Solved
17.03.2022 07:46:35 Gast17784
Solved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
16.03.2022 23:33:56		 Views:
469		 Rating:
     
Antwort:
 Nein
Thema:
Filter Ergebisse auswerten		 
Sub Makro1()

    Dim arWerte
    Dim x
    Dim erg    As Double
    arWerte = Array("A", "B", "C") 'deine Suchwerte
    
    For Each x In arWerte
        'hier wird eine summewenns() formel verwendet 
        erg = WorksheetFunction.SumIfs(Columns("D"), Columns("C"), x)
        If erg > 0 Then
            With Worksheets("T-KS22")
                With .Range("B" & .Cells(.Rows.Count, "B").End(xlUp).Row + 1) 'neue Zeile referenzieren
                    .Value = erg             ' Ergebnis ins Spalte B
                    .Offset(, -1).Value = x  'Suchwert in Spalte A
                End With
            End With
        End If
    Next
        
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.03.2022 20:16:37 Hannes
Solved
16.03.2022 20:55:09 Hannes
Solved
17.03.2022 23:06:14 Yal
Solved
18.03.2022 08:47:27 Hannes
Solved
Rot Filter Ergebisse auswerten
 16.03.2022 23:33:56 ralf_b
Solved
17.03.2022 00:14:36 Hannes
Solved
17.03.2022 07:46:35 Gast17784
Solved