Fehler bei Splitter- Funktion (VBA)

Hallo zusammen,
ich versuche einzelne Strings aus einer Zelle zu lesen. Ein Beispiel für eine Zelle sieht so _ aus:


1;3;6;8;11;13;15;18;21;22;26;27;32;33;35;38

Ich bin durch Suchen auf die Splitter- Funktion gestoßen.
Ich habe bisher folgendes in ein Modul eingetragen:


Function Splitter(Bezug As Range, Trennzeichen As String, Teil As Integer) As String
Dim Ergebnis
Ergebnis = Split(Bezug.Value, Trennzeichen)
Splitter = Ergebnis(Teil - 1)
End Function

Meine Formel ist folgendermaßen hinterlegt:


aa.FormulaLocal = "=Splitter(" & Worksheets("Marktanalyse").Cells(cz, 21) & ","";"", 1)"
ergebnis1.Cells(23, i) = aa

Dabei bekomm ich den Fehler 424: "Objekt erforderlich!" ausgegeben
Achso zur Info: cz speichert die Zeilennummer auf dem richtigen Tabellenblatt "Marktanalyse". Ich möchte, dass im Beispiel aa=1 gesetzt wird und in der entsprechenden Zelle ausgegeben wird.
Habt ihr eine Idee, was hier der Fehler sein könnte?
Viele Grüße, ViGo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…als Argument1 erwartet, ViGo;
dein Fml-Konstrukt schreibt aber den Wert einer Zelle direkt in die Fml, noch dazu ohne An-/Ausführungszeichen (für Text). Du musst die ZellAdresse angeben → Worksheets("Marktanalyse").Cells(cz, 21).Address(0, 0) !
Außerdem erwartet die UDF zwingend ein 3.Argument zur DirektAuswahl eines Werts (das ist auch eine mögliche ZusatzFktionalität meiner UDF Splint, man kann aber auch INDEX um eine andere UDF herumlegen). Desweiteren schreibst du zwar .FormulaLocal, gibst die Fml aber in US-OriginalNotation an. Also wäre hier .Formula angebracht.
Übrigens, mit meiner UDF VSplit (Version1.1) hätte das auch so fktioniert, wenn du die An-/Ausführungszeichen angegeben hättest, denn die ist universeller und nicht trivial, wandelt bei entsprd Argumentierung auch Text- in echte Zahlen um.
Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …

' in irgendeinem Modul Sub test() Dim aa As Range, cz As Long, i As Long Set aa = Range("E5") cz = 5 aa.FormulaLocal = "=Splitter(Marktanalyse!" & Cells(cz, 21).Address & ";"";"";1)" i = 1 Tabelle1.Cells(23, i).Value = aa.Value End Sub ' in einem allg. Modul Function Splitter(Bezug As Range, Trennzeichen As String, Teil As Integer) As String Splitter = Split(Bezug(1).Value, Trennzeichen)(Teil - 1) End Function

Beliebteste Forumthreads (12 Monate)

Fehler bei Splitter- Funktion (VBA)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler bei Splitter- Funktion (VBA)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread