Löschenmakro erweitern
mike49
ich habe ein einfaches, funktionierendes Löschen-Makro, das ich gerne erweitern möchte und eure Hilfe benötige:
Option Explicit
Sub Löschen()
'Löschen Makro
Range("E7:H42").ClearContents
Range("B7").Select
End Sub
Ich möchte , dass der Wert aus Zelle J44 vor dem Löschen nach J6 übernommen wird. Die Zellen J44 und J6 sind formatiert mit "[hh]:mm". Das Problem dabei ist, dass in J44 diese Formel steht =WENN(SUMME(J7:M42)+J6=0;0;SUMME(J7:M42)),die auch bleiben soll.
Wie müsste das erweiterte Makro lauten?
Gruß
mike49