Wie kann ich folgendes umsetzen:
Man gibt z.b. in B5 eine Summe ein und in B9 auch. In Abhängigkeit von der Höhe der ersten Summe, erfolgt zu der zweiten Summe eine Berechnung.
Beispiel:
Eingabe in B5 = 250.000 (Deckungssumme)
Eingabe in B9 = 100.000 (Honorar)
So Excel muss nun wissen, das es bei einer Deckungssumme von 250.000 und einem Honorar von 100.000 den Wert 100.000 mit 6,1% multiplizieren muss - das Ergebnis wird in C9 ausgeworfen. Bis hier hin klappt alles Prima und ich weiss auch wie - aber jetzt!
Wenn aber in B5 500.000 Deckungsumme eingegeben wird, muss excel wissen - aha hier muss ich nicht 6,1, sondern 15 % Zuschlag nehmen, und bei 1.000.000 25 % Zuschlag usw. - Das krige ich nicht hin - kann mir jemand helfen? Also drei Stufen:
1. Deckungsumme - 2. Höhe des Honorars 3. Beitrag
Hier der bisherige Code:
Option Explicit
Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim tb As Worksheet
Dim A As Single
Dim B As Single
Set tb = Worksheets("Architekt")
tb.Unprotect Password:="assia"
tb.Protect Password:="assia", UserInterfaceOnly:=True
On Error GoTo Fehler
Application.EnableEvents = False
If Target.Address = "$B$9" Then
If IsNumeric(tb.[B9].Value) Then 'Abfrage, ob Zahl
A = tb.[B9].Value
Select Case A
Case Is <= 25000
B = A * 0.0564
Case Is <= 35000
B = A * 0.0481
Case Is <= 50000
B = A * 0.0393
Case Is <= 75000
B = A * 0.0348
Case Is <= 100000
B = A * 0.032
Case Is <= 150000
B = A * 0.0313
Case Is <= 200000
B = A * 0.028
Case Is <= 250000
B = A * 0.0266
Case Is <= 500000
B = A * 0.024
Case Is <= 750000
B = A * 0.0216
Case Is <= 1000000
B = A * 0.0194
End Select
tb.[C9].Value = Format(Round(B, 2), "#,###.#0 ") 'Ausgabe in Zelle C9
End If
End If
Application.EnableEvents = True
Exit Sub
Fehler:
End Sub
EUCH schon mal Danke!!!