Excel - Weisen Sie allen gelb hervorgehobenen Zellen ein Makro zu

Problem

Hallo, ich bin gerade in einer Essiggurke ... Ich hoffe, alle Meister konnten diesem VBA-Neuling helfen ...

Im Moment habe ich ein Makro geschrieben, um alle Formeln zu kopieren, ohne den Wert für die aktiven Zellen beizubehalten, und ich möchte dieses Makro auf alle gelb hervorgehobenen gelben Zellen in der Tabelle anwenden.

Mein aktueller Code ist nur

(Ich kann mir immer noch nicht vorstellen, was ich tun soll, um nur gelb hervorgehobene Zellen mit diesem Makro zu versehen.)

 Sub Copy_Formulas_Only () Dim row As Single row = ActiveCell.row Selection.EntireRow.Insert Rows (Zeile - 1) .Copy Rows (Zeile) .Select On Error Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants). ClearContents On Error GoTo 0 Application.CutCopyMode = False End Sub

Lösung

Es wird ausgelöst, wenn Sie den Bereich der Zelle auswählen. Aber ich denke, Sie wissen besser, was Sie tun müssen.

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Application.EnableEvents = False 'If Target.Address = "ALLE GELBEN ZELLEN IM ARBEITSBLATT" Dann für jede Zelle im Ziel If (CELL.Interior.Color = 65535) Dann Dim row As Single row = ActiveCell.row Selection.EntireRow.Insert Rows (Zeile - 1) .Copy Rows (Zeile) .Select On Error Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants) .ClearContents Application.EnableEvents = True On Error GoTo 0 End If Next Application.CutCopyMode = False End Sub