In einem markierten Bereich soll jedem Zelleintrag ein 'Hochkomma vorangestellt werden.

Leerzellen und Zellen mit Formeln werden ignoriert.

 

Public Sub Hochkomma_einfuegen()

'Code für ein allgemeines Modul

'Leerzellen sowie Formeln werden ignoriert

Dim rngCell As Range

For Each rngCell In Selection

  If Not IsEmpty(rngCell) And Not rngCell.HasFormula Then

    rngCell.Value = "'" & rngCell.Value

  End If

Next

End Sub