Jeg sidder og kæmper med at få lavet en formel som kan tage nedenstående celler.

i C ligger et opgave nr. og resultatet skal være pr. opgave nr.

Kan kolonnerne byttes rundt, så opgavenumrene kommer i første kolonne?

Indsæt følgende nedefter i kolonne D, så skulle tiden fra første registrering (VGODK) til registreringen med KLAR eller AVSLUTAD fremkomme ud for KLAR/AVSLUTAD:

=HVIS(ELLER(VENSTRE(a2;4)="KLAR"; VENSTRE(a2; 8)="AVSLUTAD"); b2-INDEKS(b$2:b$1000; SAMMENLIGN(c2; c$2:c$1000; 0)); "")

VH Lars

Da jeg i forvejen skulle bruge en makro til noget lignende, lavede jeg denne her.

Man skal udpege en celle i tabellen og en outputcelle for ny tabel, så danner makroen en pivotabel på dine data med automatisk tidsberegning.

Nå pivottabellen er dannet skal makroen ikke bruges mere. Nu kan man bare højreklikke of refreshe pivottabellen, når man har fået nye data.
(i dit datadump er der en usynlig karakter (0160). Den tager makroen ikke højde for. Hvis den også findes i det rigtige dataudtræk, så skal den fjernes med søg/erstat)


Sub Make_Pivot()

    Dim stPivotTableName As String
    Dim pv              As PivotTable
    Dim rngData          As Range
    Dim rngOut          As Range
    Dim wb              As Workbook

    stPivotTableName = "MyPivot"

    Set wb = ActiveWorkbook
    If wb.PivotCaches.Count > 0 Then Exit Sub
   
    Set rngData = Application.InputBox("Marker en celle i dine data", Type:=8)
    If Not rngData Is Nothing Then Set rngData = rngData.CurrentRegion Else Exit Sub
   
    Set rngOut = Application.InputBox("Marker første celle til pivottabel", Type:=8)
    If rngOut Is Nothing Then Exit Sub
   
    Application.ScreenUpdating = False

    Set pv = wb.PivotCaches.Create(SourceType:=xlDatabase, _
            SourceData:=rngData, Version:=xlPivotTableVersion12).CreatePivotTable(TableDestination:=rngOut, _
            TableName:=stNavn, DefaultVersion:=xlPivotTableVersion12)
   
    With pv
        With .PivotFields("Hist.status")
            .Orientation = xlColumnField
            .Position = 1
        End With

        pv.AddDataField pv.PivotFields("Hist.status tid"), "DatoTid", xlSum

        With .PivotFields("WONUM")
            .Orientation = xlRowField
            .Position = 1
        End With

        With .PivotFields("DatoTid")
            .Function = xlSum
            .NumberFormat = "yy-mm-dd hh:mm;;@"
        End With

        .ColumnGrand = False
        .RowGrand = False
        .DisplayErrorString = True

        With .PivotFields("Hist.status")
            .CalculatedItems.Add "TID", "= MAX('AVSLUTAD','KLAR')-'VGODK'", True
            .PivotItems("VGODK").Position = 1
            .PivotItems("TID").Position = 7
            .PivotItems("AVSLUTAD").Position = 6
            .PivotItems("KLAR").Position = 5
        End With

        .PivotSelect "TID", xlData, True
        Selection.NumberFormat = "[h]:mm;;"
    End With

End Sub

Lukket