Ich moechte lediglich in Zellen, die mit einem Kommentar-Flag (Inhalt spielt keine Rolle, ist aber einheitlich) gekennzeichnet sind, eine Rechenoperation durchfuehren lassen.
Wie koennte dies aussehen?
Mit Gruss
Ralf
Dim RnG As Range
For Each RnG In Range("B3:B6").SpecialCells(xlCellTypeComments)
RnG = CLng(RnG) * 10 'oder hier Deine Berechnung
Next
End Sub
https://www.herber.de/bbs/user/73853.xls