Es wär toll wenn mir jemand helfen könnte.
Gruß
Heiko
Sub zufuegen()
Dim rngC As Range
For Each rngC In Selection.Cells
rngC.Value = rngC.Value & "'0"
Next
End Sub
Sub test()
Dim zelle As Range
For Each zelle In Selection
zelle.Value = zelle.Value & "'0"
Next
End Sub