Verketten von Zellen per VBA aber nicht in Range..
Zellen
ich hab mir gerade im Archiv so allerlei angeschaut, und das ist auch alles ganz toll, aber leider nur bedingt was ich suche.
Ich benötige eine VBA Function die nur verkettet wenn die Zelle gefüllt ist, und dann ein _ Trennzeichen setzt. Soweit so gut da gibts schon ein Dutzend Vorschläge. Aber jetzt kommt's: ich hab keinen Bereich den ich verkettet haben möchten sonder statt dessen 9 einzeln über die Tabelle verteilte Spalten. Keines der Beispiele lässt mich einen unzusammenhängenden Bereich übergeben. Kann mir da vielleicht jemand eines der Vorgänger scripts modifizieren? Dazu fehlt mir definitiv das Fachwissen :(
' Modul: Modul2 Typ: Allgemeines Modul
Option Explicit
Public Function VerkettenM(Bereich As Range, Optional Trenner As String = "", Optional _
Leerzellen As Boolean = False) As String
Dim str As String
Dim rng As Range
For Each rng In Bereich
If rng "" Or Leerzellen Then
str = str & rng & Trenner
End If
Next
VerkettenM = Left(str, Len(str) - Len(Trenner))
End Function
Danke schon mal im Voraus
Kolja