Formeln ausfüllen
13.01.2016 08:59:29
Basti
ich füge über ein Makro (s.u.) eine neue Zeile in meine ToDo-Liste ein. Das funktioniert soweit
Nun soll in der Spalte A der neuen Zeile der Wert der A-Zelle von der darüber liegenden Zeile plus 5 stehen. Zusätzich sollen in der neuen Zeile in den Spalten H und I die Formeln von den darüber liegenden Zellen nach unten (mit Formatierung) ausgefüllt werden.
Würde mir jemand helfen?
Sub EineZeileEinfuegenUndKeineFarbe()
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
LG Sebastian
Anzeige