Code erweitern
21.11.2013 19:44:40
Lorenz
Könnte mir jemand den Code so erweitern, daß gefilterte Daten(Werte) im Range "Bereich" bearbeitet werden? Es wird nämlich bei gefilterten Bereich die ausgeblendeten mit verarbeitet.
Function Verbinde_Text(Zeichen As String, Bereich As Range)
Dim myRng As Range, tmpStr As String
tmpStr = ""
For Each myRng In Bereich
If myRng "" Then
tmpStr = tmpStr & Zeichen & myRng
End If
Next
Verbinde_Text = Mid$(tmpStr, Len(Zeichen) + 1)
End Function
Lorenz