Hallo,

ich habe ein eie Combobox, welche mich den Monat auswählen läßt. Jenachdem welcher Monats ausgewählt ist, soll er werte von einer Range in eine andere Range kopieren.
Das Ganze mache ich zwei mal. beim ersten mal funktioniert es super, beim zweiten Mal bekomme ich eine Fehlermeldung.
Der Unterschied der Ausganhszeilen besteht darin, dass in den ersten Zellen (B5:E8) konkrete Werte drin stehen. Im zweiten Bereich (BC5:BF8) stehen Formeln drin. Z. B. "=B5"
[/CODE]

Wenn ich also die Sub ausführe, dann gibt er mir in der Zielzelle ein "#REF!" aus. Also die gleiche Meldung, wie ich sie bekomme, wenn ich Eine Zelle mit Formel Kopiere und und woanders "normal" einfüge.

Ich habe gemerkt, dass es funktionoert, wenn ich mit PasteSpecial Values arbeite. Allerdings bekomme ich immer eine Fehlermeldung in meinem unten stehenden Code.


Private Sub ComboBox1_Change()
Select Case True
    Case ComboBox1.Text = "January"
        Worksheets("DA CCH").Range("B5:E8").Copy Worksheets("DA CCH").Range("B25")
        Worksheets("DA CCH").Range("BC5:BF8").Copy Worksheets("DA CCH").Range("H25")
  
           
End Select

End Sub
Frage: Wie bekomme ich das PasteSpecial Values in meinen Code?

ps: Da ich rund 300 "Ziel" Quellzeilen zum kopieren habe, will ich nicht jede ancklicken und aus dem "=B5" ein "=$B$5" machen.

Ich wäre sehr dankbar für eure Hilfe!

VG Alex