Anzeige

VBA
Programmierer
gesucht?
 
Anzeige
VBA Programmierer gesucht?
 

VBA Codeschnipselsammlung

Individuelle Formel: VERKETTEN2

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.

Option Explicit
' ************************************************************************************************
' Autor/en: http://www.online-vba.de - Marc Wershoven
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von www.online-vba.de!
' Original-Quelltext: www.online-vba.de/vba_vkette2.php
' ************************************************************************************************


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


Autor: Marc Wershoven (2013)

Anzeige

VBA Programmierer gesucht?
http://www.WershovenOnline.de

Anzeige

Der Quick E-Mail Support von WershovenOnline®

Schnelle Hilfe bei Fragen rund um Microsoft® Office und VBA Makros

Der Quick E-Mail Support von WershovenOnline® Sie haben beispielsweise eine Frage zu einer Ihrer eigenen Makroprogrammierungen in VBA? Oder Sie suchen Unterstützung und Informationen über eine bestimmte Microsoft® Excel® Formel? Bei nahezu allen Fragen und Problemen rund um Microsoft® Office und VBA Makros steht Ihnen unser individueller Quick E-Mail Support zur Verfügung. Einfach, schnell und unkompliziert Ihre Frage in einer E-Mail formulieren, mit oder ohne Screenshots oder einer Beispieldatei absenden und kurze Zeit später haben Sie eine vollständige Lösung inkl. ausführlicher Erklärung vom Profi in Ihrem Postfach! Zusätzlich besteht die Option, dass wir uns mittels Fernwartung (selbstverständlich nach Ihrem Einvertändnis) direkt "live" mit Ihnen zusammen an Ihrem Bildschirm gemeinsam Fragen und Problemstellungen anschauen und lösen können!

Weitere Informationen zu diesem kostenpflichtigen Angebot finden Sie auf der Anbieterseite von WershovenOnline® auf www.wershovenonline.de.

Zum Anbieter des Quick-E-Mail-Support...

Zum Seitenanfang