Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

2 Zellen vergleichen und Werte in Folgen summieren


Betrifft: 2 Zellen vergleichen und Werte in Folgen summieren von: Rene
Geschrieben am: 23.09.2019 12:34:16

Hallo zusammen,

Habe folgendes Problem: Ich Suche eine Formel bzw. VBA , da meine Kenntnisse in diesem Fall nicht ausreichen:

D und E soll miteinander abgeglichen werden bei Übereinstimmung soll dann der Wert aus F addiert werden bis sich der Der Text ändert und die Summe aus F soll als Ergebnis in G angezeigt werden. die Folgen können Variieren.

in der Beispieltabelle habe ich die Folgen farblich gekennzeichnet.

https://www.herber.de/bbs/user/132149.xlsx

Ich hoffe mir kann jemand helfen

Viele Grüße Rene

  

Betrifft: AW: 2 Zellen vergleichen und Werte in Folgen summieren von: Piet
Geschrieben am: 24.09.2019 00:30:55

Hallo Rene

nach meiner Ansicht reicht es wenn du diesen Code in ein Modul kopierst und laufen laesst.
Am besten über einen CommandButton, KEIN AktiveX Steuerelement. Dem normalen Button kannst du das Makro direkt zuweisen!

mfg Piet

Sub Spalte_F_addieren()
Dim AC As Range, lz1 As Long, gSum As Long
    'LastZell in Spalt A suchen
    lz1 = Cells(Rows.Count, 1).End(xlUp).Row
    
    'Schleife zum vergleichen von D mit E
    For Each AC In Range("D3:D" & lz1)
       If AC.Cells(1, 1) = AC.Cells(2, 1) And _
          AC.Cells(1, 2) = AC.Cells(2, 2) Then
          gSum = gSum + AC.Cells(1, 3)
       Else
          gSum = gSum + CInt(AC.Cells(1, 3))
          AC.Cells(1, 4) = gSum
          gSum = 0
       End If
    Next AC
End Sub



  

Betrifft: AW: 2 Zellen vergleichen und Werte in Folgen summieren von: Rene
Geschrieben am: 24.09.2019 07:27:26

Hallo Piet,

Vielen Dank für deine Hilfe !!!

Ich habe bei meinen versuchen absolut den Falschen Ansatz gehabt :-)

Mit ein Paar Anpassungen deines Codes hat es geklappt.

mfg Rene


Beiträge aus dem Excel-Forum zum Thema "2 Zellen vergleichen und Werte in Folgen summieren"