bitte nochmals um Hilfestellung.
Ich habe den folgenden Code:
Set Zelle = Rows(3).Find(what:="Summe", lookat:=xlWhole)
If Not Zelle Is Nothing Then
Zelle.Copy Destination:=Zelle.Offset(-1, 0)
Zelle.Value = Replace(Zelle.Value, "Summe", "Summe (8888)")
End If
Wie muss ich diesen umstellen wenn ich statt den Zellwert zu kopieren und einzufügen
einen String "Kosten" in Zeile darüber einfügen möchte.
Danke vorab.
Gruß
Andreas