Zellen überschreiben
25.08.2004 15:46:17
Björn
Ich hoffe ihr könnt mir noch einmal helfen.
Ich versuche die "nicht gelockte" Zelle mit einem Wert aus einer anderen Zelle zu überschreiben. Die Zelle aus der der neue Wert kommt ist immer 2 Zellen höher und eine weiter rechts.
Also im Falle von der Zelle D16 soll der neue Wert aus E14 kommen (die auch nicht locked ist)
Bis jetzt habe ich:
Sub Sinezestimate()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = ActiveSheet.Range("D:D,BA:BA,CX:CX,EU:EU,GR:GR")
For Each Zelle In Bereich
If Zelle.Locked = False Then ...
Next Zelle
End Sub
Ich danke euch im voraus für eure Hilfe.
Gruß Björn