Makro - Formelanpassung - @operator

Sub Plan()

    Dim cell As Range

    Dim spalte As String

    Dim bereich As Range

    Dim letzteZeile As Long

    

    

    Application.ScreenUpdating = False

    SchutzAufhebenAktiv

    

   

    letzteZeile = Worksheets("Ablaufplan Jahr").Cells(Rows.Count, "C").End(xlUp).Row

    

   

    Dim bereiche As Variant

    bereiche = Array("D8:J22", "D25:J64", "D67:J76")

    

 

    For Each b In bereiche

        Set bereich = Range(b)

        

        

        For Each cell In bereich

            If Range("B" & cell.Row).Value > "" And IsEmpty(cell.Value) Then

                

                spalte = Split(cell.Address, "$")(1)

                

               

                cell.Formula = "=INDEX(Tabelle2[Funktion], MATCH(1,('Ablaufplan Jahr'!$C$2:$C$" & letzteZeile & " = " & spalte & "$4) * ('Ablaufplan Jahr'!$D2:$D" & letzteZeile & " = $A" & cell.Row & "), 0))"

                

             

                If Not IsError(cell.Value) Then

                    If IsNumeric(cell.Value) Or cell.Value = "" Then

                        cell.ClearContents

                    End If

                End If

            End If

        Next cell

    Next b

    

   

    Application.ScreenUpdating = True

    SchutzAktivierenAktiv

End Sub