Code Snippet "VBA Excel"

Eine bestimmte Verarbeitung für jede Zelle im markierten Bereich machen

Sub AlleMarkiertenBearbeiten()
  If MsgBox("Dieser Makro hängt im markierten Bereich an den Wert " & Chr(13) & _
      "jeder Zelle einen von Ihnen angegebenen Text an", vbOKCancel) = 1 Then
    Zusatztext = InputBox("Geben Sie den anzuhängenden Text ein")
    For Each cell In Selection
      cell.Value = cell.Value & Zusatztext
    Next
  End If
End Sub