Option Explicit

Sub Ersetzen()
Dim lngLastRow As Long
Dim lngRow  As Long
Dim intLastColumn As Integer
Dim intColum As Integer
'letzte Zeile mit Daten im gesamten Blatt ermitteln
lngLastRow = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious).Row
'letzte Spalte mit Daten im gesamten Blatt ermitteln
intLastColumn = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'Schleife für Spalten
For intColum = 1 To intLastColumn
    'Schleife für Zeilen
    For lngRow = 1 To lngLastRow
        'Wenn Zelle einen Wert enthält, diesem Wert ein Hochkomma (') vorranstellen
        If ActiveSheet.Cells(lngRow, intColum) <> "" Then _
            ActiveSheet.Cells(lngRow, intColum) = "'" & ActiveSheet.Cells(lngRow, intColum)
    Next lngRow
Next intColum
End Sub