Clever-Excel-Forum

Einen schönen Sonntag Nachmittag zusammen,

ich habe mal wieder ein kleines Problem, ich hoffe ich kann es verständlich machen.

Ich habe in Excel einen Gebührenrechner (für eine Anwaltskanzlei) programmiert. Die Gebühren werden anhand eines Faktors (z.B. 1,3 also Bsp. 400 € * 1,3) ausgerechnet. Das ganze wird per Serienbrief ausgedruckt.

Jetzt habe ich es son hinbekommen, dass wenn eine Berechnung durchgeführt wurde und die nächste Berechnung (also Rechnung) berechnet werden soll, die alten Felder nicht erst gelöscht werden müssen: Dies klappt mit folgenden Code:

'bei einer neu Berechnung müssen die Felder nicht erst gelöscht werden
If Worksheets("Tabelle1").Cells(16, 3) > 0 And Worksheets("Tabelle1").Cells(6, 19) > 0 And Worksheets("Tabelle1").Cells(14, 21) <> "Ja" Then
Worksheets("Tabelle1").Range("K6:K20").ClearContents
End If

Ist z.B. aber eine Honorarvereinbarung (also ein Festbetrag) ausgemacht, entfällt der Faktor, diese funktioniert mit folgendem Code (cells(6, 19) ist der Faktor):

(Cells(18, 15) ist der Eingabebereich für die Honorarvereinbarung):

'setzt den Faktor bei einer Honorarvereinbarung auf 0 (dieser entfällt hierbei)
If Worksheets("Tabelle1").Cells(18, 15) > 0 Then
 Worksheets("Tabelle1").Cells(6, 19) = 0
End If

Problem hier ist, ich kann hier jetzt keine Neuberechnung durchführen. Die Honorarfelder müssen erst manuell gelöscht werden, ich habe es mit diesem Code versucht:

'HO Neuberechnung
If Worksheets("Tabelle1").Cells(15, 8) > 0 And Worksheets("Tabelle1").Cells(6, 19) > 0 Then
Worksheets("Tabelle1").Range("O18:O22").ClearContents
End If

Es setzt mir den Faktor aber jedesmal wieder auf 0. 

Weiß jemand wie ich das in den Griff bekommen könnte.

Vielen Dank und viel Grüße

Basti

Hallo Basti,

kann ich mir nicht vorstellen. So wie es ausschaut, steht Dein Faktor in F19. Clearen tust Du aber nicht vor Spalte K, entsprechend sollte sich die 1,3 in F19 nicht ändern.

Hi,

bitte entschuldige, ich habe wohl was vergessen. Die Faktorausgabe erfolgt über eine Kombobox und die Ausgabe ist dann in S6.

Bei einer Neuberechnung leeren sich Felder in Spalte K, dies stimmt.

VG

Basti

Hallo Basti,

aber auch in S6 sollte sich nichts tun. Der Code nimmt Daten aus den Spalten K und O weg und nicht aus S6.
Wie und woher holt sich denn Deine Kombobox die Daten und wie kommen die nach S6?

Moin,
da ich mir anhand einiger Code-Fetzen (die auch noch nicht einmal in Code-Tags stehen) kein richtiges Bild machen kann … Warum nicht Faktor 1, dann bleibt es (hoffentlich) bei der ursprünglichen Summe.

Hi Günther,

vermutlich, weil es Gebührensätze laut Rechtsanwaltsvergütungsgesetz oder RVG gibt und die tatsächlichen Kosten eben per Multiplikation mit Faktor berechnet werden.

https://de.wikipedia.org/wiki/Rechtsanwa...ungsgesetz
http://kanzlei-graefe.de/kostenundgebuehren/index.html - Absatz Allgemeines ff

Hi,

vermutlich ist diese Zelle:

Zitat:Cells(18, 15)

immer >0! Das geht ganz einfach:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1		WAHR

Zelle	Formel
A1	=WENN(F1="";"";F1)
B1	=A1>0

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg