Variant: Unterschied zwischen den Versionen

Aus VBA-wiki
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „Eine als Variant deklarierte Variable kann einen beliebigen Wert entgegennehmen, inklusive einer Objektreferenz. Wenn Sie bei der Deklaration einer Variablen k…“)
 
Keine Bearbeitungszusammenfassung
 
(5 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
Eine als Variant deklarierte Variable kann einen beliebigen Wert entgegennehmen, inklusive einer Objektreferenz. Wenn Sie bei der Deklaration einer Variablen keinen Datentyp angeben, verwendet VBA automatisch den Datentyp Variant: Dim strString ' Wird automatisch als Variant deklariert
[[Category:vba-wiki]]
Eine als Variant deklarierte Variable kann einen beliebigen Wert entgegennehmen, inklusive einer Objektreferenz.  


Wenn Sie bei der Deklaration einer Variablen keinen Datentyp angeben, verwendet VBA automatisch den Datentyp Variant:
    <span style="Color:blue"> Dim </span>strText
   
    Debug<span style="Color:gray">.</span>Print VarType<span style="Color:gray">(</span>strText<span style="Color:gray">)</span>        <span style="Color:green">' 0 (Empty, Variant-Variable wurde noch nicht verwendet)</span>
    strText <span style="Color:gray">=</span> <span style="Color:gray">"Text"</span>
    Debug<span style="Color:gray">.</span>Print VarType<span style="Color:gray">(</span>strText<span style="Color:gray">)</span>        <span style="Color:green">' 8 (Zeichenkette)</span>
    strText <span style="Color:gray">=</span> <span style="Color:gray">15</span>
    Debug<span style="Color:gray">.</span>Print VarType<span style="Color:gray">(</span>strText<span style="Color:gray">)</span>        <span style="Color:green">' 2 (Integer)</span>
Zum Vergleich:
    <span style="Color:blue"> Dim </span>strText<span style="Color:blue"> As String</span>
   
    Debug<span style="Color:gray">.</span>Print VarType<span style="Color:gray">(</span>strText<span style="Color:gray">)</span>        <span style="Color:green">' 8 (von Anfang an Zeichenkette)</span>
    strText <span style="Color:gray">=</span> <span style="Color:gray">"Text"</span>
    Debug<span style="Color:gray">.</span>Print VarType<span style="Color:gray">(</span>strText<span style="Color:gray">)</span>        <span style="Color:green">' 8 (immer noch Zeichenkette)</span>
    strText <span style="Color:gray">=</span> <span style="Color:gray">15</span>
    Debug<span style="Color:gray">.</span>Print VarType<span style="Color:gray">(</span>strText<span style="Color:gray">)</span>        <span style="Color:green">' 8 (die Ganzzahl wurde automatisch in eine Zeichenkette umgewandelt!)</span>
== Vorteile des Variant ==
== Vorteile des Variant ==


Wenn Sie bei einem Übergabeparameter wahlweise eine Zahl oder eine Zeichenkette erwarten (wie etwa die 'Item'-Funktion einer Auflistung), bietet sich der Datentyp 'Variant' an. Bei der Übergabe des Indexes (also einer Zahl) oder des Namens (also einer Zeichenkette) weist VBA der Variablen automatisch den passenden Datentyp zu: Dim varTest As Variant Debug.Print VarType(varTest) ' 0 vbEmpty varTest = "Hallo!" Debug.Print VarType(varTest) ' 8 vbString varTest = 12 Debug.Print VarType(varTest) ' 2 vbInteger
Wenn Sie zum Beispiel bei einem Übergabeparameter wahlweise eine Zahl oder eine Zeichenkette erwarten (wie etwa die 'Item'-Funktion einer Auflistung), bietet sich der Datentyp 'Variant' an.  
 
Bei der Übergabe des Indexes (also einer Zahl) oder des Namens (also einer Zeichenkette) weist VBA der Variablen automatisch den passenden Datentyp zu:  
 
<span style="Color:blue">Dim </span>varTest<span style="Color:blue"> As Variant </span>
Debug<span style="Color:gray">.</span>Print VarType<span style="Color:gray">(</span>varTest<span style="Color:gray">)</span>          <span style="Color:green">' 0 vbEmpty </span>
varTest <span style="Color:gray">=</span> <span style="Color:gray">"Hallo!"</span>
Debug<span style="Color:gray">.</span>Print VarType<span style="Color:gray">(</span>varTest<span style="Color:gray">)</span>          <span style="Color:green">' 8 vbString </span>
varTest <span style="Color:gray">=</span> <span style="Color:gray">12</span>
Debug<span style="Color:gray">.</span>Print VarType<span style="Color:gray">(</span>varTest<span style="Color:gray">)</span>          <span style="Color:green">' 2 vbInteger</span>


== Nachteile des Variant ==
== Nachteile des Variant ==


Da kein fester Datentyp vorgegeben ist, erfolgt keine Prüfung, ob der zugewiesene Wert dem erwarteten Datentyp entspricht bzw. wird nicht bei der Zuweisung schon eine Umwandlung in den passenden Datentyp versucht. Diese erfolgt gegebenenfalls erst, wenn die Werte weiter verarbeitet wird: Dim varTest As Variant varTest = 12 Debug.Print varTest / 4 ' 3 varTest = "Max" Debug.Print varTest / 4 ' Fehler! Im Vergleich (der Fehler tritt schon bei der Zuweisung auf): Dim lngTest As Long lngTest = 12 Debug.Print lngTest / 4 ' 3 lngTest = "Max" ' Fehler! Debug.Print lngTest / 4
Da kein fester Datentyp vorgegeben ist, erfolgt keine Prüfung, ob der zugewiesene Wert dem erwarteten Datentyp entspricht bzw. wird nicht bei der Zuweisung schon eine Umwandlung in den passenden Datentyp versucht.  
 
Diese erfolgt gegebenenfalls erst, wenn die Werte weiter verarbeitet wird:  
 
<span style="Color:blue">Dim </span>varTest<span style="Color:blue"> As Variant</span>
varTest <span style="Color:gray">=</span> <span style="Color:gray">12</span>
Debug<span style="Color:gray">.</span>Print varTest <span style="Color:gray">/</span> <span style="Color:gray">4</span>      <span style="Color:green">' 3</span>
varTest <span style="Color:gray">=</span> <span style="Color:gray">"Max"</span>
Debug<span style="Color:gray">.</span>Print varTest <span style="Color:gray">/</span> <span style="Color:gray">4</span>      <span style="Color:green">' Fehler bei der Verwendung der Werte: Max kann nicht gevierteilt werden!</span>
 
Im Vergleich (der Fehler tritt schon bei der Zuweisung auf):  
 
<span style="Color:blue">Dim </span>lngTest<span style="Color:blue"> As Long</span>
lngTest <span style="Color:gray">=</span> <span style="Color:gray">12</span>
Debug<span style="Color:gray">.</span>Print lngTest <span style="Color:gray">/</span> <span style="Color:gray">4</span> <span style="Color:green">' 3</span>
lngTest <span style="Color:gray">=</span> <span style="Color:gray">"Max"</span>                <span style="Color:green">' Fehler schon bei der Zuweisung: Max ist keine Zahl!</span>
<span style="Color:green">' Diese Zeile würde selbstverständlich auch einen Fehler erzeugen, aber er ist schon bei der Zuweisung aufgefallen:</span>
Debug<span style="Color:gray">.</span>Print varTest <span style="Color:gray">/</span> <span style="Color:gray">4</span>

Aktuelle Version vom 28. Januar 2023, 00:40 Uhr

Eine als Variant deklarierte Variable kann einen beliebigen Wert entgegennehmen, inklusive einer Objektreferenz.

Wenn Sie bei der Deklaration einer Variablen keinen Datentyp angeben, verwendet VBA automatisch den Datentyp Variant: 

    Dim strText
    
    Debug.Print VarType(strText)        ' 0 (Empty, Variant-Variable wurde noch nicht verwendet)
    strText = "Text"
    Debug.Print VarType(strText)        ' 8 (Zeichenkette)
    strText = 15
    Debug.Print VarType(strText)        ' 2 (Integer)

Zum Vergleich: 

    Dim strText As String
    
    Debug.Print VarType(strText)        ' 8 (von Anfang an Zeichenkette)
    strText = "Text"
    Debug.Print VarType(strText)        ' 8 (immer noch Zeichenkette)
    strText = 15
    Debug.Print VarType(strText)        ' 8 (die Ganzzahl wurde automatisch in eine Zeichenkette umgewandelt!)

Vorteile des Variant

Wenn Sie zum Beispiel bei einem Übergabeparameter wahlweise eine Zahl oder eine Zeichenkette erwarten (wie etwa die 'Item'-Funktion einer Auflistung), bietet sich der Datentyp 'Variant' an.

Bei der Übergabe des Indexes (also einer Zahl) oder des Namens (also einer Zeichenkette) weist VBA der Variablen automatisch den passenden Datentyp zu: 

Dim varTest As Variant 

Debug.Print VarType(varTest)          ' 0 vbEmpty 
varTest = "Hallo!" 
Debug.Print VarType(varTest)          ' 8 vbString 
varTest = 12 
Debug.Print VarType(varTest)          ' 2 vbInteger

Nachteile des Variant

Da kein fester Datentyp vorgegeben ist, erfolgt keine Prüfung, ob der zugewiesene Wert dem erwarteten Datentyp entspricht bzw. wird nicht bei der Zuweisung schon eine Umwandlung in den passenden Datentyp versucht.

Diese erfolgt gegebenenfalls erst, wenn die Werte weiter verarbeitet wird: 

Dim varTest As Variant

varTest = 12
Debug.Print varTest / 4      ' 3
varTest = "Max"
Debug.Print varTest / 4      ' Fehler bei der Verwendung der Werte: Max kann nicht gevierteilt werden!

Im Vergleich (der Fehler tritt schon bei der Zuweisung auf): 

Dim lngTest As Long

lngTest = 12
Debug.Print lngTest / 4 ' 3
lngTest = "Max"                ' Fehler schon bei der Zuweisung: Max ist keine Zahl!

' Diese Zeile würde selbstverständlich auch einen Fehler erzeugen, aber er ist schon bei der Zuweisung aufgefallen:
Debug.Print varTest / 4
Abgerufen von „http://vba-wiki.net/index.php?title=Variant&oldid=766“