ich habe 2 gleich große Felder mit Namen "Blau" und "Gelb",
die in einer geschützen Tabelle nebeneinander liegen und mit Werten gefüllt sind.
Ich möchte nun alle Zellwerte von Range(Blau) an die gleiche Stelle von Range(Gelb) kopieren,
allerdings nur die Zellen, die Formelwerte beinhalten normale Texte sollen unberücksichtigt bleiben.
Ich habe schon mit SpecialCells und Locked.Cells experimentiert, aber entweder wird
alles kopiert oder nur die Zelle oben links. Bisher habe ich
Sub UnlockedCellsKopieren()
Worksheets("Archiv").Unprotect
Dim WorkRange As Range
Dim FoundCells As Range
Dim Cell As Range
Set WorkRange = Worksheets("Archiv").Range("Blau")
For Each Cell In WorkRange
If Cell.Locked = False Then
If FoundCells Is Nothing Then
Set FoundCells = Cell
Else
Set FoundCells = Union(FoundCells, Cell)
End If
End If
Next Cell
FoundCells.Select
For Each Cell In Selection.Areas
FoundCells.Offset(0, -4).Value = FoundCells.Value
Next Cell
Worksheets("Archiv").Protect
End Sub
Funktioniert aber nicht. Hat jemand von Euch eine zündende Idee?
Zum besseren Verständnis Beispielarbeitsmappe anbei
https://www.herber.de/bbs/user/50023.xls
Für Antworten Dank im voraus
Klaus