silentwolf
Well-known Member
- Joined
- May 14, 2008
- Messages
- 1,216
- Office Version
- 2016
Hi guys,
I know I am a pain today but I am working on something and need a little help.
Now I put the result into a Property ..
What I like to do or achive is following...
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!
I know I am a pain today but I am working on something and need a little help.
VBA Code:
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
What I like to do or achive is following...
1. Kontenklasse 0 - Anlagevermögen | |||||
120 Software |
| ||||
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!