Habe mit mittels google 2 vba funktionen gebastelt, die das ergebnis in einer messagebox ausgeben
Ich brauch jetzt aus diesen funktionen in einem makro eine string zum weiterarbeiten.
und zwar: liefern beide funktionen kein ergebnis oder beide liefern irgend ein ergebnis, dann muss ich das makro über fehlermeldungen abbrechen, liefert nur eine funktion ein ergebnis, dann brauche ich diesen wert als string zum weiterarbeiten.
bin nach stundenlangem googeln nicht draufgekommen wie ich das machen könnte....
Danke für jede Hilfe!!
Option Explicit
Public Function getprojnr()
Dim objRegEx As Object
Dim mymatch As Object
Dim Betreff As String
Dim Betreffkurz As String
Dim SpeicherProjNr As String
Betreff = Range("Betreff").Value
Betreffkurz = Left(Betreff, 16)
'// Objekt für reguläre Ausdrücke erzeugen
Set objRegEx = CreateObject("vbscript.regexp")
With objRegEx
.Global = True
.IgnoreCase = True
'// Suchmuster angeben
.Pattern = "\d{2}-\d{4}"
'// Zeichenkette durchsuchen
Set mymatch = objRegEx.Execute(Betreffkurz)
'// Wenn es einen Treffer gab, den ersten Treffer ausgeben
If mymatch.Count > 0 Then MsgBox mymatch.Item(0)
End With
End Function
Public Function getAprojnr()
Dim objRegEx As Object
Dim mymatch As Object
Dim Betreff As String
Dim Betreffkurz As String
Dim SpeicherProjNr As String
Betreff = Range("Betreff").Value
Betreffkurz = Left(Betreff, 16)
'// Objekt für reguläre Ausdrücke erzeugen
Set objRegEx = CreateObject("vbscript.regexp")
With objRegEx
.Global = True
.IgnoreCase = True
'// Suchmuster angeben
.Pattern = "\d{2}-A\d{3}"
'// Zeichenkette durchsuchen
Set mymatch = objRegEx.Execute(Betreffkurz)
'// Wenn es einen Treffer gab, den ersten Treffer ausgeben
If mymatch.Count > 0 Then MsgBox mymatch.Item(0)
End With
End Function