Sub Beispiel()
Dim strEingabe As String
Dim rngZelle As Excel.Range
Dim bolExit As Boolean
Do
Do
strEingabe = InputBox("Ihre Eingabe:")
Loop While Trim$(strEingabe) = ""
With Tabelle1.Columns("A")
Set rngZelle = .Rows(.Rows.Count).End(xlUp)
End With
If rngZelle.Text <> "" Then
Set rngZelle = rngZelle.Offset(1)
End If
rngZelle.Value = strEingabe
bolExit = MsgBox("Noch eine Eingabe?", vbYesNo Or vbQuestion) = vbNo
Loop Until bolExit
End Sub