Excel waarde invoeren op ander tabblad op basis van celwaarde

[SanderH20]

Ik zou graag een macro voor het volgende gebruiken
Ik heb een tabel met die de bouwkundige constructie van een gebouw beschrijft, hierin zijn de volgende eigenschappen benoemd: type constructie, oppervlak, g-waarde en helling van het vlak.
Zie het voorbeeldbestand voor de gegevens, in totaal zijn er 10 bouwdelen.

Nu zou ik graag willen dat de macro het volgende doet per bouwdeel, alleen als er in de kolom: type, het woord: raam staat:
Ten eerste op blad 2 vanaf kolom A naar rechts, het aantal keer dat het woord raam voorkomt, een specifieke tekst invoegen.
Deze specifieke tekst moet beginnen bij raam 1 en bouwdeel 1, oplopend per raam per bouwdeel en bouwdeel (zie het voorbeeldbestand voor wat ik bedoel).
Indien er geen ramen zijn genoemd in de tabel van bouwdeel 1, er begonnen te worden bij bouwdeel 2. Indien er geen ramen zijn genoemd in de tabel van bouwdeel 2 en in de tabellen van 1,3,4,5,6,7,8,9,10 wel, dient er direct naast bouwdeel 1 begonnen te worden met bouwdeel 3.
Alvast bedankt voor de moeite!

 

[sylvester-ponte]

heb je hier iets aan?:

Sub Raming()
tabel = Intersect(Sheets(1).UsedRange, Sheets(1).[A:E])
For n = 1 To UBound(tabel)
    a1 = tabel(n, 1)
    If InStr(1, a1, "bouwdeel") > 0 Then
        tt = Split(a1, " ")(2)
        t = 0
    Else
        If tabel(n, 2) = "raam" Then
            t = t + 1
            tekst = tekst & "raam" & t & "bouwdeel" & tt & "\"
        End If
    End If
Next
s = Split(tekst, "\")
Sheets(2).[A3].Resize(, UBound(s)) = s
End Sub

 

[SanderH20]

@sylvester-ponte dit werk perfect! Veel dank hiervoor.