Variant Datentyp aus Funktion/Diretk

Guten Morgen!
Ich hab eine Funktion geschrieben, mit der ich zum Namen die email-Adresse aus einer Tabelle raussuchen und lesen kann.
Tut super.... solang ich die als Funktion im Direktfenster aufrufe:


? MA_Daten2([A39])(6)

liefert die Mailadresse zu einem Namen.
In A39 ist steht der volle Name, 6 ist die 6 Pos im array (email-adresse)
Ich kann auch schon die spezielle Stelle im Code benennen, weiß aber kein workaround...
Alle Mitarbeiter-Daten werden aus der Tabelle in ein Variant gelesen:


Function MA_Daten2(name_voll As String) As Variant
Dim Alldata2 As Variant
Alldata2 = Sheets("MA_Daten").Range("A1").CurrentRegion

Alldata2 ist dann ein Variant/Variant(1 to 96/ 1 to 3) (die Spalten werden später durch Leerfelder ergänzt, das ist kein Fehler)
Ich kann die Daten auswerten und erhalte mein Ergebnis.
Nutze ich die Funktion allerdings im Tabellenblatt


=MA_Daten2(A39)(6)

wird mir nur #WERT! zurückgeliefert, im gleichen Code wie oben die Funktion Alldata2 nur mit 1 Zelle belegt (A1)!
Kann mir jemand sagen, was ich da falsch mache?
Vielen Dank....
Gruß, MCO

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test_MA_Abfrage() Dim empf_1 As Variant Dim i As Long Dim Testname As String Testname = "ostr, fr" empf_1 = MA_Daten2(Testname) Debug.Print "______________MA_Daten2___________________" For i = LBound(empf_1) To UBound(empf_1) Debug.Print i, empf_1(i) Next i End Sub

Hi
es besteht auch die Möglichkeit, dass deine Funktion MA_Daten2 einen VBA-Befehl enthält, der in einer Excelformel nicht zulässig ist.
wenn du so einen Befehl verwendest, funktioniert die Funktion nur in einer VBA-Umgebung (Direktfenster oder in einem Makro), aber nicht in einer Formel in einer Excelzelle.
Da müsstest du mal prüfen, ob das der Fall ist.
Verboten sind beispielsweise alle Aktionen, die in Excel irgendwas verändern, also andere Zellwerte oder Formatierungen. Funktionen in Excelzellen dürfen nur einen Wert zurückgeben und ansonsten keine Außenwirkung haben.
Funktionen innerhalb von VBA können alles, was normale Makros auch können, dort sind sie keine klassischen Funktionen, sondern Makros mit Rückgabewert.
wenn du uns den vollständigen Funktionscode nicht zeigen magst, kannst du mal folgendes testen:
1. setze im Quellcode der Funktion am Anfang einen Haltepunkt
2. gebe die Formel in eine Zelle ein.
3. wenn jetzt die Funktion in VBA im Einzelstepmodus ausgeführt wird, klicke dich aufmerksam durch den Code. Wenn die Bearbeitung plötzlich abbricht, steht an dieser Stelle ein Befehl, der in einer Excelzelle nicht zulässig ist.
Aber du musst aufmerksam sein. Es gibt keine Fehlermeldung, es wird einfach die die Codeausführung im Einzelstep sofort beendet.
Gruß Daniel

Function MA_Daten2(rng As Range, name_voll As String) As Variant Dim Alldata2, i As Long, j As Integer Dim MADaten() Alldata2 = rng.Value For i = 1 To UBound(Alldata2) If Join(Array(Alldata2(i, 1), Alldata2(i, 2))) = name_voll Then ReDim MADaten(1 To UBound(Alldata2, 2)) For j = 1 To UBound(Alldata2, 2) MADaten(j) = Alldata2(i, j) Next j MA_Daten2 = MADaten Exit For End If Next i End Function

Beliebteste Forumthreads (12 Monate)

Variant Datentyp aus Funktion/Diretk

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread