Hallo,
wundervoll. Die Funktion läuft natürlich super.
Aber ich habe es leider noch nicht geschafft, die Funktion in mein Makro korrekt einzuarbeiten. Ich habe hierfür eine eigene Funktion eröffnet, die ich im meinem Makro mit einen Call aufrufe:
Mein Makro:
Call ZahlenAbschneiden(bmBookmark)
Neue Funktion:
Function ZahlenAbschneiden(ByVal s As String) As String
Dim bookmarkchecked As String
While IsNumeric(Right(s, 1))
s = Left(s, Len(s) - 1)
Wend
bookmarkchecked = s
End Function
D.h. bmBookmark (bzw. BMBookmark.name) liefert den aktuellen BMK Namen, der dann in der Funktion eigentlich überschrieben werden soll. In meinem Makro verwende ich dann weiter die Variabel Bookmarkchecked. Leider wird da aber nicht der neue Wert sondern der alte Wert mit den Zahlen dann verwendet.
Ich kenne mich wirklich null aus, daher bin ich über jede Hilfe sehr glücklich. Seit Jahren arbeite ich immer wieder an diesem Makro und bin auch super voran gekommen, aber ich bin echt nur Dummy und hole mir alles aus dem Internet :-).
Herzlihen Dank für weitere Hilfe!
|