Search results

Ok I understand! Cheers Pat )

Hi David, oh I did manage with this function below Public Function TestFunction03(strText As String) As String If strText Like "*Mandatsnummer*" Then If strText Like "*Zahlungsreferenz*" Or strText Like "*Auftraggeberreferenz*" Then TestFunction03 = "" Else...

I think I am getting there just had a aha effect lol maybe not the elegant way but ...

Well I am not sure how to use or get the length of the mandatsnummer out of my function :( because there are many of this kind of functions in that module so I dont need to rewrite them over and over again

So this is what I got at present.. Public Function TestFunction(strText As String) As String If strText Like "*Mandatsnummer*" Then If strText Like "*Zahlungsreferenz*" Or strText Like "*Auftraggeberreferenz*" Then TestFunction = "NA" Else mStartPos =...

Yes I will but I am taking a short break from it getting headache :) Cheers

No it is only for text between End of Mandatsnummer: xxx-xxx*-xxx and REF: If there is a text I need it but if there is Auftraggeber or Zahlung then not this is already processed ;)

Ok I will try that ) Thanks

Sorry for posting so many threats today but need to finish a project of my self today and am a bit stuck at times. I got this RegEx code from someone here on the forum but not sure who it is right now! Sorry Public Function ReturnMandatsnummer(strText As String) As String Dim RegEx As...

Hi guys thanks again! Yes it works as arnelgp has provided and yes your rigth Minty I need to put comments into it just need to understand it first lol ) Very complex for me his function but it works like a charm :) @Josef P. thanks also I will try yours as well later on to see if I can make...

Hi guys, many many thanks to you all!! @Minty I will try your function with an Case Else statement too! Many thanks @arnelgp Yes that works now perfect!! Cheers!!

Hi arnelgp, this is nearly perfect :-) However is it somehow in your Code possible if there is non of the above that it returns the string it has been passed in strText? It is only one Data which is blank but it has none of the above requirement as mentioned! Sorry is it possible? To have it...

@Gasman yes I can do that but however there are only a few with no IBAN in the string Either in the beginning of the string then I need to check if there is "Zahlungsreferenz" in it or if there is "Auftraggeberreferenz in it if there is IBAN somewhere else in the String I need the...

Hi guys, many thanks for your all help! @arnel unfortunately it does not return all the requiered string with your function. :( @Minty I get an error as in some cases there is mEndPos or mStartPos 0 wich is when thre is non included as mentioned in my posts there are either IBAN at the...

ok this is that I got at present Public Function ReturnUMS01(strText As String) As String If strText Like "IBAN*" Then If strText Like "*Zahlungsreferenz*" Then mStartPos = Ibanlength(strText) + 2 mEndPos = InStr(strText, "Zahlungsreferenz:") - 1...

A String I like to find is something like this one "Allianz IBAN: AT70 1000 6666 7777 8888 Creditor-ID: AT25AEV00000004433 0 Auftraggeberreferenz: AEV21355-E00695611 SEPA-Lastschrift A559725496 Albert REF: 1200021122706174766477677966" But it does not jump into the Statement .. no Error just...

Hi guys, unfortunately not working as yet :( It is surely simple but I can not get my head around it ..pff

Hi guys, I know this has been discussed in the formum but for my issue I can not seam to make it work. What I like to do is following Public Function ReturnUMS01(strText As String) As String If strText Like "IBAN*" Then If strText Like "*Zahlungsreferenz*" Then...

Hi ok I understand! Thanks

Hi, just wondering why the VBE does not let me jump to a custom function when trying to to to the definition? Public Sub FillTmpAuszugColumns() Dim strSQL As String strSQL = "UPDATE tmpAuszug SET tmpAuszug.Mandatsnummer = ReturnMandatsnummer([tmpAuszug].[Umsatztext]), " & _...