Waarde kopieren als kleur is rood

[JakobH]

Ik heb een excel (2010) bestand met 600.000 regels die als volgt is opgebouwd:

Kolom A:
naam\tekst 1
waarde
waarde
waarde
naam\tekst 2
waarde
naam\tekst 3
waarde
waarde

naam\ is een vaste waarde en is overal gelijk.

In kolom b moet de waarde van de bovenliggende naam\tekst x worden geplaats.
Zie bijlage voor een voorbeeld.

Hoe kan ik dit regelen via een formule?

 

[SjonR]

Mijn bijdrage met behulp van VBA:

Sub SjonR()
    Sr = Sheets("Blad1").Cells(1).CurrentRegion.Resize(, 2)
        For i = 1 To UBound(Sr)
            If Left(Sr(i, 1), 4) = "Naam" Or Left(Sr(i, 1), 4) = "naam" Then
                tekst = Sr(i, 1)
            Else
                Sr(i, 2) = tekst
            End If
        Next
    Sheets("Blad1").Cells(1).CurrentRegion.Resize(, 2) = Sr       
End Sub

PS. Waar staat iets roods?

 

[AlexCEL]

Zoiets met formule voor B2 e.v.?

=ALS(LINKS(A1;5)="Naam\";A1;ALS(LINKS(A2;5)="Naam\";"";B1))

PS Ik snap je onderwerptitel niet zo...

 

[JakobH]

Bedankt, VBA code heeft mijn probleem opgelost!

Ik had overigens een verkeerd titel gegeven maar kon deze niet meer aanpassen, sorry

 

[HSV]

Waarom niet...

For i = 1 To UBound(Sr)
            If lcase(Left(Sr(i, 1), 4)) = "naam" Then
                tekst = Sr(i, 1)

Zonder lus kan ook nog.

Sub hsv()
   Cells(1).CurrentRegion.Name = "bereik"
   sv = [bereik]
   [bereik] = [if(left(bereik,4)<>"naam","",bereik)]
   [bereik] = [if(bereik="","=r[-1]c",bereik)]
   [bereik].Offset(, 1) = [bereik].Formula
   [bereik].Offset(, 1).SpecialCells(2).ClearContents
   [bereik].Offset(, 1) = [bereik].Offset(, 1).Value
   [bereik] = sv
End Sub