VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Zahlen am Ende eines beliebigen Strings abschneiden	16.05.2022 12:27:48	Kerstin
Zahlen am Ende eines beliebigen Strings abschneiden	16.05.2022 13:45:24	Gast79935
Zahlen am Ende eines beliebigen Strings abschneiden	16.05.2022 15:12:35	Gast15439
Zahlen am Ende eines beliebigen Strings abschneiden	16.05.2022 15:48:07	Gast73236
Zahlen am Ende eines beliebigen Strings abschneiden	16.05.2022 21:43:34	Gast69377
Zahlen am Ende eines beliebigen Strings abschneiden	17.05.2022 08:22:44	Gast19628

Ansicht des Beitrags:

Von:
Gast19628

Datum:
17.05.2022 08:22:44

Views:
432

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

Ihre Antwort

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:		Name:		Email:

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
Zahlen am Ende eines beliebigen Strings abschneiden	16.05.2022 12:27:48	Kerstin
Zahlen am Ende eines beliebigen Strings abschneiden	16.05.2022 13:45:24	Gast79935
Zahlen am Ende eines beliebigen Strings abschneiden	16.05.2022 15:12:35	Gast15439
Zahlen am Ende eines beliebigen Strings abschneiden	16.05.2022 15:48:07	Gast73236
Zahlen am Ende eines beliebigen Strings abschneiden	16.05.2022 21:43:34	Gast69377
Zahlen am Ende eines beliebigen Strings abschneiden	17.05.2022 08:22:44	Gast19628