Hallo Leute!
Ich habe eine knifflige Aufgabenstellung mit VBA zu lösen und keine Ahnung, wie ich es anstellen kann.
Es gibt eine Tabelle „Kurve1“ in der, in Spalte A, Sekunden in 20iger Schritten abgetragen sind. Zu jeder Zeit, gibt es einen Wert in Spalte H.
Gesucht ist jetzt eine dynamische Formel, die mir den Maximal- (Spalte M) bzw. Minimalwert (Spalte N) aus einer beliebigen Spanne (z.B. 500s) vor und nach dem Ausgangszeitwert in Spalte A, aus den zugehörigen Werten in Spalte H ausgibt. Davon wird dann nochmal etwas abgezogen bzw. zuaddiert („Auswertung!$D$7“, siehe Tabelle https://www.herber.de/bbs/user/108408.xlsm).
Problem ist, dass die Spanne von 500s variabel ist, d.h. auch nur 50s betragen kann. Diese Spanne wird beispielsweise im Tabellenblatt „Auswertung“ in Spalte D12 eingegeben.
Bis jetzt habe ich einen statischen Code für 500s:
Worksheets("Kurve1").Activate
iRow = Cells(Rows.Count, 1).End(xlUp).Row
‘die ersten Werte, da es sonst einen #Bezug-Fehler gibt
Range("M2").FormulaR1C1 = "=MAX(R2C8:R[25]C8)+Auswertung!R7C4"
Range("M2:M26").FillDown
Range("N2").FormulaR1C1 = "=MIN(R2C8:R[25]C8)+Auswertung!R8C4"
Range("N2:N26").FillDown
‘für alle weiteren Werte ab Zeile 27 für die 500s in positive und negative Richtung möglich sind (500s / 20s = 25 Zeilen – jedoch begonnen in Zeile 2 – ergibt, dass es ab Zeile 27 keine #Bezug-Fehlermeldung mehr gibt ;-))
Range("M27").FormulaR1C1 = "=MAX(R[-25]C8:R[25]C8)+Auswertung!R7C4"
Range("M27:M" & iRow).FillDown
Range("N27").FormulaR1C1 = "=MIN(R[-25]C8:R[25]C8)+Auswertung!R8C4"
Range("N27:N" & iRow).FillDown
Ich weiß jetzt nicht, wie ich das Ganze programmieren kann. Geringfügige Kenntnisse habe ich, aber um die Formel dynamisch zu gestalten, d.h. mit unterschiedlichen Zeitspannen, reicht es nicht =).
Ist es überhaupt möglich mit VBA zu programmieren, dass die Zeiten in Spalte A als Zahlen erkannt werden und davon dann 500 aufwärts bzw. abwärts geprüft wird?
Vielen Dank euch, dass ihr euch Zeit nehmt einen Post zu lesen und mir helft =).
Hier nochmal die Beispielmappe: https://www.herber.de/bbs/user/108408.xlsm
Schönen Wochenstart euch!!
Linda