SpecialCells kopieren
09.05.2009 15:25:50
Klaus
ich möchte gerne von Sheet Archiv aus dem Namensbereich "Blau" diejenigen Werte
nach Sheet Eingabe kopieren, die über Formeln angezeigt werden.
Ich habe dazu ein altes Makro umgestrickt, bekomme aber einen Fehler in der value-Zeile.
Sub CopyToNewSheet()
Dim c As Range
Dim wksEIN As Worksheet
Dim wksARCH As Worksheet
Set wksEIN = Worksheets("Eingabe")
Set wksARCH = Worksheets("Archiv")
wksEIN.Unprotect
With wksARCH
For Each c In wksARCH.Range("Blau").SpecialCells(xlCellTypeFormulas, 23)
wksEIN.Range(c).Value = c.Value
Next
End With
wksEIN.Protect
End Sub
Kann mir da jemand helfen?
Danke
Klaus
https://www.herber.de/bbs/user/61705.xls