Excel Funktion Verketten2

Um in einer Zelle mehrere Zellen zu verketten/verbinden kann man sich ein kleines Makro schreiben.

verketten2.bas

Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String
    Dim rng As Range
    For Each rng In bereich
        If rng <> "" Then
            Verketten2 = Verketten2 & rng & Trennzeichen
        End If
    Next
    If Len(Verketten2) > 0 Then _
        Verketten2 = Left(Verketten2, Len(Verketten2) - Len(Trennzeichen))
End Function

<todo>Das folgende muss noch überarbeitet werden</todo>

• Save a blank workbook as a Excel Add-In (*.xlam) in your Add-In folder. (%APPDATA%\Microsoft\AddIns\Custom.xlam) I named it CUSTOM.xlam.
• Click Office button.
• Click „Excel options“ button.
• Click „Add-Ins“ tab.
• Select Excel Add-ins.
• Click „Go…“ button.
• Click „Browse..“ button.
• Select CUSTOM.xlam.
• Click OK.
• Make sure CUSTOM is enabled in Add-In Manager.
• Click OK.

• Click „Developer“ tab on the ribbon.
• Double click on Myfunctions.xlam in project window.
• Click „Insert“ tab.
• Click Module.
• Copy and paste custom functions and macros to code window.

• Select a cell.
• Type the custom function name in formula bar. Press Enter.
• If you don´t know the name of your custom function, continue to step 3.
• Click „Insert Function“ button.
• Select category „User Defined“.
• Select your custom function.
• Click OK.

• Click „Developer“ tab.
• Click Macros button.
• Type the name of your macro.
• Click „Run“ button