Hi there,
this can be done with Power Query as well:
let
Source = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Duplicated Column" = Table.DuplicateColumn(Source, "Values", "Values - Copy"),
#"Split Column by Delimiter" = Table.SplitColumn(#"Duplicated Column","Values",Splitter.SplitTextByDelimiter(" "),{"Values.1", "Values.2", "Values.3", "Values.4", "Values.5", "Values.6", "Values.7", "Values.8"}),
#"Removed Columns" = Table.RemoveColumns(#"Split Column by Delimiter",{"Values.7", "Values.8"}),
#"Unpivoted Columns" = Table.UnpivotOtherColumns(#"Removed Columns", {"Values - Copy"}, "Attribute", "Value"),
#"Added Custom" = Table.AddColumn(#"Unpivoted Columns", "Unit", each if Number.IsEven(Number.From(Text.End([Attribute],1)))= true then [Value] else null),
#"Added Custom1" = Table.AddColumn(#"Added Custom", "Amount", each if [Unit] = null then [Value] else null),
#"Filled Up" = Table.FillUp(#"Added Custom1",{"Unit"}),
#"Filtered Rows" = Table.SelectRows(#"Filled Up", each [Amount] <> null),
#"Changed Type1" = Table.TransformColumnTypes(#"Filtered Rows",{{"Amount", type number}}),
#"Merged Queries" = Table.NestedJoin(#"Changed Type1",{"Unit"},TimeTranslation,{"unit"},"NewColumn"),
#"Expanded NewColumn" = Table.ExpandTableColumn(#"Merged Queries", "NewColumn", {"multiply"}, {"multiply"}),
#"Added Custom2" = Table.AddColumn(#"Expanded NewColumn", "Minutes", each [Amount]*[multiply]),
#"Grouped Rows" = Table.Group(#"Added Custom2", {"Values - Copy"}, {{"Minutes", each List.Sum([Minutes]), type number}})
in
#"Grouped Rows"
LinkToFile
hth, Imke