Hallo Tim,
das folgende Makro durchläuft die Spalte der aktiven Zelle und wandelt bei nicht geschützten Zellen (Blattschutz ist aktiv) den Inhalt der Zellen in Werte um. Das Makro gehört in ein [url=
http://www.excelbeispiele.de/Modul.htm]Standard Modul[/url] der Arbeitsmappe:
[code]Sub werte()
Dim lngSpalte As Long
Dim lngLetzte As Long
Dim lngZeile As Long
'Spalte festlegen = Spalte der aktiven Zelle
lngSpalte = ActiveCell.Column
'letzte Zeile in Spalte ermitteln
lngLetzte = ActiveSheet.Cells(Rows.Count, lngSpalte).End(xlUp).Row
'jetzt Spalte zeilenweise ab Zeile 2 durchlaufen
For lngZeile = 2 To lngLetzte
'prüfen, ob Zelle gesperrt ist
If Cells(lngZeile, lngSpalte).Locked = False Then
'falls nicht, dann Wert in Zelle einfügen
Cells(lngZeile, lngSpalte) = Cells(lngZeile, lngSpalte).Value
End If
Next lngZeile
End Sub[/code]
Gruß
M.O.