String mit Zeichen zwischen jedem Zeichen versehen

Christian · 2018-12-18T09:15:34+00:00

Hallo zusammen, ich brauche folgende Funktion: In ein Suchfenster wird eine beliebig formatierte Seriennummer eingeben. Ich habe eine Funktion, welche alle Sonderzeichen daraus entfernt. Nun brauche ich eine Funktion, die diesen neuen String am Anfang und am Ende mit einem * versieht und zwischen jedem Zeichen ein ? setzt. Also aus der Eingabe erhält man 1234-5678/9.12 daraus wird - 12345678912 und daraus soll werden - *1?2?3?4?5?6?7?8?9?1?2* vielen Dank für eure Hilfe!! Mit freundlichem Gruß Christian K

Hallo,
also bin seit gestern erst hier im Forum und weiß nicht wie ich diese beispielmappe erstelle und die Mappe an der ich arbeite enthält einige sensible Daten. Ich versuche es einfach mal zu beschreiben :
Also habe ein Tabbelensheet namens "Serialnr. List", in dem zu mehreren Projekten in einer Spalte jeweils die Seriennummern eines verbauten Teils eingetragen werden. Auf einem Tabellensheet "GUI" habe ich einige Buttons angebracht mit verschiedenen Funktionen. In diesem Blatt habe ich eine Zelle in der man eine Seriennummer eintragen kann und daneben ein Button, welcher auf Betätigung eine Suche nach der eingegebenen Nummer startet. Das ganze Spiel mit den ? oder * brauche ich, da der Endanwender die Seriennummer möglicherweise nicht genau nach Typenschild abgetragen hat und damit man trotzdem die richtige Nummer findet wollte ich dies mit regulären Ausdrücken realisieren.
Also wird nun im Eingabefeld "1234-5678/9.12" eingegeben und wenn man auf diesen Button klickt soll man zur Zelle mit dieser Nummer springen. Das selbe wie mit der Manuellen Suche. Wenn ich bei der manuellen Suche nach "*1*2*3*4*5*6*7*8*9*1*2*" suche klappt dies auch wie gewünscht.
Jedoch funktioniert das Makro mit dem eben beschriebenen Code für die Suche nicht und gibt die Fehlermeldung 91 ab.
Sorry für den langen Text aber ich hoffe es wird klarer :)
LG
Christian K

Hallo
so?

Sub Seriennummer()
    Dim Zelle As Range, firstAddress As String
    
    'Automatisierung per Button 
    ser_num = Sheets("GUI").Range("B20").Value
    Debug.Print "ser_num = " & ser_num
    ser_num_no = ohne_sonder(ser_num)
    Debug.Print "ser_num_no = " & ser_num_no
    ser_num_regex = sernum_regex(ser_num_no)
    Debug.Print "ser_num_regex = " & ser_num_regex

    
    With Sheets("Serialnr. List")
        Set Zelle = .Cells.Find(What:=ser_num_regex, After:=ActiveCell, LookIn:=xlValues, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
        If Not Zelle Is Nothing Then
            firstAddress = Zelle.Address
            Do
                Zelle.Select
                MsgBox "weiter"
                'mach was damit 
                    
                Set Zelle = .Cells.FindNext(Zelle)
            Loop While Not Zelle Is Nothing And Zelle.Address <> firstAddress
        
        Else
            MsgBox ser_num & " nicht vorhanden."
        End If
        Debug.Print "Ende"
        
    End With
    'Cells.Find(What:=ser_num_regex, After:=ActiveCell, LookIn:=xlValues, _
     '   LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
      '  MatchCase:=False, SearchFormat:=False).Activate 
    
End Sub

LG UweD

String mit Zeichen zwischen jedem Zeichen versehen

Forumthread: String mit Zeichen zwischen jedem Zeichen versehen

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

String mit Zeichen zwischen jedem Zeichen versehen

Forumthread: String mit Zeichen zwischen jedem Zeichen versehen

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread