Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Funktion erweitern

Funktion erweitern
06.09.2013 18:11:59
Lorenz
Hallo Profi´s
mit der folgenden Funktion werden Zelleinträge verkettet. Das funktioniert soweit in Ordnung. Wie muß " Verbinde_Text = Left(tmpStr, Len(tmpStr))" abgeändert werden, daß am Ende die Zeichen nicht angehängt werden, sondern nur zwischen den Werten?
Function Verbinde_Text(Zeichen As String, Bereich As Range)
Dim myRng As Range
Dim tmpStr As String
tmpStr = ""
For Each myRng In Bereich
If myRng  "" Then
tmpStr = tmpStr & myRng & Zeichen
End If
Next
Verbinde_Text = Left(tmpStr, Len(tmpStr))
End Function
Weiß jemand vielleicht Rat?
Gruß
Lorenz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: von/an Amateur :-)
06.09.2013 19:09:18
Gerd
Hall Lorenz!
Function Verbinde_Text(Zeichen As String, Bereich As Range)
Dim myRng As Range
Dim tmpStr As String
For Each myRng In Bereich
If myRng  "" Then
tmpStr = tmpStr & Zeichen & myRng
End If
Next
Verbinde_Text = Mid$(tmpStr, Len(Zeichen) + 1)
End Function
Gruß Gerd

AW: von/an Amateur :-)
06.09.2013 19:15:42
Lorenz
Hallo Gerd,
Das war´s
Danke u. Grüsse
Lorenz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige