Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.05.2022 12:27:48 |
Kerstin |
|
|
|
16.05.2022 13:45:24 |
Gast79935 |
|
|
|
16.05.2022 15:12:35 |
Gast15439 |
|
|
|
16.05.2022 15:48:07 |
Gast73236 |
|
|
|
16.05.2022 21:43:34 |
Gast69377 |
|
|
Zahlen am Ende eines beliebigen Strings abschneiden |
17.05.2022 08:22:44 |
Gast19628 |
|
|
Von:
Gast19628 |
Datum:
17.05.2022 08:22:44 |
Views:
433 |
Rating:
|
Antwort:
|
Thema:
Zahlen am Ende eines beliebigen Strings abschneiden |
Option Explicit
Sub Test01()
Dim dict As Object
Dim bkm As Word.Bookmark
Dim sBKM As String
Dim arr As Variant
Set dict = CreateObject("Scripting.Dictionary")
For Each bkm In ActiveDocument.Bookmarks
sBKM = AngehängteZahlenAbschneiden(bkm.Name)
If Not dict.Exists(sBKM) Then
dict.Add sBKM, sBKM
End If
Next
'*** in dem dict-Object sind nun Deine Textmarken - eindeutig - hinterlegt
arr = dict.keys
arr = Join(arr, Chr(10))
MsgBox arr
End Sub
Function AngehängteZahlenAbschneiden(ByVal s As String) As String
While IsNumeric(Right(s, 1))
s = Left(s, Len(s) - 1)
Wend
AngehängteZahlenAbschneiden = s
End Function
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.05.2022 12:27:48 |
Kerstin |
|
|
|
16.05.2022 13:45:24 |
Gast79935 |
|
|
|
16.05.2022 15:12:35 |
Gast15439 |
|
|
|
16.05.2022 15:48:07 |
Gast73236 |
|
|
|
16.05.2022 21:43:34 |
Gast69377 |
|
|
Zahlen am Ende eines beliebigen Strings abschneiden |
17.05.2022 08:22:44 |
Gast19628 |
|
|