Quellcode durchsuchen

Added missing "End Function"

Toastie vor 4 Jahren
Ursprung
Commit
1712cc81a2
1 geänderte Dateien mit 3 neuen und 1 gelöschten Zeilen
  1. 3 1
      microsoft/excel/functions/ConcatenateRange.vba

+ 3 - 1
microsoft/excel/functions/ConcatenateRange.vba

@@ -20,4 +20,6 @@ If Len(newString) <> 0 Then
     newString = Right$(newString, (Len(newString) - Len(seperator)))
     newString = Right$(newString, (Len(newString) - Len(seperator)))
 End If
 End If
 
 
-ConcatenateRange = newString
+ConcatenateRange = newString
+
+End Function