Gruppe
Allgemein
Problem
Den Zellinhalten in Spalte A soll ein über InputBox abzufragender Text hinzugefügt werden.
StandardModule: Modul1
Sub Hinzufuegen()
Dim iRow As Integer
Dim sNew As String
sNew = InputBox("Neuen Text eingeben:")
If sNew = "" Then Exit Sub
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
Cells(iRow, 1).Value = Cells(iRow, 1).Value & " " & sNew
iRow = iRow + 1
Loop
End Sub