Verketten2 als Funktion

[Dream-Teacher]

Hey ihr lieben,

Ich habe folgende CALC-Liste

Vorname1.Nachname1@domain1.de
Vorname2.Nachname2@domain2.de
etc. pp.

Nun möchte ich die Liste verketten, sodass ein ";" dazwischen steht. Ich vermute mal, dass die Funktion in LO 5.2.2 nicht zur Verfügung steht. Ich bin mir aber Sicher, dass ihr als Profis sowas programmieren könnt und würde mich freuen, wenn ihr mir folgende Funktion für das unnötig teure MS-Produkt umschreiben könntet:

Function Verketten2(Bereich, Optional Trennzeichen As String)
'Makro zum Verketten aller Zellen im angegebenen Bereich
'Aufruf : =Verketten2(A1:E1) oder =Verketten2(A1:E1;"-")
Application.Volatile
Dim tmp, Zelle
tmp = ""
For Each Zelle In Bereich
tmp = tmp & Zelle & Trennzeichen
Next
Verketten2 = tmp
End Function

Herzliche Grüße

D-T

[Dream-Teacher]

Ich habe es gerade mal ausprobiert... die Funktion funktioniert fantastisch in dem aktuellen LO 5.2.2 ... genial..., wer braucht denn da noch Excel?

Sorry, also das Problem ist gelöst... Danke!!!

[karolus]

Hallo

Im aktuellen LO5.2 ist bereits eine Calc-funktion mit dem Namen VERBINDEN eingebaut, deine Basic-UDF benötigst du nicht mehr.