Zeichen ausblenden

Forumthread: Zeichen ausblenden
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zeichen ausblenden

Zeichen ausblenden

14.05.2026 15:31:09

PatrickNRW

Hallo zusammen,

ich habe ein nächstes Problem, bei dem ich nicht weiß, wo ich ansetzen soll.

Es wird per Inputbox eine Eingabe erwartet und eine Variable gefüllt, also z.B. eingabe=Inputbox..... Diese sieht wie folgt aus:

Entweder:
3434BG und dann eine Zahl mit 7 Stellen, also z.B. 3434BG1234567
Es kann aber vor dem BG auch anders aussehen, also z.B. 1234BG1234567.

Oder direkt nur die letzten 7 Zahlen, also 1234567.

Ich möchte nun, das die Variable nur die letzten 7 Zahlen enthält, also bei Eingabe xxxxBG1234567 nur die 1234567 an die Variable übergeben wird oder.

Bin gespannt, ob Ihr eine Lösung kennt. ;-)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeichen ausblenden

14.05.2026 16:09:56

Piet
AW: Zeichen ausblenden

14.05.2026 17:00:45

Uduuh
AW: Zeichen ausblenden

14.05.2026 16:52:51

PatrickNRW

AW: Zeichen ausblenden

14.05.2026 16:09:56

Piet

Hallo

am einfachsten so, mit Abbruch wenn -keine Eingabe.- erfolgte.
Bei Right(Eingabe,7) weren Immer die rechten 7 Zeichen ausgewertet.
Eingabe = InputBox
If Eingabe = Empty Then Exit Sub
Eingabe = Right(Eingabe, 7)

mfg Piet

AW: Zeichen ausblenden

14.05.2026 17:00:45

Uduuh

Hallo,
warum verlangst du nicht einfach nur die letzten 7 Stellen?
Schema:

Sub Test()

  Dim x, b As Boolean

  Do Until b

    x = Application.InputBox("Letzte 7 Stellen:", "Eingabe", , , , , , 1)

    b = CBool(x)

    If b Then

      If Len(x) > 7 Then

        MsgBox "Bitte 7 Ziffern eingeben"

        b = False

      End If

    Else

      MsgBox "Abbruch"

      Exit Sub

    End If

  Loop

  MsgBox "Test"

End Sub