UDF darf keine Auswirkung auf and. Workbooks haben

Public Function yWert(Bereichsnamen As String, dummy As Date) As String Dim Wks As Worksheet, Zelle As Range, rng As Range, strVersteckte As Boolean Set Wks = Worksheets(Range(Bereichsnamen).Parent.Name) With Wks For Each Zelle In .Range(Bereichsnamen) If .Rows(Zelle.Row).Hidden = True Or .Columns(Zelle.Column).Hidden = True Then strVersteckte = True If IsNumeric(Zelle.Value) Then If Zelle.Value 0 Then If rng Is Nothing Then Set rng = Zelle Else Set rng = Union(rng, Zelle) End If End If End If End If Next End With yWert = IIf(strVersteckte = True, "keine Werte", "keine ausgeblendet") If Not rng Is Nothing Then yWert = Split(rng.Address(False, False, xlA1, True), "]")(1) End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,
durch die Funktion HEUTE() in der Funktion als Parameter wird die Funktion bei jeder Neuberechnung angestoßen. Dabei bezieht sich dann bei dir die Objektzuweisung für wks immer auf die aktive Arbeitsmappe.
Damit die Zuordnung für das Tabellenblatt korrekt funktioniert, solltest du als zusätzlichen Parameter in der UDF eine beliebige Zelle (als Range) aus dem Tabellenblatt verwenden. Über diese Zelle erreichst du dann auch die korrekte Zuweisung des Tabellenblatts.
Gruß
Franz


Public Function yWert(rngZelle As Range, Bereichsnamen As String, dummy As Date) As String
Dim Wks As Worksheet, Zelle As Range, rng As Range, strVersteckte As Boolean
Set Wks = rngZelle.Parent
With Wks
For Each Zelle In .Range(Bereichsnamen)
If .Rows(Zelle.Row).Hidden = True Or .Columns(Zelle.Column).Hidden = True Then
strVersteckte = True
If IsNumeric(Zelle.Value) Then
If Zelle.Value  0 Then
If rng Is Nothing Then
Set rng = Zelle
Else
Set rng = Union(rng, Zelle)
End If
End If
End If
End If
Next
End With
yWert = IIf(strVersteckte = True, "keine Werte", "keine ausgeblendet")
If Not rng Is Nothing Then yWert = Split(rng.Address(False, False, xlA1, True), "]")(1)
End Function

Function yWert(Bereich As Range, dummy As Date) As String Dim Zelle As Range, rng As Range, strVersteckte As Boolean For Each Zelle In Bereich If Zelle.EntireRow.Hidden = True Or Zelle.EntireColumn.Hidden = True Then strVersteckte = True If IsNumeric(Zelle.Value) Then If Zelle.Value 0 Then If rng Is Nothing Then Set rng = Zelle Else Set rng = Union(rng, Zelle) End If End If End If End If Next yWert = IIf(strVersteckte = True, "keine Werte", "keine ausgeblendet") If Not rng Is Nothing Then yWert = Split(rng.Address(False, False, xlA1, True), "]")(1) End Function

Beliebteste Forumthreads (12 Monate)

UDF darf keine Auswirkung auf and. Workbooks haben

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread