Guten Abend an das  Forum.

Ich habe folgenden VBA Code gefunden und angepasst, dieser funktioniert soweit auch.

Allerdings würde ich gerne alle verwendeten Zeilen mit einen Rahmen versehen, einige Zellen haben bereits einen Rahmen. Der Rahmen sollte über all die gleiche Farbe (Schwarz) und gleiche stärke haben.

Außerdem würde ich gerne die Obere Spalte mit einer Hintergrund Farbe versehen.

Kann mir jemand helfen?

Ich habe leider keine Ahnung von der VBA Programmierung und werde nicht fündig.

Sub Angebot_Kopieren()
    Application.EnableEvents = False 'Bildschirm abschalten
    
    Application.Calculation = xlCalculationManual

    Dim wksZiel As Worksheet
    Dim wksQuelle As Worksheet
    Dim Spalte As Integer
    Dim ZielSpalte As Integer

Set wksQuelle = ThisWorkbook.Worksheets("Ausarbeitung") 'Quelltabelle
     
Set wksZiel = Workbooks.Add.Worksheets(1)  'appliion.sheetsinnewworkbook=("Angebot")
wksZiel.Name = "Angebot"

    ZielSpalte = 1
    For Spalte = 1 To Tabelle1.UsedRange.Columns.Count
        If wksQuelle.Cells(1, Spalte).Value = "Ja" Then 'Prüft in Welcher Spalte (erste Zeile) ein Ja Steht
        wksQuelle.Columns(Spalte).Copy wksZiel.Columns(ZielSpalte)  'Kopiert die Spalten mit JA und fügt sie ein
        ZielSpalte = ZielSpalte + 1
        End If
    Next Spalte
    
Dim Zelle As Range ' Prüft alle Zellen auf Formeln
For Each Zelle In wksZiel.UsedRange
    If Zelle.HasFormula = True Then 'Wenn Formel vorhanden sind
    Zelle.Value = Zelle.Value   'Ersetzt Formeln Gegen denn Wert
    Zelle.Font.ColorIndex = 0   'Ändern der Schriftfarbe in schwarz Standart
    End If
Next Zelle


ActiveSheet.Rows("1:4").Delete 'Löscht Zeile 1 und 4

Cells.ClearOutline ' Löscht die Grupirung

Range(Cells(1, 1).End(xlToRight), Cells(1, Columns.Count).End(xlToLeft)).Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Standard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
        

    End With
    
    
Range("A2").Select


Application.Calculation = xlCalculationAutomatic

Application.EnableEvents = True ' Bildschierm einschalten
    
    
End Sub

Ich bedanke mich im Voraus für eure Hilfe.

Mit Grüßen Klaus