Sub Schaltfläche2_BeiKlick()
a$ = Cells(1, 2)
x = 0
For i = 1 To Len(a$)
If Val(Right$(a$, i)) >= 1 Then x = i
Next i
MsgBox ("Die Hausnummer ist " & LTrim(Right$(a$, x)))
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen