UDF darf keine Auswirkung auf and. Workbooks haben
30.09.2008 09:44:00
Peter
Gerd hat mir in den letzten Tagen eine wertvolle Funktion geliefert.
https://www.herber.de/forum/archiv/1012to1016/t1012746.htm
Nun möchte ich noch eine Lösung finden, dass sich eine UDF nur auf die Arbeitsmappe auswirken darf, in welcher die UDF hinterlegt ist.
Wie muss der Code ergänzt werden?
Danke für eine Antwort.
Gruss, Peter
https://www.herber.de/bbs/user/55733.xls
Option Explicit
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