Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeichenfolgen mit InputTexten ergänzen

Gruppe

Zeichenfolge

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