Fügen Sie die folgenden benutzerdefinierten Funktionen (UDF) in ein Standardmodul ein:
Public Function deflime(J3 As Variant, x As Variant) As Double deflime = 0 result = (J3 + x) / 150 For i = 1 To 9999 deflime = deflime + result If result <= 1 Then Exit Function End If result = x * result / 150 Next i End Function
Benutzerdefinierte Funktionen (UDFs) sind sehr einfach zu installieren und zu verwenden:
- ALT-F11 öffnet das VBE-Fenster
- ALT-I ALT-M öffnet ein neues Modul
- Fügen Sie das Zeug ein und schließen Sie das VBE-Fenster
Wenn Sie die Arbeitsmappe speichern, wird die UDF damit gespeichert. Wenn Sie später als 2003 eine Version von Excel verwenden, müssen Sie die Datei als .xlsm statt als .xlsx speichern
So entfernen Sie die UDF:
- Öffnen Sie das VBE-Fenster wie oben
- Löschen Sie den Code
- Schließen Sie das VBE-Fenster
So verwenden Sie die UDF aus Excel:
=deflime(A1,B1)
Weitere Informationen zu Makros im Allgemeinen finden Sie unter:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
und
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
und Einzelheiten zu UDFs finden Sie unter:
http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx
Makros müssen aktiviert sein, damit dies funktioniert!
Hier ist ein Beispiel: