VBA global variabel

Dim invDoc as Variant

Vil det sige det skal se ud ala dette?


    Dim invDoc as Variant   

    Public Function MyString() As String
        Dim invDoc As String
        Set invDoc = "Test"
    End Function

    Public Function MyBool() As String
        Dim invDoc As Boolean
        Set invDoc = true
    End Function


Dækker Variant over ALLE typer, Jeg skal bla. bruge nogle specifikke AutodeskInventor typer.

Eksempel:

Sub tester()
Dim modtager As Variant
    modtager = variantTest(True)
   
    modtager = variantTest(False)
End Sub
Function variantTest(StringEllerBoolean)
    If StringEllerBoolean = True Then
        variantTest = True
    Else
        variantTest = "Test"
    End If
End Function

Vedr. dit spørgsmål:
Fra Hjælp til VARIANT(Fra VBA/Excel)

The Variant data type is the data type for all variables that are not explicitly declared as some other type (using statements such as Dim, Private, Public, or Static). The Variant data type has no type-declaration character.

A Variant is a special data type that can contain any kind of data except fixed-length String data. (Variant types now support user-defined types.) A Variant can also contain the special values Empty, Error, Nothing, and Null. You can determine how the data in a Variant is treated using the VarType function or TypeName function.

Hov.

Denne tråd er vidst gammel.!

Nogle der vil have point?

Ok - alderen trykker lidt..