Dynamsik finde max-værdi

orv glemte lige at maks, min, middel er pr række

Hvorfor vil du gøre det i VBA? Der er gode muligheder for at gøre det direkte i en formel.

Hvis du har et range som tekst i A1, så kan du finde max med:

=MAX(INDIRECT(A1))

Fordi det er en del af en større operation på dataene, indsættelse af kolonner afhængigt af forskellige valg der foretages.

Det er en stak testresultater som skal databehandles efter import, og det er jo oplagt at lave en makro til denne data-behandoing, når dette skal foretages regelmæssigt/dagligt.

Redefinér hele tiden
øverst i din makro
dit range AlleTallene med:

Set AlleTallene = range("a1").currentRegion

Det her blev løsningen, den er super hurtig, er der er blot lagt faste værdier ind for kolonnestart og kolonneslut for testmuligheden.

Sub MaksMinGennemsnit()
    Dim j As Integer ' Antalraekker der skal bearbejdes
    Dim k As Integer 'rækkevariabel
    Dim r As Range 'Variable til område der skal beregnes på (rækken)
    Dim KolonneStart As Integer 'Hvilken kolonne skal gennemsnitsbregningen starte i?
    Dim Kolonneslut As Integer 'Hvilken kolonne skal gennemsnitsbregningen slutte i?
    Dim MaksValue 'Maximumværdi for valgte række
    Dim MinValue As Double 'Minimumsværdi for valgte række
    Dim Gennemsnit As Double 'Gennemsnitsværdi for valgte række
   
    j = Range("Q1").End(xlDown).Row 'Beregner antal rækker
    KolonneStart = 20
    Kolonneslut = 50
    For k = 2 To j Step 1
        Set r = Range(Cells(k, KolonneStart), Cells(k, Kolonneslut)) 'Definer hvilket område der skal arbejdes i
        MaksValue = WorksheetFunction.Max(r) 'Beregn maks-værdi
        MinValue = WorksheetFunction.Min(r) 'Beregn min-værdi
        Gennemsnit = WorksheetFunction.Average(r) 'Beregn gennemsnits-værdi
        Cells(k, Kolonneslut + 1).Value = MaksValue 'Skriv maks-værdi
        Cells(k, Kolonneslut + 2).Value = MinValue 'Skriv min-værdi
        Cells(k, Kolonneslut + 3).Value = Gennemsnit 'Skriv gennemsnits-værdi
    Next k
End Sub