Attribute VB_Name = "udf_ref"
'-------------------------------------------------------------------------------
'File         : udf_ref.bas
'               Copyright mpl by ERB software
'               All rights reserved
'               http://wiki.yaslaw.info/dokuwiki/doku.php/vba/
'Environment  : VBA 2007 +
'Version      : 1.1.0
'Name         : ref
'Author       : Stefan Erb (ERS)
'History      : 23.06.2014 - ERS - Creation
'               19.10.2015 - ERS - Viel unnötiger Code entfernt
'-------------------------------------------------------------------------------
Option Explicit

'/**
' * Bei einer Variablenübergabe muss immer unterscheiden werden, ob es ein Objekt ist oder nicht.
' * Diese Sub nimmt einem die Arbeit ab
' * ref(oNode, iNode)
' * @param  Variant     Variable, die den Wert bekommen soll
' * @param  Variant     Ret Wert selber
' */
Public Sub ref(ByRef oNode As Variant, ByRef iNode As Variant)
    If IsObject(iNode) Then Set oNode = iNode: Exit Sub
    oNode = iNode
End Sub