1. Der Katalog eines E-Shops muß dem Kunden nicht zugesandt werden.
2. Aktualisierungen des Katalogs eines E-Shops können jederzeit den Kunden bekannt gemacht werden.

1. Keine Prüfung der Auktionsware
2. Unsicherheit der Lieferung
3. Unsicherheit der Zahlung
4. Transportkosten werden vom Verkäufer bestimmt
5. Unmöglichkeit des Bietens aufgrund schlechter Internet-Verbindung

• Es sind nur Bestandskonten zu betrachten.
• Es gibt kein EBK und kein SBK.
• Bilanzpositionen und Konten, die in einer Aufgabe nicht benötigt werden, erhalten den Wert Null zugewiesen und werden trotzdem im Hauptbuch aufgeführt.
• Es werden immer 10 Buchungssätze eingegeben.
• Nicht benötigte Positionen erhalten den Wert Null zugewiesen.
• Es sind stets alle Konten abzuschließen, auch solche, die keine Buchung aufweisen.
• Verwende als Grundlage der Orientierung die von Karl-Heinz Weidlich vorgelegte EXCEL-Tabelle.

Bei der linearen Abschreibung darf der Anschaffungswert des Vermögensgegenstands über die gesamte anerkannte Nutzungsdauer hinweg in gleichen Jahresbeträgen abgeschrieben werden.

Bei der degressiven Abschreibung wird in jedem Jahr der anerkannten Nutzungsdauer ein gleichbleibender Prozentsatz vom Anschaffungswert des Vermögensgegenstands abgeschrieben. Das Steuergesetz bestimmt für diesen Prozentsatz, daß er das dreifache des entsprechenden Prozentsatzes bei linearer Abschreibung nicht überschreiten darf und gleichzeitig höchstens 30 Prozent betragen darf. Der Umstieg von degressiver zu linearer Abschreibung ist einmal zulässig; umgekehrt nicht. Wenn der Umstieg erfolgt, dann berechnet sich die lineare Abschreibung in gleichen Jahresbeträgen vom Restwert des Vermögensgegenstand und von der Restnutzungsdauer. Es gibt immer ein Jahr in der Abfolge der Abschreibungen, in dem es aus kaufmännischer Sicht am sinnvollsten ist, umzusteigen.

Schreibe bitte ein Programm in VBA, das einerseits für eine vorgegebene Nutzungsdauer und einen vorgegebenen Anschaffungswert die lineare und die degressive Abschreibung Jahr für Jahr berechnet und den kaufmännisch sinnvollsten Umstieg ermittelt.

Dim restwert As Double
Dim linearerAfasatz As Single
Dim degressiverAfasatz As Single
Dim linearerAfabetrag As Double
Dim degressiverRestwert As Double
Dim degressiverAfabetrag As Double
Dim jahr As Integer
Dim umstiegsAfa As Double

restwert = Anschaffungswert
degressiverRestwert = Anschaffungswert
linearerAfabetrag = Anschaffungswert / Nutzungsdauer
linearerAfasatz = 100 / Nutzungsdauer
degressiverAfasatz = 3 * linearerAfasatz

If degressiverAfasatz > 30 Then degressiverAfasatz = 30

Do

'Zähler für die Abschreibungsjahre
jahr = jahr + 1

'Berechnung der linearen Abschreibung
restwert = restwert - linearerAfabetrag

'Berechnung der degressiven Abschreibung
degressiverAfabetrag = degressiverRestwert * degressiverAfasatz / 100
degressiverRestwert = degressiverRestwert - degressiverAfabetrag

'Ist ein Umstieg sinnvoll?
If jahr <> Nutzungsdauer Then umstiegsAfa = degressiverRestwert / (Nutzungsdauer - jahr)
If umstiegsAfa >= degressiverAfabetrag And umstieg = 0 Then umstieg = jahr

Loop While restwert > 0

End Function