Sub Kleinste() Dim Index As Long, Zaehler As Long Columns("A:A").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom ReDim Datt(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 1) As Variant Datt() = Range("A2:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row) For Zaehler = LBound(Datt()) To UBound(Datt()) - 1 Index = Index + 1 If Index > Datt(Zaehler, 1) And Index < Datt(Zaehler + 1, 1) Then Range("B2") = Index Exit For End If Next Zaehler End Sub
Sub Kleinste() Dim Index As Long, Zaehler As Long Columns("A:A").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom ReDim Datt(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 1) As Variant Datt() = Range("A2:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row) For Zaehler = LBound(Datt()) To UBound(Datt()) - 1 Index = Index + 1 If Index > Datt(Zaehler, 1) And Index < Datt(Zaehler + 1, 1) Or Index = 1 And Datt(Zaehler, 1) > Index Then Range("B2") = Index Exit For End If Next Zaehler End Sub
KKLEINSTE(WENN(ZÄHLENWENN(INDIREKT("$A$1:A" & BereichHistorie);ZEILE(INDIREKT("$A$1:G" & BereichHistorie)))=0;ZEILE(INDIREKT("$A$1:A" & BereichHistorie)));1)
KKLEINSTE(WENN(ZÄHLENWENN(INDIREKT("$A$1:A" & BereichHistorie);ZEILE(INDIREKT("$A$1:A" & BereichHistorie)))=0;ZEILE(INDIREKT("$A$1:A" & BereichHistorie)));1))
58.4k Fragen
249k Antworten
7k Nutzer