Individuelle Formel: VERKETTEN2
Ausgangslage - Was tut dieser Code-Schnipsel?
Diese Formel können Sie anschließend auf allen Arbeitsblättern verwenden. Sie verkettet einen gewünschten Bereich und fügt zwischen jeden Einzelwert ein gewünschtes Trennzeichen ein.
Der Quelltext
Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/individuelle-formel-verketten2
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de
Public Function VERKETTEN2(ByVal Bereich As Range, ByVal Trennzeichen As String) As Variant
Dim oCell As Object
Dim sVerkettung As String
Dim blnFlag As Boolean
On Error Resume Next
sVerkettung = ""
blnFlag = False
For Each oCell In Bereich.Cells
If Trennzeichen = "" Or IsNull(Trennzeichen) = True Or IsEmpty(Trennzeichen) = True Then
sVerkettung = sVerkettung & CStr(oCell.Value)
Else
If blnFlag = False Then
sVerkettung = sVerkettung & CStr(oCell.Value)
blnFlag = True
Else
sVerkettung = sVerkettung & CStr(Trennzeichen) & CStr(oCell.Value)
End If
End If
Next oCell
VERKETTEN2 = sVerkettung
If Err.Number <> 0 Then
VERKETTEN2 = CStr("#FEHLER (" & Err.Description & ")")
Err.Clear
End If
On Error GoTo 0
End Function
Anmerkungen und Hinweise
Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2013.
Die Nutzung erfolgt auf eigene Gefahr.
Bitte denken Sie immer zuerst an eine ausreichende Datensicherung.
Wir können keinen kostenlosen Support anbieten.
Es gelten unsere Nutzungsbedingungen.
