title image


Smiley Re: funktion VERKETTEN fuer einen bereich: geht das irgendwie?!
Hallo,

dient eigentlich dazu, bei Angabe eines Trennzeichens das letzte rauszuschmeißen. Ist aber falsch. Richtig ist:



Function BereichVerketten(Rng As Range, Optional strSpace As String) As String

Dim c As Range

'Verketten über Bereich

For Each c In Rng

BereichVerketten = BereichVerketten & c & strSpace '(Join(WorksheetFunction.Transpose(Rng), Space))

Next

BereichVerketten = Left(BereichVerketten, Len(BereichVerketten) + (strSpace "") * 1)

End Function


Gruß aus'm Pott
Udo

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: