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
Vielen Dank,
Lucia
Anzeige