Supportnet / Forum / Tabellenkalkulation

Sub dongel() Dim loZeile As Long, a As Integer For loZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(loZeile, 1).Value = 2 And Cells(loZeile, 2).Value = 220 Then a = a + Cells(loZeile, 3) End If Next MsgBox "Summe=" & a End Sub ------A---------B--------C 1----2-------210------5.468,00 € 2----3-------220------646.876,00 € 3----1-------230------4.354.354,00 € 4----2-------220------65.464,00 € 5----3-------220------343.218,00 € 6----1-------210------3.213.847,00 € 7----3-------250------1.324.534,00 € 8----1-------210------3.243.754,00 € 9----1-------220------1.321.354,00 € 10---3------210------3.135.437,00 € 11---5------230------4.135.474,00 € 12---6------250------135.434,00 € 13---4------260------354.343,00 € 14---4------260------3.513.743,00 € Sagen wir mal die Tabelle sieht so aus, muss ich dann an dem o. g. Makro noch was ändern? Schönen Dank Gruß Dongel [*][quote][sup][i]Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Siehe [url=https://supportnet.de/groupfaqs/3][u]FAQ2.[/u][/url][/i][/sup][/quote]

danke Jöke,

die Frage hier hat sich erledigt.

• Excel Makro erscheint nicht in Makroliste
• Makro automatisch ausführen
• Daten aus Excel nach Word kopieren, mit VBA
• Brauche Tipps für einen individuellen VBA-Code