Gruppe
Allgemein
Bereich
Zeichenfolge
Thema
Zeichenfolgen mit InputTexten ergänzen
Problem
Den Zellinhalten in Spalte A soll ein über InputBox abzufragender Text hinzugefügt werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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