Erweiterung einer Funktion
07.02.2018 08:34:56
Nilo
ich habe da eine Frage!
Mit untenstehender Funktion (aus dem Netz kopiert) können Spalten einer Zelle verkettet werden. Das klappt wunderbar:
Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String
Dim rng As Range
For Each rng In bereich
If rng "" Then
Verketten2 = Verketten2 & rng & Trennzeichen
End If
Next
If Len(Verketten2) > 0 Then _
Verketten2 = Left(Verketten2, Len(Verketten2) - Len(Trennzeichen))
End Function
=verketten2('Tabelle erzeugen'!$I2:$I500;"")
Wie kann die Formel angepasst werden das sich beim runterziehen der Spaltenindex erhöht?
ZB:
B2 =verketten2('Tabelle erzeugen'!$I2:$I500;"")
B3 =verketten2('Tabelle erzeugen'!$J2:$J500;"")
B4 =verketten2('Tabelle erzeugen'!$K2:$K500;"")
usw.
Ich habe es schon mit Indirekt versucht aber nicht hinbekommen.
Danke mal für Eure Hilfe.
Gruß
Nilo