UDF: RECHTS() nach Trennzeichen

RECHTS() nach Trennzeichen (UDF)

Die Funk­tion RECHTS() an sich gibt es ja in Excel. Allerd­ings ver­langt die Funk­tion eine klare Angabe der Zeichen­zahl, welche von rechts aus ver­wen­det wer­den sollen. Wenn das aber wegen ein­er vari­ablen Länge nicht so ein­fach möglich ist, weil ein definiertes Trennze­ichen mehrfach im auszuw­er­tenden String vorkommt, dann kann eine selb­st definierte Funk­tion hil­fre­ich sein. Den­noch will ich Ihnen eine Möglichkeit ohne UDF, also mit Excel Bor­d­mit­teln nicht unter­schla­gen: Hier gibt es die Lösung.

Der Code

Mit dieser selb­st definierten Funk­tion, welche Sie natür­lich auch als Add-In ver­wen­den kön­nen, erre­ichen Sie das Ziel:

Option Explicit

Function RechtsAbTrenner(txt As Variant, Trennzeichen As String) As String 
   If InStr(txt, Trennzeichen) > 0 Then
      RechtsAbTrenner = Trim(Mid(txt, InStrRev(txt, _
       Trennzeichen) + 1, Len(txt)))
   Else
      RechtsAbTrenner = txt
   End If 
End Function

Der Code ist zwar spar­tanisch, hat aber den Vorteil, dass Sie noch eine Fehler­be­hand­lung oder Ein­schränkun­gen (Bedin­gun­gen) für den auszuw­er­tenden String ein­bauen kön­nen. Mit anderen Worten: Er ist fast beliebig aus­baufähig.

Hin­weis: Wie Sie solch eine Funk­tion ein­binden kön­nen, erfahren Sie hier im Blog. Selb­stver­ständlich kön­nen Sie diese UDF auch als Add-In spe­ich­ern / erstellen und nach dem Ein­binden in allen Excel-Map­pen nutzen. Mehr dazu an dieser Stelle für Ver­sio­nen bis Excel 2003 hier, ab Excel 2007 schauen Sie hier nach.

▲ nach oben …

Download-Übersicht

In diesem Beitrag wer­den Ihnen eine oder mehrere Files zum Down­load ange­boten. In der fol­gen­den Tabelle ist jede Datei mit ver­schiede­nen Infor­ma­tio­nen aufge­führt. Ein Klick auf den Link in der ersten (linken) Spalte startet den Down­load von unserem Serv­er.

Hin­weise:

  • Sehr viele der hier ange­bote­nen Dateien sind als *.zip gepackt. Das geschieht nicht aus Grün­den der Dateigröße son­dern ein­er­seits wegen des Kom­forts beim herunter laden vom Serv­er und ander­er­seits zur Daten­sicher­heit.
  • Teil­weise sind in gepack­ten Code-Files mehrere Einzel­dateien enthal­ten. Es gel­ten dann die gle­ichen Regeln wie bei einzeln ange­bote­nen Down­loads. Typ­is­cher­weise haben die ursprünglichen Files diese Endung:
    • *.txt : Dateien im reinen Textfor­mat. Öff­nen Sie diese For­mate in einem reinen Text-Edi­tor wie beispiel­sweise Notepad oder (vorzugsweise) Notepad++ [u.a. hier in Deutsch] (aber nie in ein­er Textver­ar­beitung wie Word, Writer, …). Kopieren Sie den Code-Text und fügen Sie ihn dann im VBA-Edi­tor a passender Stelle ein.
    • *.bas : Typ­is­cher­weise sind das exportierte Funk­tio­nen eines all­ge­meinen Moduls. Das Ein­fü­gen im VBA-Edi­tor gestal­tet sich recht ein­fach: Datei | Datei importieren oder StrgM und automa­tisch wird alles für Sie erledigt. Wirk­lich alles.
    • *.cls : Dieses sind i.d.R. exportierte Inhalte eines Moduls ein­er Tabelle oder ein­er Mappe. Das Ein­fü­gen im VBA-Edi­tor gestal­tet sich gle­icher­maßen ein­fach wie vor: Datei | Datei importieren oder StrgM und automa­tisch wird alles für Sie erledigt. Wirk­lich alles.
    • *.xls, *.xlsx, *.xlsm : Excel-Dateien in ver­schiede­nen Ver­sio­nen. In den meis­ten Fällen sind die Excel-Files aber nicht gepackt son­dern liegen in ihrer nativ­en Form vor.
  •  Ver­schiedene Brows­er zeigen beim Herun­ter­laden der gepack­ten Basic – Datei eine Warn­mel­dung, dass die Datei ungewöhn­lich sei und/oder Schaden anricht­en könne. Wir ver­sich­ern Ihnen, dass die Datei beim hoch laden abso­lut frei von Schaden her­vor­rufend­en Ele­menten war. Zu Kon­trol­lzweck­en ste­ht Ihnen noch eine Datei mit der CRC-Quer­summe (let­zte Spalte) zur Ver­fü­gung. Im Zweifel ste­ht Ihnen immer noch die gepack­te und Code-seit­ig iden­tis­che Text-Datei zur Ver­fü­gung. Um solch eine War­nung zu überlis­ten, müssten wir die *.zip noch ver­schlüs­seln und Sie hät­ten dann beim Ent­pack­en wegen des Pass­wortes mehr Aufwand. Das wollen wir umge­hen.
LinkAnz. FilesName(n) ungepacktHinweis(e)CRC-Link
Der Link zur Datei1UDF_RechtsAbTrenner.txtText-DateiCRC-Quer­summe
Der Link zur Datei1mod_RechtsAbTrenner_UDF.basBasic-DateiCRC-Quer­summe
[NachOben­Let­zte Verweis=„CS: RECHTS() ab Trennze­ichen”]
Dieser Beitrag wurde unter Code-Schnipsel, Mit VBA/Makro, Text abgelegt und mit , , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.