Bestimmte VBA Funktion in ein Makro umwandeln?
28.08.2014 16:16:02
An
ich habe diese Funktion als VBA:
[code]Option Explicit
Public Function Email_Filter(strB As String) As String
Dim varTmp() As Variant
Dim Regex As Object
Dim M
Dim Treffer
Dim lngIndex As Long
Set Regex = CreateObject("Vbscript.regexp")
With Regex
.Pattern = "\b(\w[-.\w]*@\w[-.\w]*\.[a-zA-Z]{2,6})\b"
.IgnoreCase = True
.Global = True
Set Treffer = .Execute(strB)
If .test(strB) Then
ReDim varTmp(Treffer.Count - 1)
For Each M In Treffer
varTmp(lngIndex) = M.Value
lngIndex = lngIndex + 1
Next
End If
End With
Email_Filter = Join(varTmp, vbCrLf)
End Function
Nun wollte ich wissen, ob es möglich ist, diesen VBA-Code nicht als Funktion sondern als Makro abzuspeichern, sodass ich ihn per "Click" öffnen kann?
Zb. stehen die E-Mail Adressen in Spalte A, und ich möchte, dass dieser VBA-Code die E-Mails in Spalte B auswirft.
Weiß jemand weiter?
Oder ist so etwas überhaupt generell möglich? Gibt es da ein Schema-F, womit man Funktionen in Makros ändern kann?
Danke und Gruß!
Peter