danke dir für die Hilfe. Die Zeit t [ms] beginnt bei mir mit D5, Temperatur T [°C] ab J5 und Volumen [ml] ab P5.
Müsste ich dann nicht...
Option Explicit
Sub Bsp()
Dim rngData As Excel.Range
With Worksheets("Tabelle1")
Set rngData = .Range(.Cells(5, "D"), .Cells(.Rows.Count, "D").End(xlUp)).Resize(, 3)
With rngData.Offset(, 3)
.Columns(1).FormulaR1C1 = "=1+TRUNC(RC[-3]/60000,0)"
.Columns(2).FormulaR1C1 = "=IF(AND(OR(RC[-1]=R[-1]C[-1],NOT(ISBLANK(R[-1]C[-1]))),NOT(ISBLANK(R[-1]C[-1])))," & _
"AVERAGEIF(" & .Columns(1).Address(ReferenceStyle:=xlR1C1) & ",RC[-1]," & .Columns(1).Offset(, -2).Address(ReferenceStyle:=xlR1C1) & "),"""")"
.Columns(3).FormulaR1C1 = "=IF(RC[-1]<>"""",RC[-3],"""")"
.Value = .Value
End With
Call rngData.Cells(1, 1).Offset(-1).Replace("[ms]", "[min]")
Call rngData.Delete(xlShiftToLeft)
Set rngData = .Range(.Cells(5, "D"), .Cells(.Rows.Count, "D").End(xlUp)).Resize(, 3)
Call rngData.Sort(Key1:=.Cells(1), Order1:=xlAscending, Key2:=.Cells(2), Order2:=xlDescending)
Call rngData.RemoveDuplicates(1)
End With
End Sub
...eingeben also bei Cells(5, "D"), .Cells(.RowsCount, "D")?
Wo genau Tipp ich das aber ein?
Viusal Basics bei mir schon lange her und hat das auch nur wenig gehabt.
Mit ALT+F11 komm ich ja ins VBA Menü rein aber dann?
MfG