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: Spalten auf anderen Worksheeds in der Mappe ausblenden.

    in Microsoft Excel Hilfe
    VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.: Hallo zusammen, Eine Tabelle mit 9 Worksheets, Datenblatt, Studien, Studie_1 ...Studie_7. Auf dem Deckblatt werden in Zelle B4-B10 die Namen der Studien eingetragen. Davon abhängig ob ein Name...
  3. Excel VBA Spalten mit Ordnerinhalt vergleichen

    in Microsoft Excel Hilfe
    Excel VBA Spalten mit Ordnerinhalt vergleichen: Hallo, Bin ehr Excel VBA Neuling, Würde aber gerne in einer bestehender Tabelle die Auflistung der Ordner mit dem eigentlichen Stand in den besagten Ordner kontrollieren. Also in der Spalte Q10...
  4. Array aus Excel Tabelle einlesen Word VBA

    in Microsoft Excel Hilfe
    Array aus Excel Tabelle einlesen Word VBA: Hallo, ich benötige in einer Word Datei die Werte einer Excel Datei. Ich würde gerne eine Spalte als Array einlesen. Wie das Array ein lesen in Excel geht weiß ich, aber wie schaffe ich den...
  5. Dynamische Tabellen mit automatischer Aktualisierung

    in Microsoft Excel Hilfe
    Dynamische Tabellen mit automatischer Aktualisierung: Hallo in die Runde! Vorab schon mal vielen Dank für alle Mühen und die Hilfe! Ich habe folgendes Anliegen: Ich habe eine Geräteliste als Excel Datei mit einigen verschiedenen Tabellenblättern...
  6. (Excel) Dynamische Tabelle, VBA, fehlende Formatierung?

    in Microsoft Excel Hilfe
    (Excel) Dynamische Tabelle, VBA, fehlende Formatierung?: Liebe Experten, Gefilterte Daten sollen in ein Listobject übertragen werden. Für das Listobject habe ich ein Template angelegt, dass alle Formatierungen (u.a. bedingte Formatierung etc.) enthält....
  7. Speichern mit dem Titel der Zelle A2

    in Microsoft Excel Hilfe
    Speichern mit dem Titel der Zelle A2: Moin moin, Ich habe per Makro einen Arbeitsablauf aufgezeichnet der soweit auch funktioniert. Dieser Endet jedoch im "Speichern Unter" Fenster, welches durch das Klicken von "Drucken als PDF"...
  8. Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

    in Microsoft Excel Hilfe
    Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.): Hallo, ich benötige Hilfe für ein Problem, welches ich leider selbst schwerlich als Anfänger nicht lösen kann: Ich möchte von dem Tabellenblatt "Tabelle1" aus den Zellen B8:B14, K8:K14, B18:B25,...
  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