Marker 10 kolonner til højre for et udtryk

=IF(H1="Timer";OFFSET(H1;;1;;10);)

dansk

=HVIS(H1="Timer";FORSKYDNING(H1;;1;;10);)

Tror du må udi en lille macro alla:

Sub MarkerCeller()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim Area As Range, Cell As Range
   
    Set wb = ThisWorkbook
   
    For Each ws In wb.Sheets
        ws.Activate
        Set Area = ws.Range("H1:H100")
        For Each Cell In Area
            If Cell.Value = "Timer" Then Range(Cell.Offset(0, 1), Cell.Offset(0, 10)).Select
        Next
    Next
End Sub

Hej Jan
Det virker perfekt, jeg glemte en vigtig detalje alle disse linjer skal kopiers over på Ark1, og sættes ind i D2

prøv denne:
Sub CopyCeller()
    Application.ScreenUpdating = False
    Dim wb As Workbook
    Dim ws As Worksheet, Ark1 As Worksheet
    Dim Area As Range, Cell As Range
    Dim PasteCell As Range
   
    Set wb = ThisWorkbook
    Set Ark1 = wb.Sheets("Ark1")
    Set PasteCell = Ark1.Range("D2")
   
    For Each ws In wb.Sheets
        If ws.Name = Ark1.Name Then Exit For
        ws.Activate
        Set Area = ws.Range("H1:H100")
        For Each Cell In Area
            If Cell.Value = "Timer" Then
                ws.Activate
                Range(Cell.Offset(0, 1), Cell.Offset(0, 10)).Select
                Selection.Copy
                Ark1.Activate
                PasteCell.Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                Set PasteCell = PasteCell.Offset(1, 0)
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

Jan

Tusind tak :-) :-)