Hallo,

ich habe folgenden Code:

Sub Joker_übernehmen()
Dim lngZiel As Long, lngLetzte As Long
Dim strFirst As String
Dim c As Range
Dim letzteSpalte As Long
Dim VorletzteSpalte As Long
Dim i As Integer

Application.ScreenUpdating = False 'Aktualisieren des Bildschirms deaktivieren'
    Sheets("Sammler Joker").Activate
    With Sheets("Erfassung")
        Sheets("Erfassung").Unprotect 'Blattschutz aufheben'
        On Error Resume Next
        lngLetzte = .Cells(52, 3).End(xlDown).Row
        .Cells(52, 3).Resize(lngLetzte, 1).ClearContents
        On Error GoTo 0
        lngZiel = 52
        Set c = Columns(5).Find("ja", LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            strFirst = c.Address
            Do
            'Zellen kopieren und einfügen'
                letzteSpalte = Sheets("Erfassung").Cells.SpecialCells(xlCellTypeLastCell).Column
                VorletzteSpalte = letzteSpalte - 1
                .Cells(lngZiel, 3).Value = Cells(c.Row, 4).Value
                .Cells(lngZiel, letzteSpalte).Value = Cells(c.Row, 8).Value
                .Cells(lngZiel, VorletzteSpalte).Value = Cells(c.Row, 6).Value
                lngZiel = lngZiel + 1
                Set c = Columns(5).FindNext(c)
   
            Loop While Not c Is Nothing And c.Address <> strFirst
        End If
    End With
    Sheets("Erfassung").Activate
For i = 300 To 52 Step -1
    If Range("C" & i) = "" Then
        Rows(i).Delete Shift:=xlUp
    End If
Next i

    ActiveSheet.Protect 'blattschutz einstellen'
Application.ScreenUpdating = True 'Aktualisieren des Bildschirms aktivieren'
MsgBox ("Erledigt.")
End Sub

Dabei werden Daten aus einer Tabelle in ein neues Tabellenblatt kopiert. Ich möchte jetzt für jede Zeile, die dadurch erzeugt wird, auch die Formatierung festlegen. Jede Zeile soll von Spalte A bis H einen Rahmen und in der Spalte A soll die Zelle als Hintergrund einen Farbcode (füge ich selber ein) bekommen. Ich scheine dabei nur gerade extrem auf dem Schlauch zu stehen und bekomme das nicht hin... Kann jemand helfen? Vielen Dank!