Office: vba excel summe mit bedingungen

Helfe beim Thema vba excel summe mit bedingungen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich arbeite mit Office 2007. In Excel habe ich mit vba ein Makro geschrieben, dass gut läuft. Aber jetzt benötige ich eine sumifs Formulierung... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von stroppe, 24. Februar 2015.

  1. vba excel summe mit bedingungen


    Hallo,
    ich arbeite mit Office 2007.
    In Excel habe ich mit vba ein Makro geschrieben, dass gut läuft. Aber jetzt benötige ich eine sumifs Formulierung und scheitere.

    Mit nachfolgender Schleife werden Daten ausgelesen:

    Sheets("konten_o_1106+1415").Select
    Range("A1:I1000").Select
    lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row

    For t = lz To 2 Step -1
    If Cells(t, 1).Value = "1253" And Cells(t, 2).Value = "Tausch-Gutschein 14-15" And Cells(t, 3).Value = "Kv-Gutschein (VK)(216)" Then Cells(t, 9).Copy
    Sheets("Rechenblatt_z_ZVerkaufsSt").Select
    Range("C20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    End If
    Next t

    Mit dieser Schleife bekomme ich genau einen Wert. Treffen die Bedingungen zweimal zu, habe ich das Problem.
    Ich möchte alle Zeilen auslesen, die die Bedingungen erfüllen und diese Werte (in Spalte "I") summieren und auf dem Tabellenblatt "Rechenblatt...." wiedergegeben bekommen.

    Das geht bestimmt, ich weiß aber nicht wie.

    Kann jemand helfen?

    Vielen Dank!
     
    stroppe, 24. Februar 2015
    #1
  2. Exl121150 Erfahrener User
    Hallo,

    zwar ungetestet, aber ich hoffe es passt.
    Die Werte aus Spalte I des Bereiches "konten_o_1106+1415!A1:I1000" werden, sofern sie die Kriterien erfüllen, in der Zelle "Rechenblatt_z_ZVerkaufsSt!C20" addiert.

    Code:
    Option Explicit
    
    Sub Addition()
     Dim xlOp As Variant
     Dim t As Long
     Dim Ziel As Range
     
     Set Ziel = Sheets("Rechenblatt_z_ZVerkaufsSt").Range("C20")
     
     With Sheets("konten_o_1106+1415").Range("A1:I1000")
       xlOp = xlNone
       For t = .Rows.Count To 2 Step -1
          If .Cells(t, 1).Value = "1253" And _
             .Cells(t, 2).Value = "Tausch-Gutschein 14-15" And _
             .Cells(t, 3).Value = "Kv-Gutschein (VK)(216)" Then
             .Cells(t, 9).Copy
             Ziel.PasteSpecial Paste:=xlPasteValues, Operation:=xlOp, SkipBlanks:=False, Transpose:=False
             xlOp = xlAdd
          End If
       Next t
     End With
     
    End Sub
    
     
    Exl121150, 24. Februar 2015
    #2
  3. Hallo,

    vielen, vielen Dank. Das hat sofort geklappt.

    LG
    avs
     
    stroppe, 26. Februar 2015
    #3
Thema:

vba excel summe mit bedingungen

Die Seite wird geladen...
  1. vba excel summe mit bedingungen - Similar Threads - vba excel summe

  2. VBA duplikate finden und auf Kriterien prüfen

    in Microsoft Excel Hilfe
    VBA duplikate finden und auf Kriterien prüfen: Liebe Excel Gemeinschaft Ich möchte gerne mit VBA code Doppelte Einträge finden und 2 Kriterien sollen Geprüft werden un anderen spalte. Zu guter letzte sollte in einer weiter die...
  3. PivotCache.CreatePivotTable.. manchmal gehts, manchmal nicht?!

    in Microsoft Excel Hilfe
    PivotCache.CreatePivotTable.. manchmal gehts, manchmal nicht?!: Hallo zusammen, ich programmiere zurzeit für ein Projekt ein VBA Programm, dass aus einer Inputdatei Daten in einer Pivot Tabelle darstellt. Prinzipiell funktioniert das Programm. Allerdings ist...
  4. Excel VBA zwischen geöffneten Dateien wechseln und schließen.

    in Microsoft Excel Hilfe
    Excel VBA zwischen geöffneten Dateien wechseln und schließen.: Hi zusammen, Meine Arbeitsmappe öffnet via VBA die neueste Datei(auch eine Arbeitsmappe) in einem bestimmten Pfad und öffnet diese. Danach werden Daten hieraus kopiert und in die ursprüngliche...
  5. Makro kopieren

    in Microsoft Excel Hilfe
    Makro kopieren: Hallo zusammen, ich habe zwei Tabellen, wo ich aktuell über 2 Makro Buttons folgende Funktionen erfülle : z.B. Button 1 - Ausgewählten Text in Tabelle 1 Spalte "B" kopieren nach Tabelle 2 Spalte...
  6. Werte der letzten Zelle einer Spalte in mehreren Tabellenblättern ermitteln

    in Microsoft Excel Hilfe
    Werte der letzten Zelle einer Spalte in mehreren Tabellenblättern ermitteln: Hallihalllo, Ich sitze gerade an meine Bachelorarbeit und muss mittels VBA ein Auswertungsprogramm für erhobene Daten erarbeiten. Ich suche schon ewig im Internet nach dem passenden Code und...
  7. Excel VBA Problem create button

    in Microsoft Excel Hilfe
    Excel VBA Problem create button: Hallo liebe Community, ich hoffe ihr könnt helfen, bin am verzweifeln und kann den Fehler einfach nicht finden. Wir haben eine aufwendig gestallte Excel Liste, wo wir unter anderem Button...
  8. Excel mit Macro oder VBA für Android Tablet

    in Microsoft Excel Hilfe
    Excel mit Macro oder VBA für Android Tablet: Hallo, ich suche eine Möglichekeit eine Tabelle auf dem Tablet unter Android laufen zu lassen. Bin nicht sehr fortgeschritten aber motiviert. Über und unter einem Feld habe ich ich Buttons die...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden