Sub statt Fuction
12.08.2017 22:13:36
Darren
kann mir jemand statt der Function das ganze "normal" auf der variable TXT zuweisen?
TXT ist Cells(i, 2) Text mit Zeichen und Nummern.
'Option Explicit
'
Public Function fncRep(ByVal rngTMP As Range) As String
' Dim RegEx As Object
' Set RegEx = CreateObject("Vbscript.regexp")
' With RegEx
' .Pattern = "[^a-zA-ZäöüßÄÖÜ]+"
' .Global = True
' fncRep = .Replace(rngTMP.Value, "")
' End With
'End Function
Darren