Hallo erstmal,
weiß jemand für dieses Problem eine Lösung,
VERKETTEN2(M1:BS1;";")
das ist die Formel und diese UDF steckt dahinter:
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
seht ihr eine Möglichkeit, dass ich nicht mehr bevor ich die Formel nutzen möchte, mühselig danach suchen muss, welche die letzte Spalte ist, wie derzeit Spalte BS.
Spalte BS hat in einer einzigen von 14687 Zeilen einen Inhalt, ihr könnt euch ja denken wie mühselig das ganze ist.
Oder anders ausgedrückt, dass entweder durch das Makro oder die Formel die letzte Spalte bestimmt wird.
Noch als Info, erst ab Spalte M ist in allen Zeilen garantiert, dass es keine Leerzellen zwischen 2 Zellen mit Inhalt gibt. Also in den Spalten A bis L vor allem Spalte D gibt es sehr viele Leerzellen.
Gruß und danke für eure Hilfe
Jenny