|
Hallo Zusammen,
ich versuche seit Tagen die Summe von Zellen in in Zeilen von y1 bis y2 in Spalte x zu Bilden.
y1 und y2 steht in Spalte A und B und x in Spalte C.
y1, y2 und x sind variable und werden nach unten forgeführt.
Ich möchte in Spalte D jeweils die Summe des aktuellen y1 bis y2 in Spalte X schreiben. Die ensprechende Spalte X , welche zuerst in einem dategefüllten tabellenblatt gefunden werden muss, wird über eine instr funktion ermittelt, ist das geschen soll die Summe von y1 bis y2 gebildet werden.
Ich freue mich über Vorschläge.
Beste Grüße
ps: hier ist mein wohl verwirrender Ansatz, er ist durchflutet von "for", "if" und "instr" und sie wie folgt aus, die oben geannten Spalte A,B,C und D habe ich der vereinfachung halber gewählt, in meiner AUsführung sind dies andere:
|
Dim zeilenanzahl As Integer |
|
Dim EndeSchaltzeit As Integer |
|
Dim SummeLeistung As Integer |
|
Dim x As Integer |
|
|
|
x = 0 |
|
|
|
zeilenanzahl = ActiveSheet.Cells(Rows.Count, 9).End(xlUp).Row |
|
|
|
For ZeileSolarproduktion = 3 To zeilenanzahl |
|
For Spalteleistung = 2 To 194 |
|
If InStr(Worksheets("Leistung Jan - Sept 16").Cells(1, Spalteleistung), Worksheets("Auswertung").Cells(19, ZeileSolarproduktion)) > 0 Then |
|
For i = 3 To zeilenanzahl |
|
For ii = 2 To 200 |
|
If InStr(Worksheets("Leistung Jan - Sept 16").Cells(ii, 1), Worksheets("Auswertung").Cells(i, 15)) > 0 Then |
|
|
|
Startzeit = Worksheets(Cells(ZeileSolarproduktion, ii)) |
|
If InStr(Worksheets("Leistung Jan - Sept 16").Cells(ii, 1), Worksheets("Auswertung").Cells(i, 16)) > 0 Then |
|
Endzeit = Worksheets(Cells(ZeileSolarproduktion, ii)) |
|
x = WorksheetFunction.Sum(Range("b2:B65000").Value) |
|
End If |
|
End If |
|
Next ii |
|
Worksheets("Auswertung").Cells(ZeileSolarproduktion, 12) = SummeLeistung |
|
Next i |
|
End If |
|
Next Spalteleistung |
|
Next ZeileSolarproduktion |
|
End Sub |
|