UDF - Argument ohne " " übergeben möglich?

Guten Abend
Ich habe eine Frage zu meiner benutzerdefinierten Funktion. Ich muss dieser Funktion 3 Argumente übergeben. Das zweite ist ein Bereichsname, den ich in Anführungszeichen einsetzen muss.
cw(G24;"_A";1)
Wäre es möglich, und wenn ja, wie ist es anzustellen, dass ich anstelle der obigen Schreibweise
cw(G24;_A;1), also den Bereichsnamen ohne Anführungszeichen schreiben kann. Allerdings reklamiert die Function schon, wenn ich bei Optional Periode as String = _A, "_" ... schreibe, dass das Sonderzeichen _ nicht genehm ist. Ansonsten hätte ich mir vorstellen können, dass ich _A übergebe und dann in der Funktion
der Variable "Periode" die Anführungszeichen wieder vor- und hintenanstelle. Dann müsste die Funktion insgesamt ja unverändert laufen.
Periode = """ & Periode & """
Der Sinn der Sache: Die Eingabe würde etwas vereinfacht.
Danke für eine Antwort.
Gruss, Peter
Public Function cw(RefZelle As Variant, _
Optional Periode As String = "_A", _
Optional Positiv As Boolean = True) As Variant
...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Peter() Dim VaVariable As Variant Dim StVariable As String VaVariable = """ & _AB & """ MsgBox "," & VaVariable & ";" & Len(VaVariable) StVariable = Mid(VaVariable, 5, Len(VaVariable) - 5 - 3) MsgBox StVariable End Sub

Hallo Hajo
Ich habe nun versucht, die gewonnen Einsichten im meine Funktion einzubauen. Da bin ich mit der Variant-Variable vaPeriode gescheitert und habe nun mit Hilfe der Codezeile vaPeriode = vaPeriode (wenn ich mit der Maus darüber fahre) festgestellt, dass wenn ich das zweite Argument wie gewünscht mit _A übergebe, die Variable nichts enthält; wenn ich das zweite Argument mit "_A" übergebe, wird dies der Variable auch so übergeben.
Mache ich noch einen Überlegungsfehler?
Danke für eine Antwort und freundlicher Gruss, Peter


Public Function cw(RefZelle As Variant, _
Optional vaPeriode As Variant, _     'Alternativ = Optional vaPeriode as  _
Variant = """ & _A & """
Optional Positiv As Boolean = True) As Variant
Application.Volatile
Dim sFormula As String, sReference As String
Dim Periode As String
vaPeriode = vaPeriode
If IsEmpty(vaPeriode) Then vaPeriode = """ & _A & """   'nur wenn der optionale Wert nicht  _
schon weiteroben übergeben wird
Periode = Mid(vaPeriode, 5, Len(vaPeriode) - 8)
End Function

=CW(I15;_A;1) 'Argument 2 wird irgendwie nicht übernommen
=CW(I15;"_A";1) 'Argument 2 wird übernommen

Beliebteste Forumthreads (12 Monate)

UDF - Argument ohne " " übergeben möglich?

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

232 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UDF - Argument ohne " " übergeben möglich?

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

232 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread