Gleichzeichen(=) aus String entfernen
19.01.2007 15:18:36
Peter
Mit nachstendem Makro erhalte ich die in der Statusbar folgende Mitteilung:
"Es hat insgesamt =23 Zahlen"
Dies trotz Versuch, von rechts aus gesehen nur 2 Stellen zu übernehmen.
Was muss ich ändern, damit die Mitteilung lautet:
"Es hat insgesamt 23 Zahlen"
Danke für ein Feedback.
Peter
Sub mitteilung()
Dim wert As String
Dim zahl As Long
wert = ActiveWorkbook.Names("AAA")
zahl = Len(ActiveWorkbook.Names("AAA")) - 1
zahl = Right(wert, zahl)
Application.StatusBar = "Es hat insgesamt " & wert & " Zahlen"