Formeln mit best. Farbe als Wert
21.11.2007 09:25:00
Stefan
ich habe einen kleinen VBA-Code den ich gerne erweitern möchte.
Ich möchte gerne nur die Formeln durch Werte ersetzen die eine bestimmte Farbe haben,
Kann mir da jemand bitte auf die Sprünge helfen ?
Vielen Dank im Voraus.
Gruß,
Stefan
Sub Ersetzen()
Dim I As Integer
For I = 1 To ThisWorkbook.Sheets.Count
Select Case UCase(Worksheets(I).Name)
Case "JANUAR", "FEBRUAR", "MÄRZ", "APRIL", "MAI", "JUNI", "JULI", _
"AUGUST", "SEPTEMBER", "OKTOBER", "NOVEMBER", "DEZEMBER"
' Formeln ersetzen durch Werte mit Formate
Worksheets(I).Rows(40).Copy
With Worksheets(I).Rows(45)
' Werte
.PasteSpecial Paste:=xlValues
' Formate
.PasteSpecial Paste:=xlFormats
End With
End Select
Next I
Application.CutCopyMode = False
End Sub