folgender code kopiert mir einen zellbereich. der eintrag erfolgt dabei nicht als wert sondern über einen zellverweis. wie kann ich es erreichen, dass der eintrag als wert erfolgt? "TM_....." sind benannte zellbereiche.
freue mich auf eine antwort klaus
Sub VerfahrenZugeordnetSchreiben()
With ActiveSheet
Set rngZB = Range("A9")
Select Case rngZB
Case Is = "Moor-, Bruch- und Sumpfwälder"
Range("TM_Moorwald").Copy Destination:=ActiveSheet.Range("A15")
Case Is = "Auenwälder"
Range("TM_Aue").Copy Destination:=ActiveSheet.Range("A15")
Case Is = "Hang-, Blockschutt- und Schluchtwälder"
Range("TM_Hang").Copy Destination:=ActiveSheet.Range("A15")
End Sub