Danke für Hilfe. Grüsse Claudia
Public Sub Gaensefuesschen()
Dim myRange As Range
Application.ScreenUpdating = False
For Each myRange In ActiveSheet.UsedRange
If Trim(myRange.Value) <> "" And Not myRange.HasFormula Then myRange.Value = Chr(34) & myRange.Value & Chr(34)
Next
Application.ScreenUpdating = True
End Sub