Ich fang jetzt nochmal von vorne an :)
Suche in Spalte F "Prüfling"
Wenn gefunden schreibe eine Zelle darüber eine Verkettung aus G13+J13
Wenn erledigt mach weiter bis du nichts mehr findest
Is des besser erklärt?
Sorry! :(
Liebe Grüße
Sub test()
Dim Zelle As Range
With Columns(6)
.Replace "Prüfling", True, xlWhole
For Each Zelle In .SpecialCells(xlCellTypeConstants, 4)
Zelle.Offset(-1, 0).Value = Zelle.Offset(1, 1).Value & " " & Zelle.Offset(1, 4).Value
Next
.Replace True, "Prüfling"
End With
End Sub
Gruß DanielDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen