Optionale Zelle in Funktion gibt Wert nicht wieder

Guten Morgen zusammen,
ich hoffe ihr könnt mir bei meinem Problem helfen:
Ich habe eine Funktion, die einen Wert wiedergibt. Sofern ein optionale Hilfszelle markiert wird (z.B. "A4"), soll der VBA Code weitere Informationen in diese Hilfszelle schreiben. Ich habe schon alles mögliche getestet, aber aus irgendeinem Grund schreibt er das nicht in die Hilfzeile. Da ich echt nicht weiß wo mein (Denk)fehler steckt, bin ich für jede Hilfe/Tipp dankbar!
Viele Grüße
PaBa

Public Function Zellbereich(Optional Hilfszelle As Variant) As Variant Dim x As Variant Zellbereich = "test" If IsMissing(Hilfszelle) Then Exit Function Else Hilfszelle = "test" End If End Function

Ich habe auch alternativ folgendes getestet, aber leider funktioniert das auch nicht.
Set x = ActiveSheet.Cells(Hilfszelle.Row, Hilfszelle.Column)
MsgBox x.Address
x = "test"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function Zellbereich(Optional Hilfszelle As Variant) As Variant Dim x As Variant 'Zellbereich = "test" If IsMissing(Hilfszelle) Then Zellbereich = "test1" Exit Function Else Zellbereich = "test2" End If End Function

Hab mir mal was ausgedacht. Ist aber zugegebenermaßen sehr gewöhnungsbedürftig.
1. Code im Blatt aus dem die Formel aufgerufen werden soll (Im zweifel dann hinter alle Blätter)

Sub Worksheet_Change(ByVal Target As Range)
If Left(Target.FormulaLocal, 13) = "=Zellbereich(" Then
Pos1 = InStr(Target.FormulaLocal, "(")
Pos2 = InStr(Target.FormulaLocal, ";")
Pos3 = InStr(Target.FormulaLocal, ")")
If Pos2 = 0 Then
'Ohne Hilfe - Hier nix machen
Else
PosWZelle = Mid(Target.FormulaLocal, Pos1 + 1, Pos2 - Pos1 - 1)
PosHZelle = Mid(Target.FormulaLocal, Pos2 + 1, Pos3 - Pos2 - 1)
Wert = Range(PosWZelle)
Range(PosHZelle) = Wert & " * (3 + 3) / 7"
'Mit Hilfe
End If
Else
End If
End Sub

2. Code für die UDF (im allg. Modul)

Public Function Zellbereich(ByVal Wertebereich As Range, Optional Hilfszelle As Range) As  _
Variant
Dim Wert As Double
If Wertebereich Is Nothing Then
Exit Function
Else
Wert = Wertebereich * (3 + 3) / 7
End If
Zellbereich = Wert
End Function

Die Formelhilfe muss dann entsprechend der Formel immer angepasst werden.
CAVE: alles soweit ohne große Fehlerbehandlung. Dies muss natürlich noch ergänz werden.
Auch aufgrund der kürze ohne hinreichendes "Dimmen"
Mal schauen wie es ankommt ^^
Bis dahin
Grüße

Beliebteste Forumthreads (12 Monate)

Optionale Zelle in Funktion gibt Wert nicht wieder

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Optionale Zelle in Funktion gibt Wert nicht wieder

6 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)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread