Frage zu gefundenem Code in Tabelle

[ari-2001]

Hallo,

ich habe in einer mir zum bearbeiten gesendeten Datei folgendes gefunden:

Private Function Outlookeintrag(xRg As Variant, sptChar As String)
    Dim rg As Range
    For Each rg In xRg
        If (rg.EntireRow.Hidden = False) And (rg.EntireColumn.Hidden = False) Then
            Outlookeintrag = Outlookeintrag & rg.Value & sptChar
        End If
    Next
    Outlookeintrag = Left(Outlookeintrag, Len(Outlookeintrag) - Len(sptChar))
End Function



Kann mir jemand sagen, was das genau bewirkt?

Ich vermute, dass man damit irgendwo eine Funktion mit dem Namen "=outlookeintrag" erstellen kann, aber sicher bin ich mir nicht.

Vielen Dank im Voraus.

Liebe Grüße
Andreas

[Der Steuerfuzzi]

Hallo,

das ist eine benutzerdefinierte Funktion. Sie erwartet zwei Parameter: Einen Bereich und ein (Trenn-)Zeichen.
Die Funktion verkettet alle Werte im übergebenen Bereich mit jeweils dem Trennzeichen dazwischen.

[ari-2001]

Vielen Dank für die Antwort, jetzt kann ich mir einen Reim darauf machen.

Viele Grüße
Andreas