Funktion, nur für bestimmtes workbook
02.08.2022 14:43:32
Peter
Die Funktion "verborgener_Wert" ist in einer bestimmten Arbeitsmappe (A) hinterlegt.
Wenn ich nun eine andere Arbeitsmappe (b) aktivierte und dann zur Arbeitsmappe (A) zurückkehre, wird als Ergebnis der Funktion #Wert angezeigt.
Deshalb habe ich Wb dimensioniert und dieser variable ThisWorkbook zugewiesen.
Anscheinend läuft dann der Code mit
With Wb.Wks
...
End With
nicht korrekt, so dass ich als Ergebnis der Funktion wieder #Wert erhalte.
Wie muss ich den Code anpassen, damit ich keinen Fehlerwert erhalte?
Danke
Peter
Public Function verborgener_Wert(rngZelle As Range, Bereichsnamen As String, dummy As Date) As String
'gibt den absoluten Wert der Zellen mit Beträgen, die ausgeblendet sind innerhalb eines definierten Ranges zurück
Dim Wb As Workbook, Wks As Worksheet, Zelle As Range, rng As Range, strVersteckte As Boolean, dblBetrag As Double
Set Wb = ThisWorkbook
Set Wks = rngZelle.Parent
dblBetrag = 0
With Wb.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
dblBetrag = dblBetrag + Abs(Zelle.Value)
End If
End If
End If
Next
End With
verborgener_Wert = dblBetrag
End Function