Hallo liebe Community,

nach mehreren Stunden Recherche versuche ich nun auf diesem Weg meine kleine Herausforderung zu lösen.

Mein Ziel ist es, eine Datei, die aus einer Datenbank generiert wird, automatisch um einen prozentualen Wareneinsatz zu erweitern.

Die Datei besteht aus 7 Spalten und ca. 1.000 Zeilen.

Entscheidend ist Spalte A, hier werden Konten angegeben und in den folgenden Spalten die Werte für unterschiedliche Zeithorizonte:

Spalte A___________________Spalte B_________Spalte C       

7030110 - Wareneinsatz             1.000 EUR                700 EUR

7030112 - Wareneinsatz EU      2.000 EUR              100 EUR

8030110 - Erlös                            4.500 EUR             900 EUR

8030112 - Erlös EU                    1.500 EUR             100 EUR

D.h. die Abfrage soll quasi folgendes prüfen:

If X = "7030110" or "7030112" then

Wareneinsatz = Summme aus Spalte B (also 3.000 EUR)

(Die Konten stehen allerdings nur selten in der selben Zeile.)

Mein Entwurf schaut bisher wie folgt aus:

Sub se_Statistikdaten_Wareneinsatz_Verkauf_GF()
Dim StartZeile As Long
Dim Endzeile As Long
Dim y As Long
Dim PruefWertKonten As String                                  
Dim PruefSpalte As Long
Dim WEimVJ As Double (Summe Wareneinsatz)
Dim ERLimVJ As Double (Summe Erlöse)

StartZeile = 1
Endzeile = GetLastRow(1)
PruefSpalte = 1

For y = StartZeile To Endzeile
PruefWertKonten = Left(Trim(UCase(Cells(y, PruefSpalte).Value)), 7)

If PruefwertKonten = "7030110" or "7030112" (or... 15 versch. Konten!) then
WEimVJ = sum((cells(y,2)) ???


Elseif PruefWertKonten ="7030110" or "7030112" then
ERLimVJ = sum((cells(y,2))???


End if
Next Y
End Sub

D.h. mein Problem ist die Summe aus den Zellen in Spalte B zu ziehen, auf die das Kriterium in Spalte A zutrifft.

anke & Grüße

Qwer7z