TOP

GETSUBSTR Funktion für LibreOffice Calc

GETSUBSTR() Beschreibung

Die Funktion GETSUBSTR() dient zum Auswählen eines Teils des Textes anhand des angegebenen Trennzeichens.

Der Funktionscode GETSUBSTR teilt den Text anhand des angegebenen Trennzeichens in ein Array auf und gibt das Element des angegebenen Arrays entsprechend der angegebenen Seriennummer zurück.


BASIC Code für GETSUBSTR

Unten finden Sie den Makrocode zum Erstellen einer benutzerdefinierten Funktion GETSUBSTR, die den Text in Teile aufteilen und jedes Element davon in LibreOffice Calc abrufen kann.

Um eine neue Funktion hinzuzufügen, öffnen Sie das Menü Tools - Macros - Edit Macros..., wählen Sie Module1 aus und kopieren Sie den folgenden Text in das Modul:

Function GETSUBSTR(Txt, Delimiter, n) As String  
   Dim txtArray As Variant  
     
     If Txt = "" Then Exit Function
     
      txtArray = Split(Txt, Delimiter) 
      maxExt = UBound(txtArray)
      
      If n >= 0 Then 
        normExt = n - 1
      Else      
        normExt = maxExt + n + 1
      EndIf      
       
      extToFind = Max(Min(maxExt, normExt), 0)
      
      GETSUBSTR = txtArray(extToFind)
     
End Function

Schließen Sie dann Macro Editor, kehren Sie zu LibreOffice Calc zurück und verwenden Sie die neue Funktion in einer beliebigen Zelle.

Verwendung der YouLibreCalc-Erweiterung

Sie können auch die Funktion GETSUBSTR() verwenden, indem Sie die Erweiterung „ YouLibreCalc.oxt ". Danach ist diese Funktion in allen Dateien verfügbar, die in LibreOffice Calc geöffnet werden.