Neue Zeile mit gleicher Formatierung
15.11.2018 14:14:05
Fabian
Ich komme wieder einmal nicht mehr weiter....
In meinem Tabellenblatt soll nach dem Begriff "bottom" gesucht werden und dann soll darüber eine neue Zeile eingefügt werden. Dies aber mit genau der gleichen Formatierung wie eine Zeile über dem gefundenen Suchbegriff.
Mit viel Google und Macrorecorder bin ich nun so weiter mit dem Code:
Sub Makro3()
With ActiveSheet
Cells.Find(What:="bottom", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.EntireRow.Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
End With
End Sub
Es wird zwar eine neue Zelle eingefügt wie ich es wünsche - die Zellen welche oben aber verbunden sind in der zu kopierenden Zeile, werden in der neu eingefügten Zeile nicht verbunden.
Wo fehlt mir da noch was, damit das funktioniert?
Danke für eure Hilfe