UDF mit InStrRev
17.10.2008 12:00:28
Peter
Ich muss aus einem String, der einen Firmennamen inkl. Ort darstellt jeweils Ort weglassen.
Die Schreibweise ist "Firma AG, Ort". Da in der Firma selbst auch ein Komma vorkommen kann, möchte ich dies mit der untenstehenden Funktion mit Hilfe von InStrRev lösen (1. Komma von hinten suchen).
Der zu kürzende Name ist in einer Zelle eingetragen, die mit Z_Fir benannt ist.
Wenn ich die Funktion nun mit
=FirmaKurz(Z_Fir1)
aufrufe, erhalte ich die Meldung, dass die Typen unverträglich sind. Was ist nicht richtig?
Danke für eine Antwort.
Gruss, Peter
Public Function FirmaKurz(Firma as String) as String()
Dim lngStelle as Long
lngStelle = InStrRev(FirmaKurz,",")-1
FirmaKurz = Left(Firma, lngStelle)
End Function