Max Wert der Zeile zuordnen
Lucia
Ich habe einen Datensatz, in dem in Spalte A die Messzeitpunkte aufgeführt sind und in Spalte B die Temperaturen.
In Spalte E werden nun alle Temperaturen herausgenommen, die über 55° liegen, alles drunter wird mit "0" belegt. Das ergeben sich Blöcke über mehrere Zeilen, mit Werten oberhalb von 55°, die eingeschlossen sind von Zeilen, die 0 als Werte haben. Diesen Blöcken habe ich übernachfolgendes Makro eine Nummer zugeteilt (Spalte F) plus in der selben Zeile (immmer die letzte Zeile des Blockes) den Maximalwert des Blockes ermittelt (Spalte G). Hier das Makro:
Sub Runfestlegen()
Dim loZeile1 As Long
Dim loZeile2 As Long
Dim loZaehler As Long
loZaehler = 1
loZeile1 = 2
Do
If Cells(loZeile1, 5) 0 Then
loZeile2 = loZeile1
Do
If Cells(loZeile1 + 1, 5) = 0 Then
Cells(loZeile1, 6) = loZaehler
Cells(loZeile1, 7).FormulaLocal = "=MAX(E" & loZeile2 & ":E" & loZeile1 & ") _
_
loZaehler = loZaehler + 1
End If
loZeile1 = loZeile1 + 1
Loop While Cells(loZeile1, 5) 0
loZeile1 = loZeile1 - 1
End If
loZeile1 = loZeile1 + 1
Loop While Cells(loZeile1, 5) ""
End Sub
Frage: Wie erreicht man, dass der Maximalwert sowie die Runnumer nicht am Ende des Blockes sondern in der Zeile steht, in der sich auch der Maimalwert befindet?Vielen Dank,
Lucia