Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zeichenfolge