Aus einer Function eine SUB auffrufen
28.12.2005 13:34:19
Franz
Eine Listbox wo der Eintrag "deg" (für degressiv) steht muss automatisch geändert werden in "deg zu lin"
wenn die neue Jahresabschreibung kleiner wird als die vergleichbare lineare Abschreibung.
Aus nachstehender Funktion soll der "Call SUB..." diesen Listeneintrag aktualisieren.
Was mache ich falsch.
Nachstehend die Excel-Tabelle für ein besseres Verständnis:
https://www.herber.de/bbs/user/29555.xls
Function funcAfA(AfaTyp, DummyWert, ZeilenWert)
'So werden natürlich keine Abschreibungen gerechnet.
'mir geht es lediglich darum wie man erfolgreich die
Sub Umstellung_auf_linear_in_Lixtbox_korrigieren() aufruft
Select Case AfaTyp
Case "lin"
funcAfA = DummyWert
Case "deg"
funcAfA = DummyWert
If DummyWert > 20000 Then
Call Umstellung_auf_linear_in_Lixtbox_korrigieren(ZeilenWert)
End If
End Select
End Function
Sub Umstellung_auf_linear_in_Lixtbox_korrigieren(ZeilenWert)
Cells(ZeilenWert, 1).Value = "deg zu lin"
End Sub
Tschüss.
Franz D.