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
|