Code optimieren
10.12.2012 21:28:13
Andy
ich versuche mich zur Zeit in VBA, und möchte das die letzte Zeile immer gelöscht wird und neu berechnet wird. Die ersten Zeilen sollen automatisch eine Überschrift bekommen außer die Spalte A
Und in Spalte A sind Zahlenreihen die bis zur letzten Zeile in den Spalten B C D automatisch bis zur letzten eingetragenen Zeile A Berechnet werden soll.
Spalte A hat Überschrift "Gehalt"
Spalte B soll Überschrift "Steuersatz"
Spalte C soll Überschrift "Steuerbetrag" und
Spalte D soll Überschrift "GehaltMinusSteuerbetrag" bekommen
Ist für euch sicher kein Problem, bekomme es gerade nicht hin.
Vielen Dank im Voraus!!
P.S. wenn Ihr Optimierungen für den Code habt nehme ich Vorschläge gerne an.
Sub Steuersatz()
Dim Gehalt As Single
Dim Steuersatz As Single
Dim Steuerbetrag As Single
Dim GehaltMinusSteuerbetrag As Single
Dim i As Integer
Dim Zellen As Range
ThisWorkbook.Worksheets("Tabelle3").Activate
i = 1
For Gehalt = 0 To 0
If Gehalt