VBA, Innenfarbe aus Arbeitsblatt 1 übernehmen und in andere Arbeitsblätter kopieren

Question

Ich arbeite noch nicht lange mit VBA und suche nach einer Funktion, die Folgendes ermöglicht.

Nehmen Sie die Innenfarben aus Arbeitsblatt A0, Zelle A1:AK126. Kopieren Sie nur die Innenfarbe in Arbeitsblatt A1, Zelle A1:AK126; Arbeitsblatt A2, Zelle A1:AK126; Arbeitsblatt A3, Zelle A1:AK126; Arbeitsblatt A4, Zelle A1:AK126.

Ich habe versucht, Code aus einer anderen Antwort (unten kopiert) zu ändern, aber meine VBA-Kenntnisse reichen nicht aus, um ihn auseinanderzunehmen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim wkb As Workbook
    Set wkb = ThisWorkbook
    total_sheets = wkb.Worksheets.Count
    aff_row = Target.Row
    aff_column = Target.Column
    sheet_used = (aff_column / 2) + 2
    If aff_column > 1 Then
        If Int(sheet_used) = sheet_used Then
            If sheet_used <= total_sheets Then
                wkb.Sheets(sheet_used).Cells(aff_row + 2, 2).Interior.Color = Target.Interior.Color
            End If
        End If
    End If
End Sub

Answer 1

Wie wäre es mit:

Sub KopyKolor()
    Dim i As Long, j As Long, k As Long

    For i = 1 To 4
        shn = "A" & i
        For j = 1 To 126
            For k = 1 To 37
                Sheets(shn).Cells(j, k).Interior.Color = Sheets("A0").Cells(j, k).Interior.Color
            Next k
        Next j
    Next i
End Sub

Dadurch wird eine Farbkopie Zelle für Zelle erstellt.