loop'e efter text i range og dumpe overskrift i range

Du søger sikker en markro, men sad bare lige og legede med følgende:
- i E4: =IF(FIND("value";CONCATENATE(E14;E15;E16;E17;E18))>0;E13;"")
- kopier henad til K4
- flyt F4 til E5, G4 til E6, etc.
Så har du dine overskrifter i E4:E10

Man kunne jo også lave den lidt pænere, så man undgik #value:
=IF(ISERR(FIND("value";CONCATENATE(E14;E15;E16;E17;E18))>0);"";IF(FIND("value";CONCATENATE(E14;E15;E16;E17;E18))>0;E13;" "))

Men det hele kræver jo lidt at rangen E14:K18 ikke er alt for stor i den pågældende opgave.

Hilsen Luffe

tak, men den skal være mere dynamisk. E4 kan ligesågodt indeholder en header fra en anden kolonne. ikke kun E14-E18

Sub Header()
For Each c In Range("rng1")
rk = Cells(12, "E").End(xlUp).Row + 1: If rk < 4 Then rk = 4
If c.Value = "value" Then Cells(rk, "E") = Cells(13, c.Column)
Next
End Sub

ret rng1 til dit defineret områdenavn

perfekt. tak.
Smider du et svar

ok velbekom

Kan du sige mig hvordan jeg laver et limit på området hvor den skal dumpe?
den skal nemlig kun dumpe indtil række 10.
tak på forhånd

ok got it