Find største værdi i kolonne og brug i formel

Sp. 1 hvor kommer A3 ind i billedet?

Du er velkommen til at sende en kopi af filen til: pb@supertekst-it.dk - så er det måske lidt lettere at se, hvad du ønsker.

Ikke et øje er tørt!!!    :oP

Supertekst??  ..er du klar til dine point??  :o)

c_skytte

Her er koden:

Dim antalRækker
Private Sub CommandButton1_Click()
    IndSaetinie
End Sub
Private Sub Indsaet_Gruppe_Click()
    Indsaet_Ny_Gruppe
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim nyVal
On Error Resume Next
    CelleNavn = Target.Name.Name
               
    If Left(CelleNavn, 7) = "INDSAET" Then
        nyVal = findhøjesteTal
        Selection.EntireRow.Insert Shift:=xlDown
        ActiveCell.FormulaR1C1 = nyVal
        ActiveCell.Range("B1").Select
       
        Sortering
    End If
End Sub
Public Sub Sortering()
Rem beregn sidste række
 
  antalRækker = beregnAntalrækker

    Range("A2:I" + CStr(antalRækker)).Sort Key1:=Range("H3"), Order1:=xlAscending, Key2:=Range( _
        "G3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
End Sub
Public Function beregnAntalrækker()
  beregnAntalrækker = Range("A65536").End(xlUp).Row
End Function
Public Function findhøjesteTal()
Dim tal As Integer
    tal = 0
    max = beregnAntalrækker
   
    For ræk = 3 To max
        If Cells(ræk, 1) <> "" And IsNumeric(Cells(ræk, 1)) = True Then
            If Cells(ræk, 1) > tal Then
                tal = Cells(ræk, 1)
            End If
        End If
    Next ræk
    findhøjesteTal = tal + 1
End Function