Variablen mehrdeutig definieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Dim varX As Variant Sub Test() varX = 3 'Zuweisung GANZZAHL MsgBox varX, , TypeName(varX) varX = "Text" 'Zuweisung Text MsgBox varX, , TypeName(varX) varX = 3.14159265 'Zuweisung Dezimalzahl MsgBox varX, , TypeName(varX) varX = #2/14/2012# 'Zuweisung Datum MsgBox varX, , TypeName(varX) End Sub

Hallo Dirk,
wenn der Übergabe-Parameter an eine UDF variablen Typs sein soll, dann lasse die Typendeklaration weg (siehe Test4()) oder deklariere ihn in der UDF als ByVal var... (siehe Test3()) :

Sub VariablenTests()
'Tests für unterschiedliche Variablentypen (VARIANT, STRING)
'als Parameter für FUNCTION Test1 bis Test3
'14.02.2012, NoNet - www.excelei.de
Dim varX As Variant, strX As String
varX = "VAR-Text"
strX = "STRING-Text"
'MsgBox test1(varX) 'Fehler, da Test1 einen STRING erwartet
MsgBox Test1(CStr(varX)), , 1 'VARIANT-Variable in STRING umgewandelt
MsgBox Test2(varX), , 2 'funktioniert !
MsgBox Test3(varX), , 3 'funktioniert auch, da ByVal
MsgBox Test4(varX), , 4 'funktioniert da kein TYP angegeben wurde
MsgBox Test1(strX), , 1 'funktioniert !
MsgBox Test2(strX), , 2 'funktioniert !
MsgBox Test3(strX), , 3 'funktioniert !
MsgBox Test4(strX), , 4 'funktioniert !
End Sub
Function Test1(var As String)
Test1 = var
End Function
Function Test2(var As Variant)
Test2 = var
End Function
Function Test3(ByVal var As String)
Test3 = var
End Function
Function Test4(var)
Test4 = var
End Function

Gruß, NoNet

…Dirk,
es sei denn, du meinst mit „Adresse” etwas annähernd einem Pointer Vglbares, denn ByRef hat in einer SubProz Auswirkungen auf das standardmäßig so übergebene Objekt. Mit ByVal wird quasi eine Kopie des Objekts übergeben, an der du dich dann austoben kannst, ohne Konsequenzen für das Original befürchten zu müssen.
Übrigens sollte man Fktt Argumente, die normalerweise Zellbezüge repräsentieren sollen, As Variant übergeben, es sei denn, eine Eigenschaft soll ermittelt wdn, die nur ein Range-Objekt haben kann. Dadurch wird es mögl, anstelle des Zellbezugs auch einen Ausdruck zu verwenden, der ggf ein Datenfeld liefert. Das haben die jeweiligen Pgmmierer einiger neuerer XlFktt wie bspw RANG anscheinend nicht beachtet, weshalb man als Anwender nun Klimmzüge machen muss, um mit Ersatzkonstruktionen doch noch zum gewünschten Ergebnis zu gelangen.
Desweiteren ist auch ein Argument als ParamArray vom Typ Variant und fktt (interessanterweise) sowohl als übergebene Einzelwerte wie auch mit Datenfeldern. Dabei ist ein an dieser Stelle übergebenes DFeld in Gänze immer nur der 1. mögliche Parameter von ParamArray.
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread