Nun möchte ich die eingebenen Zahlen der Reihe nach (Unten) nummerieren.
Aber wie? (Ist die Frage an Euch) :)
Teil | Beschreibung |
begrüßungsformel | Erforderlich. Ein Zeichenfolgenausdruck, der den landesüblichen Geflogenheiten entspricht. Eine Auswahl möglicher Werte kann der folgenden Zeile entnommen werden. "Hallo", "Hi", "Guten Tag" Auch die Verwendung von umgangssprachlichen Angaben, wie z Bsp "Moin" oder "Tach" ist möglich. |
name | Optional. Ein Zeichenfolgenausdruck, der mit Hilfe des Argumentes begrüßungsformel die gewünschte Zielgruppe einschränkt. |
text | Erforderlich. Ein Zeichenfolgenausdruck, der Auskunft über das eigentliche Anliegen des Fragenden gibt. Der Inhalt ist frei wählbar, sollte jedoch freundlich und qualifiziert gestaltet werden. |
schlussformel | Erforderlich. Ein Zeichenfolgenausdruck, der den landesüblichen Geflogenheiten entspricht. Eine Auswahl möglicher Werte kann der folgenden Zeile entnommen werden. "Ciao", "Gruß", "viele Grüße", "Tschüss" Auch hier ist die Verwendung von umgangssprachlichen Angaben, wie z Bsp "und wech..." möglich. Zusätzlich möglich ist es, dass schlussformel den eigenen Namen und/oder den Wert aus name enthält. |
Sub Rangfolge()
Dim lstrEingabe As String
Dim liRangzeilen As Integer
Dim liZeile As Integer, liZeile1 As Integer
Dim Dummy As String
liZeile = 1
liZeile1 = 1
Do Until lstrEingabe = "ende"
lstrEingabe = InputBox("Bitte Zahl eingeben")
If lstrEingabe = "" Then Exit Do
If IsNumeric(lstrEingabe) = True Then
ActiveSheet.Range("A1").Value = lstrEingabe
For liRangzeilen = 1 To liZeile
ActiveSheet.Range("B" & liZeile1).Value = ActiveSheet.Range("B" & liZeile1).Value + 1
liZeile1 = liZeile1 + 1
Next
liZeile = liZeile + 1
Else
Dummy = MsgBox("Geben Sie einen numerischen Wert ein!", vbExclamation)
End If
liZeile1 = 1
Loop
End Sub
Nach jeder Eingabe wird in Spalte B von unten nach oben durchnummeriert, und, wie gewünscht, erscheint immer nur in A1 der eingegebene Wert.
Konnte ich Dir helfen?
Ciao
Thorsten