Funktion Bedingung einfügen
13.11.2013 01:31:16
Lorenz
Ich habe versucht den Funktionierenden Code (Funktion) um eine Bedingung zu erweitern. Ist aber nicht gelungen (siehe geänderte Fkt). was ist verkehrt, oder wie muß die Funktion richtig (um)geschrieben werden?
Original
Function Verbinde_Text(Zeichen As String, Bereich As Range,Bedingung As String, _
BereichBedingung As Range)
Dim myRng As Range
Dim 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
geänderte Fkt.:
Function Verbinde_Text(Zeichen As String, Bereich As Range, Bedingung As String, _
BereichBedingung As Range)
Dim myRng As Range, tmpStr As String
Dim myRng1 As Range, tmpStr1 As String
tmpStr = ""
tmpStr1 = ""
For Each myRng In Bereich
If myRng1 "" Then
tmpStr1 = tmpStr1 & Bedingung & myRng1
End If
If myRng "" Then
tmpStr = tmpStr & Zeichen & myRng
End If
Next
Verbinde_Text = Mid$(tmpStr, Len(Zeichen) + 1)
End Function
Lorenz
Anzeige