Text verketten

Bild

Betrifft: Text verketten
von: holger leyer
Geschrieben am: 26.03.2005 16:55:22
Hallo!
Ich möchte Text verketten, aber von mehr als den 30 möglichen Zellen. Eigentlich möchte ich einen Zellbereich angeben und den gesamten Text in einer Zelle haben. Ist das möglich?
Danke.
Holger

Bild

Betrifft: AW: Text verketten
von: Josef Ehrensberger
Geschrieben am: 26.03.2005 17:45:28
Hallo Holger!
Wie wär's mit eine kleinen UDF?
Tabelle1
 ABCD
1Dasistein 
2Text! Und 
3Jetztnochmehr 
4Text!   
5    
6    
7Das ist ein Text! Und Jetzt noch mehr Text!   
Formeln der Tabelle
A7 : =verketten2(A1:C4;" ")
 


Und hier die Funktion.
(Mit Alt+F11 den VBE öffnen > Einfügen > Modul > in das rechte Fenster kopieren!)


      
Function VERKETTEN2(ByRef Bereich As Range, Optional Trenner As StringAs String
Dim rng As Range
Application.Volatile
   
For Each rng In Bereich
      
If rng <> "" Then VERKETTEN2 = VERKETTEN2 & rng & Trenner
   
Next
If Right(VERKETTEN2, Len(Trenner)) = Trenner Then _
VERKETTEN2 = Left(VERKETTEN2, Len(VERKETTEN2) - Len(Trenner))
End Function 

     Code eingefügt mit Syntaxhighlighter 3.0


Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild

Betrifft: AW: Text verketten
von: Holger Leyer
Geschrieben am: 27.03.2005 00:36:30
Sepp,
das ist toll - was es alles gibt :-)
Du hast mir sehr geholfen, wenn ich auch nicht weiss, was das ist. Wo kann man sowas lernen?
Holger :)
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Join Funktion"