Eigene Function funktioniert liefert #Wert! bei Blattwechsel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sorry,

ich bin neu als Schreiber im Forum.

Public Function monBer(Suchtext As Range, Mon As String) As Single
Dim Spalte As Range, Zeile As Range
Dim aktM As Integer, Spa As Integer, Zei As Integer, tMon As Integer
Dim aktT As String, ZwZ As String
Dim Wert As Single

aktM = Month(Now())
aktT = DateSerial(Year(Now()), aktM, 1)

With Tabelle1
If Len(Mon) > 2 Then
tMon = InStr(1, Mon, aktM) 'auslesen des Monats aus Teilzahlungszeitraum
Else
If Mon = 0 Then
tMon = aktM
Else
tMon = Mon
End If

End If

If Not Suchtext.Font.ColorIndex = 10 Then Exit Function 'aussteigen auf Grund der Textfarbe, damit Berechnung abgebrochen wird
If tMon > aktM Then Exit Function 'aussteigen auf Grund des falschen Monats, damit Berechnung abgebrochen wird
End With

With Tabelle4
Set Spalte = .Rows(3).Find(aktT) 'Spalte des aktuellen Monats in Gesamtübersicht auswählen
Set Zeile = .Columns(2).Find(Suchtext.Value) 'Zeile des aktuellen Empfängers in Gesamtübersicht auswählen

Spa = Spalte.Column
Zei = Zeile.Row

ZwZ = LTrim(Str(.Cells(Zei, Spa).Value))

Select Case ZwZ
Case Is = 0
Wert = .Cells(Zei, Spa - tMon).Value
Case Else
Wert = 0
End Select
End With

monBer = Wert

End Function

Dies ist habe ich bis jetzt zusammen gestellt

VG

Hallo G.L.

deine Formel scheint "relativ" einfach zu sein. Das einzige, was einen Umweg über VBA notwendig macht, ist das Prüfen der Schriftfarbe. Wenn Du nur diese eine Tätigkeit in einer UDF (user defined function) ablagerst, kannst Du mit Exceln formeln arbeiten.

Public Function TextFarbe(ByVal Zelle As Range) As Long

'nur eine Zelle prüfen (die erste)

    TextFarbe = Zelle.Cells(1).Font.ColorIndex

End Function

Wenn Du dann die Lösung mit excel Formeln hast, kannst Du aufbauen.

Ein doppelter Verweis (also Kombination von SVerweis und WVerweis) kann man auch wie folgt implementieren:

Public Function QuerVerweis(ByVal SuchInZeilüberschrift, ByVal Zeilüberschrift As Range, ByVal SuchInSpaltüberschrift, ByVal Spaltüberschrift As Range)

    If TypeOf SuchInZeilüberschrift Is Range Then SuchInZeilüberschrift = SuchInZeilüberschrift.Value

    If TypeOf SuchInSpaltüberschrift Is Range Then SuchInSpaltüberschrift = SuchInSpaltüberschrift.Value

    QuerVerweis = Intersect(Zeilüberschrift.EntireRow, Spaltüberschrift.EntireColumn).Cells( _

        WorksheetFunction.Match(SuchInZeilüberschrift, Zeilüberschrift, 0), _

        WorksheetFunction.Match(SuchInSpaltüberschrift, Spaltüberschrift, 0))

End Function

am Beispiel: =QuerVerweis(A7;$A$2:$A$4;B6;$B$1:$D$1)

VG
Yal

Beliebteste Forumthreads (12 Monate)

Eigene Function funktioniert liefert #Wert! bei Blattwechsel

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eigene Function funktioniert liefert #Wert! bei Blattwechsel

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread