Find Cell and copy that found value down to next empty cell

[silentwolf]

Hi guys,

I know I am a pain today but I am working on something and need a little help.

Sub KontenklassenInNewColumnTest()
    Dim wksThis As Worksheet
    Dim C As Range
    
    Set wksThis = ActiveSheet
    
    With wksThis
        For Each C In Range("A1:A" & .Cells(.rows.Count, "A").End(xlUp).Row)
            If C.Value Like "*Kontenklasse*" Then    '<-- if cell contains "Konten"
            
                Kontenklassen = C.Value     'Property Kontenklassen

            
                C.Offset(1, 5).Value = Kontenklassen



                Else
            End If
        Next C
    End With
End Sub

Now I put the result into a Property ..

What I like to do or achive is following...

1. Kontenklasse 0 - Anlagevermögen
120 Software	1. Kontenklasse 0 - Anlagevermögen
2. Kontenklasse 2...
2500 Vorsteuer	2. Kontenklasse 2..

in each "Kontenklasse can be more then one -... I like to update the worksheet so if it finds any cell with "*Kontenklasse*" then insert 1 column down and 5 columns to the right till it reaches the first empy cell

At the moment it copy the same value as in column A for each row but I like to have the "header" copied to all subklasses of that Kontenklasse

Hope that is clear what I am after..?

Thanks for your help again!

 

[silentwolf]

Hi guys,

found what I am looking for right here... sorry just did not really thought of the right words at first to find it.

Here is the link To copy down till the next non blank cell using vba

Have adjusted it to suit and all good!


So no need to answer