🤔hmm, vielleicht können/wollen wir zwei uns da mal kurzschließen? Bin sicher, das lässt sich machen! Siehe unten:    ... Mehr anzeigen

@Stuttgart74 ich vermute, dass du aus Versehen einen normalen Punkt mit ausgetauscht hast und daher falsche Werte berechnet wurden (die Dinger sehen sich aber auch **bleep** ähnlich!)     Hier einmal der aktualisierte Abschnitt ("Sub") zum kopieren und Austauschen am Stück:   Sub Get_ESt_Tarif() Dim objHTTP As Object Dim objHTML As Object Dim objListOfElements As Object Dim strURL As String Dim strGrundfreibetrag As String Dim strStufe2 As String Dim strStufe2Var1 As String Dim strStufe2Var2 As String Dim strStufe3 As String Dim strStufe3Var1 As String Dim strStufe3Var2 As String Dim strStufe3Var3 As String Dim strStufe4 As String Dim strStufe4Var1 As String Dim strStufe5Var1 As String strURL = "https://www.gesetze-im-internet.de/estg/__32a.html" Set objHTTP = CreateObject("MSXML2.XMLHTTP") objHTTP.Open "GET", strURL, False objHTTP.Send Do While objHTTP.Status <> 200 DoEvents If objHTTP.Status > 400 Then Exit Sub Loop Set objHTML = CreateObject("htmlfile") objHTML.body.innerHTML = objHTTP.responseText Set objListOfElements = objHTML.getElementsByTagName("dd") '1. strGrundfreibetrag = objListOfElements.Item(0).ChildNodes.Item(0).innerText strGrundfreibetrag = Replace(strGrundfreibetrag, " ", "") strGrundfreibetrag = Right(strGrundfreibetrag, Len(strGrundfreibetrag) - (InStr(1, strGrundfreibetrag, "bis") + 2)) strGrundfreibetrag = Left(strGrundfreibetrag, InStr(1, strGrundfreibetrag, "Euro") - 1) '2. strStufe2 = objListOfElements.Item(1).ChildNodes.Item(0).innerText strStufe2 = Replace(strStufe2, " ", "") strStufe2 = Right(strStufe2, Len(strStufe2) - (InStr(1, strStufe2, "bis") + 2)) strStufe2 = Left(strStufe2, InStr(1, strStufe2, "Euro") - 1) strStufe2Var1 = objListOfElements.Item(1).ChildNodes.Item(1).innerText strStufe2Var1 = Replace(Replace(Replace(strStufe2Var1, " ", ""), ";", ""), ".", "") strStufe2Var2 = strStufe2Var1 strStufe2Var1 = Right(strStufe2Var1, Len(strStufe2Var1) - 1) strStufe2Var1 = Left(strStufe2Var1, InStr(1, strStufe2Var1, "•") - 1) strStufe2Var2 = Right(strStufe2Var2, Len(strStufe2Var2) - InStr(strStufe2Var2, "+")) strStufe2Var2 = Left(strStufe2Var2, InStr(1, strStufe2Var2, ")") - 1) '3. strStufe3 = objListOfElements.Item(2).ChildNodes.Item(0).innerText strStufe3 = Replace(strStufe3, " ", "") strStufe3 = Right(strStufe3, Len(strStufe3) - (InStr(1, strStufe3, "bis") + 2)) strStufe3 = Left(strStufe3, InStr(1, strStufe3, "Euro") - 1) strStufe3Var1 = objListOfElements.Item(2).ChildNodes.Item(1).innerText strStufe3Var1 = Replace(Replace(Replace(strStufe3Var1, " ", ""), ";", ""), ".", "") strStufe3Var2 = strStufe3Var1 strStufe3Var3 = strStufe3Var1 strStufe3Var1 = Right(strStufe3Var1, Len(strStufe3Var1) - 1) strStufe3Var1 = Left(strStufe3Var1, InStr(1, strStufe3Var1, "•") - 1) strStufe3Var2 = Right(strStufe3Var3, Len(strStufe3Var3) - InStr(strStufe3Var3, "+")) strStufe3Var2 = Left(strStufe3Var2, InStr(1, strStufe3Var2, ")") - 1) strStufe3Var3 = Right(strStufe3Var3, Len(strStufe3Var3) - InStrRev(strStufe3Var3, "+")) '4. strStufe4 = objListOfElements.Item(3).ChildNodes.Item(0).innerText strStufe4 = Replace(strStufe4, " ", "") strStufe4 = Right(strStufe4, Len(strStufe4) - (InStr(1, strStufe4, "bis") + 2)) strStufe4 = Left(strStufe4, InStr(1, strStufe4, "Euro") - 1) strStufe4Var1 = objListOfElements.Item(3).ChildNodes.Item(1).innerText strStufe4Var1 = Replace(Replace(Replace(strStufe4Var1, " ", ""), ";", ""), ".", "") strStufe4Var1 = Right(strStufe4Var1, Len(strStufe4Var1) - InStr(1, strStufe4Var1, "x") - 1) '5. strStufe5Var1 = objListOfElements.Item(4).ChildNodes.Item(1).innerText strStufe5Var1 = Replace(Replace(Replace(strStufe5Var1, " ", ""), ";", ""), ".", "") strStufe5Var1 = Right(strStufe5Var1, Len(strStufe5Var1) - InStr(1, strStufe5Var1, "x") - 1) dblGrundfreibetrag = strGrundfreibetrag dblStufe2 = strStufe2 dblStufe2Var1 = strStufe2Var1 dblStufe2Var2 = strStufe2Var2 dblStufe3 = strStufe3 dblStufe3Var1 = strStufe3Var1 dblStufe3Var2 = strStufe3Var2 dblStufe3Var3 = strStufe3Var3 dblStufe4 = strStufe4 dblStufe4Var1 = strStufe4Var1 dblStufe5Var1 = strStufe5Var1 End Sub   ... Mehr anzeigen

... hey @Stuttgart74, freut mich, dass es endlich mal jemand probiert!   Ursache: Im Gesetzestext auf der Website, auf die zurückgegriffen wird, ist das Multiplikationssymbol (nach dem der Code unter anderem sucht, um zu "verstehen" welche Zeichen was sind) geändert worden. Deshalb highlighted der Debugger auch die Codezeile, die nach dem Multiplikationspunkt  sucht - weil er den nicht findet (am Ende der gelben Zeile, das Zeichen zwischen den Anführungsstrichen).   Lösung: Gehe auf die Seite www.gesetze-im-internet.de > rufe den Tarif (32a EStG) auf, kopiere dort einen der Multiplikationspunkte und ersetze den bisher im Code verwendeten Multiplikationspunkt mit dem aktuellen Zeichen (müsste an mehreren Stellen vorkommen).   Sag gerne Bescheid, obs klappt oder nicht oder falls du noch Fragen hast! ... Mehr anzeigen

Das Geld für den Konverter kann man sich m.E. sparen, indem man mal versucht @chatGPT:   "Schreibe mir ein [VBA/Python/was auch immer] Skript, um Bankdaten im CAMT.053 Format zu einer .csv-Datei umzuwandeln, die dem DATEV-Format für den ASCII-Import von Buchungssätzen entspricht. Das FiBu-Konto für die importiere Bank ist [1200/1800/Eingabeaufforderung/was auch immer]".   Alternativ direkt ein Tool (z.B. als Office-Add-In) schreiben lassen, welches unter Verwendung der DATEV-API (m.E. "Create an accounting Sequenze") die Buchungen direkt in die FiBu des entsprechenden Mandanten schreibt. ... Mehr anzeigen

... kognitive KI? Ich bin skeptisch. Das, was da im Video gezeigt wird, lässt sich m.E. sogar mit Microsoft Bordmitteln automatisieren. Richtig spannend wären natürlich erst komplexere Anwendungsfälle. ... Mehr anzeigen

Fürs Verständnis: Werden die Platzhalter auch aus der individuellen Anlage gelöscht oder "nur" die Verknüpfung zum Formularfeld gelöst? ... Mehr anzeigen

Ah, perfekt! Ich hatte "create new document" gedanklich nicht mit "upload a single file" in Verbindung gebracht - aber ja, da stehts. Jetzt läufts auch 😊    Es ging mir dabei um die Möglichkeit, massenhaft Belege ablegen und mittels der erhaltenen ID mit den aus einem eigenen Programm erzeugten Buchungssätzen in der Fibu als Beleg-Link verknüpfen zu können - in diesem Fall für Mandanten, die Unternehmen-Online nicht nutzen, daher dieser Weg.   @flange Danke für die Unterstützung ... Mehr anzeigen

... und jetzt versuche ich, die Verwirrung perfekt zu machen und sage: Alle auf Kontenebene dargestellte Werte sind immer Nettowerte.   Ich gehe davon aus, dass Sie @seb_ms gar keinen steuerlichen Background haben, sondern Softwareentwickler oder jedenfalls "IT-ler" sind - daher versuche ich es einmal vereinfachend zu sagen:   Nach meinem Verständnis besteht das Ziel darin, die Buchungen aus DATEV in ein anderes System zu bekommen. Davon ausgehend, dass die FiBu in DATEV bisher rechtlich zutreffend angefertigt wurde, können Sie m.E. daher die Werte lt. Konten genau so exportieren, wie sie sind.   Die Kontenfunktionen/Steuerschlüssel zeigen lediglich, was passiert, wenn man das jeweilige Konto in DATEV mit einem Bruttobetrag bebucht - dieser wird dann bspw. automatisch in einen auf dem Konto landenden Nettobetrag und dem auf einem USt-Konto landendem Umsatzsteuerbetrag aufgeteilt.    Im Rechnungswesen (egal ob HGB oder Steuerrecht oder IFRS etc.) werden i.d.R. immer nur Nettowerte ausgewiesen, da die bei Anschaffung eines Vermögensgegenstandes (vgl. § 9b EStG) oder bei Verausgabung/Vereinnahmung eines Geldbetrages anfallende Umsatzsteuer vereinfachend gesprochen nicht zum Vermögen des Unternehmers gehört, sondern eine Zahlungsverpflichtung gegenüber dem Finanzamt begründet.   Falls etwas aber mit dem Bruttobetrag eingebucht wurde, ohne die USt zu ziehen/abzuführen, dann könnte das durchaus richtig sein, falls z.B. im jeweiligen Sachverhalt keine USt abgezogen werden kann.   Kurz: Nach meinem Verständnis Ihrer Bedürfnisse, dürften Sie alle Werte aus DATEV ReWe ungeachtet jeglicher Kontenfunktionen einfach genau so wie sie sind übernehmen können/müssen.   Liebe Grüße   EDIT:   Anstelle von "Buchungsstapel" dafür einfach "Kontobuchungen" oder "Buchungsprotokoll" exportieren, da sind dann alle Buchungen aufgelistet, sowohl der ursprüngliche Bruttoeingabebetrag als alle im Rahmen einer erwaigen Automatik angebuchten Konten mit den jeweiligen Beträgen. Zuordnung der "Einzelteile" einer jeden Buchung ist über die "BSNr." (Buchungssatznr.) möglich; Stapelzuordnung über "Vorlauf-" bzw. "Stapel-Nr." - ggf. nötige Umformungen dieser Daten lassen sich m.E. auch ohne weiteres schon mittels Excel vornehmen, falls erforderlich. ... Mehr anzeigen

Für den Fall, dass es noch jemanden interessiert: Die "Euro-Referenzkurs" Daten entsprechen weder dem Devisenkassamittelkurs der Bundesbank, noch dem der EZB - auch da gibt es noch mal kleine Unterschiede. Die EZB stellt z.B. hier https://www.ecb.europa.eu/rss/fxref-usd.html immer die aktuellen Wechselkurse EUR/USD der letzten Tage bereit.   Verglichen mit dem von DATEV bereitgestellten "EURO-Referenzkurs" ergeben sich beispielhaft folgende Abweichungen:   DATUM EZB DATEV DIFF 11.11.2024 1.0651 1.0662 0,0011 12.11.2024 1.0617 1.0619 0,0002 13.11.2024 1.0629 1.0638 0,0009 14.11.2024 1.0533 1.0529 -0,0004   Oder auch schön:    DATUM EZB DATEV DIFF 31.12.2023 1.105000 1.10770 0,0027   Das sind über 0,2%!   D.h. wenn ich zum 31.12.2023 Fremdwährungspositionen i.H.v. 10 Mio. USD habe, dann macht das etwas über 22 TEUR Unterschied aus...   Und dann ist da noch die Entscheidung des FG Hessen (Urt. v. 26.10.2023 – 7 K 854/20, EFG 2024, 842): Leitsatz 1: "Die in Euro zu ermittelnden Anschaffungskosten einer in einer Fremdwährung begründeten Forderung [...] sind anhand des bei Entstehen der Forderung geltenden Referenzkurses der EZB zu bewerten. Eine davon abweichende Ermittlung des Umrechnungskurses [...] ist unzulässig."   Leitsatz 2: "Ist ausländische [...] Quellensteuer auf die inländische Steuer anzurechnen [...], ist die Quellensteuer mit dem im Zeitpunkt der Einbehaltung geltenden Referenzkurs der EZB umzurechnen. [...]"   Führt das dazu, dass der DATEV-Währungsumrechnungsassistent deshalb völlig nutzlos ist, weil er zu einer nicht ordnungsgemäßen Umrechnung führt? 🤔   Ist es dann mit der von der DATEV angebotenen Software überhaupt möglich, eine ordnungsgemäße Buchhaltung in Fremdwährung abzubilden? 🤐   Puh...  ... Mehr anzeigen

Falls nicht doch noch jemand eine Lösung kennt (ich weiß z.B. nicht, ob man die Ansicht ggf. schon in DATEV irgendwie anpassen kann), dann würde ich hilfsweise vorschlagen, die Daten aus Rechnungswesen nach Excel zu exportieren und dort ein Makro für die Umformung zu schreiben. Dann können die Daten in Excel verarbeitet und - davon ausgehend, dass das Fremdsystem CSV importiert - für den Import z.B. als CSV gespeichert werden.   Dann ist die Datenübergabe ans Fremdsystem zwar immer noch manuell, aber das "Nacharbeiten" ist dann wenigstens in 3 Sekunden erledigt. Falls Interesse besteht, gerne melden. ... Mehr anzeigen

... aber die Rohrzange ist kostenlos 😉 ... Mehr anzeigen

Das Papier einscannen, mit oder ohne OCR.   Dann unter Windows 10 oder 11 (bei letzterem standardmäßig installiert) mal PowerAutomate testen. Da kann man Arbeitsabläufe recht leicht automatisieren und Windows verfügt seit neuestem über super starke Zeichenerkennung - d.h. man würde einen Workflow anlegen, bei dem das pdf vom Scanner kommend geöffnet wird, die Zeichen erkannt werden (aka OCR drüberlaufen lassen) und die Daten in Excel geschrieben und dann als csv gespeichert werden. Wie gut das läuft sieht man, wenn man mit dem neuen Snipping-Tool spaßeshalber mal die "Sicherheitsabfrage" aus dem Bundesanzeiger, die immer vor der Anzeige eines Jahresabschlusses kommt (a la "HG4jk3!") absnippt und dann auf "zu Text konvertieren" (oder so ähnlich) klickt - selbst DAS wird fehlerfrei erkannt.   Alternativ die in Word eingebaute OCR-Funktion nutzen, indem du das PDF per Rechtsklick > Öffnen mit anderem Programm > Word öffnest, dann Strg + A und alles nach Excel und dann per =LINKS() =RECHTS() =FINDEN() eine Formel bauen, die das anständig ausliest. Wenn man kann, kann man letzteres auch zB per VBA automatisieren (habe ich neulich für die von der Bank kommenden Wertpapierabrechnungen gemacht, läuft einwandfrei, ca. 6 Sekunden pro Beleg inkl. Abruf der steuerlich relevanten Daten über die ISIN aus dem Netz). ... Mehr anzeigen

Natürlich, der Klassiker: Der gewerbliche Erbbaurechtshändler!   Bei dem wäre der GruBo AV, aber das Gebäude UV!   ... @christiankunz oder welche Konstellationen gibt es da noch?   PS: Laut Sachverhalt geht es um die Erschließung eines unbebauten Grundstückes, das sich im AV befindet. Die Kosten der erstmaligen Erschließung sind aber - jedenfalls steuerrechtlich - immer dem GruBo zuzurechnen und nicht den HK eines noch zu errichtenden Gebäudes. ... Mehr anzeigen

1. Ich habe keine Ahnung.   2. Hast du das mal gegoogelt?   Fließen die Erschließungskosten nicht in die AK des GruBo?   Anlagen im Bau ist mE - mangels Anlagen - einfach falsch. Liegt denn schon ein Bescheid mit Kostennennung vor? Andernfalls halte ich die Bildung einer Verbindlichkeit mangels konkretisierter Verpflichtung auch für unzulässig. Rückstellung ist jedenfalls steuerrechtlich unzulässig, weil zukünftig AK und handelsrechtlich kann man das wohl auch so sehen (vgl. https://datenbank.nwb.de/Dokument/257993/).   In dem Fall vielleicht einfach mal nichts machen 🙂 Bin aber gespannt, ob/was wer anders noch sagt. ... Mehr anzeigen

Moin @vogtsburger,   also das Problem habe ich ja in der Praxis noch nie gehabt! Und ehrlich gesagt, sollte sowas bei anständigem Lauf der Dinge auch nicht auftre....   Okay, Spaß beiseite: Ist das noch aktuell? Sowohl ein "AutoHotkey" vergleichbares Tool auf Basis von Excel/VBA, ein ganz eigenes Excel-Tool hierzu oder - vielleicht nutzen Sie Windows11? -    eine Lösung über Power Automate wären ebenso möglich, wie ein Tool zur automatischen Anpassung der eingehenden Rohdaten vor Import.   Liebe Grüße   Lucas ... Mehr anzeigen

@vogtsburger ,   bitte gerne, bin auch gespannt - geben Sie mal Bescheid!   Auf ähnliche Weise lassen sich übrigens auch Abrufe für Bodenrichtwerte, Wertpapiere, Wechselkurse, Lebenserwartungen sowie sämtliche Faktoren und Werte des Bewertungsgesetzes in handliche Excel-Formeln verpacken...   Der Vorteil solcher Lösungen liegt - neben der Aktualität - auch darin, dass die Funktionen relativ einfach kanzleiweit in allen Excel-Mappen verfügbar gemacht werden können. ... Mehr anzeigen

Hallo zusammen,   der Hinweis auf die Seite Gesetze-im-Internet ist gut, die könnte man nutzen, um die Excel-Formel nicht von Hand updaten zu müssen. Dafür könnten die Daten von der Website ausgelesen und zur Berechnung verwendet werden.   Dafür könnte man mittels VBA eine eigene Funktion in Excel erstellen (sog. "user defined function").   Die könnte dann z.B. FESTZUSETZENDE_EST( ) heißen und die festzusetzende Einkommensteuer für das in Bezug genommene zvE errechnen. Dabei könnte man einen optionalen Parameter für den Splittingtarif mitgeben, sodass bspw. FESTZUSETZENDE_EST(50.000,00;FALSCH) = 10.906,- und FESTZUSETZENDE_EST(50.000,00;WAHR) = 6.115,- wobei FALSCH und WAHR auch mit 0 und 1 ersetzt werden könnten.   Diese Funktion könnte dann bei jedem Aufruf der Arbeitsmappe, in der sie verwendet wird, einmal im Hintergrund "ins Internet gehen" und die Tarif-Eckdaten von der vom BMJ gepflegten und stets aktuellen Seite abrufen. Das funktioniert jedenfalls solange, wie sich die Struktur der Seite oder der Gesetzeswortlaut nicht ändert.   Der in einem Modul im Visual-Basic-Editor (alt+F11, oben links auf "DieseArbeitsmappe" rechtsklicken > Einfügen > Modul) in Excel einzufügende Code könnte z.B. so aussehen:   Option Explicit Public dblGrundfreibetrag As Double Public dblStufe2 As Double Public dblStufe2Var1 As Double Public dblStufe2Var2 As Double Public dblStufe3 As Double Public dblStufe3Var1 As Double Public dblStufe3Var2 As Double Public dblStufe3Var3 As Double Public dblStufe4 As Double Public dblStufe4Var1 As Double Public dblStufe5Var1 As Double Public dblSolZFreigrenze As Double Function FESTZUSETZENDE_EST(dblZVE As Double, Optional blnSPLITTING As Boolean) As Double Dim x As Double Dim y As Double Dim z As Double Dim dblESt As Double 'Prüfen, ob aktueller Tarif für diese Sitzung bereits abgerufen wurde If dblGrundfreibetrag = 0 Then Call Get_ESt_Tarif End If If blnSPLITTING Then dblZVE = dblZVE / 2 x = WorksheetFunction.RoundDown(dblZVE, 0) y = (x - dblGrundfreibetrag) / 10000 z = (x - dblStufe2) / 10000 Select Case dblZVE Case Is <= dblGrundfreibetrag dblESt = 0 Case Is <= dblStufe2 dblESt = (dblStufe2Var1 * y + dblStufe2Var2) * y Case Is <= dblStufe3 dblESt = (dblStufe3Var1 * z + dblStufe3Var2) * z + dblStufe3Var3 Case Is <= dblStufe4 dblESt = 0.42 * x - dblStufe4Var1 Case Else 'Stufe 5 dblESt = 0.45 * x - dblStufe5Var1 End Select If blnSPLITTING Then dblESt = 2 * dblESt FESTZUSETZENDE_EST = WorksheetFunction.RoundDown(dblESt, 0) End Function Function FESTZUSETZENDER_SOLZ(dblESt As Double, Optional blnSPLITTING As Boolean) As Double If dblSolZFreigrenze = 0 Then Call Get_SolZ_Freigrenze End If If blnSPLITTING Then If dblESt <= 2 * dblSolZFreigrenze Then dblESt = 0 Else If dblESt <= dblSolZFreigrenze Then dblESt = 0 End If FESTZUSETZENDER_SOLZ = 0.055 * dblESt End Function Sub Get_ESt_Tarif() Dim objHTTP As Object Dim objHTML As Object Dim objListOfElements As Object Dim strURL As String Dim strGrundfreibetrag As String Dim strStufe2 As String Dim strStufe2Var1 As String Dim strStufe2Var2 As String Dim strStufe3 As String Dim strStufe3Var1 As String Dim strStufe3Var2 As String Dim strStufe3Var3 As String Dim strStufe4 As String Dim strStufe4Var1 As String Dim strStufe5Var1 As String strURL = "https://www.gesetze-im-internet.de/estg/__32a.html" Set objHTTP = CreateObject("MSXML2.XMLHTTP") objHTTP.Open "GET", strURL, False objHTTP.Send Do While objHTTP.Status <> 200 DoEvents If objHTTP.Status > 400 Then Exit Sub Loop Set objHTML = CreateObject("htmlfile") objHTML.body.innerHTML = objHTTP.ResponseText Set objListOfElements = objHTML.getElementsByTagName("dd") '1. strGrundfreibetrag = objListOfElements.Item(0).ChildNodes.Item(0).innerText strGrundfreibetrag = Replace(strGrundfreibetrag, " ", "") strGrundfreibetrag = Right(strGrundfreibetrag, Len(strGrundfreibetrag) - (InStr(1, strGrundfreibetrag, "bis") + 2)) strGrundfreibetrag = Left(strGrundfreibetrag, InStr(1, strGrundfreibetrag, "Euro") - 1) '2. strStufe2 = objListOfElements.Item(1).ChildNodes.Item(0).innerText strStufe2 = Replace(strStufe2, " ", "") strStufe2 = Right(strStufe2, Len(strStufe2) - (InStr(1, strStufe2, "bis") + 2)) strStufe2 = Left(strStufe2, InStr(1, strStufe2, "Euro") - 1) strStufe2Var1 = objListOfElements.Item(1).ChildNodes.Item(1).innerText strStufe2Var1 = Replace(Replace(Replace(strStufe2Var1, " ", ""), ";", ""), ".", "") strStufe2Var2 = strStufe2Var1 strStufe2Var1 = Right(strStufe2Var1, Len(strStufe2Var1) - 1) strStufe2Var1 = Left(strStufe2Var1, InStr(1, strStufe2Var1, "·") - 1) strStufe2Var2 = Right(strStufe2Var2, Len(strStufe2Var2) - InStr(strStufe2Var2, "+")) strStufe2Var2 = Left(strStufe2Var2, InStr(1, strStufe2Var2, ")") - 1) '3. strStufe3 = objListOfElements.Item(2).ChildNodes.Item(0).innerText strStufe3 = Replace(strStufe3, " ", "") strStufe3 = Right(strStufe3, Len(strStufe3) - (InStr(1, strStufe3, "bis") + 2)) strStufe3 = Left(strStufe3, InStr(1, strStufe3, "Euro") - 1) strStufe3Var1 = objListOfElements.Item(2).ChildNodes.Item(1).innerText strStufe3Var1 = Replace(Replace(Replace(strStufe3Var1, " ", ""), ";", ""), ".", "") strStufe3Var2 = strStufe3Var1 strStufe3Var3 = strStufe3Var1 strStufe3Var1 = Right(strStufe3Var1, Len(strStufe3Var1) - 1) strStufe3Var1 = Left(strStufe3Var1, InStr(1, strStufe3Var1, "·") - 1) strStufe3Var2 = Right(strStufe3Var3, Len(strStufe3Var3) - InStr(strStufe3Var3, "+")) strStufe3Var2 = Left(strStufe3Var2, InStr(1, strStufe3Var2, ")") - 1) strStufe3Var3 = Right(strStufe3Var3, Len(strStufe3Var3) - InStrRev(strStufe3Var3, "+")) '4. strStufe4 = objListOfElements.Item(3).ChildNodes.Item(0).innerText strStufe4 = Replace(strStufe4, " ", "") strStufe4 = Right(strStufe4, Len(strStufe4) - (InStr(1, strStufe4, "bis") + 2)) strStufe4 = Left(strStufe4, InStr(1, strStufe4, "Euro") - 1) strStufe4Var1 = objListOfElements.Item(3).ChildNodes.Item(1).innerText strStufe4Var1 = Replace(Replace(Replace(strStufe4Var1, " ", ""), ";", ""), ".", "") strStufe4Var1 = Right(strStufe4Var1, Len(strStufe4Var1) - InStr(1, strStufe4Var1, "x") - 1) '5. strStufe5Var1 = objListOfElements.Item(4).ChildNodes.Item(1).innerText strStufe5Var1 = Replace(Replace(Replace(strStufe5Var1, " ", ""), ";", ""), ".", "") strStufe5Var1 = Right(strStufe5Var1, Len(strStufe5Var1) - InStr(1, strStufe5Var1, "x") - 1) dblGrundfreibetrag = strGrundfreibetrag dblStufe2 = strStufe2 dblStufe2Var1 = strStufe2Var1 dblStufe2Var2 = strStufe2Var2 dblStufe3 = strStufe3 dblStufe3Var1 = strStufe3Var1 dblStufe3Var2 = strStufe3Var2 dblStufe3Var3 = strStufe3Var3 dblStufe4 = strStufe4 dblStufe4Var1 = strStufe4Var1 dblStufe5Var1 = strStufe5Var1 End Sub Sub Get_SolZ_Freigrenze() Dim objHTTP As Object Dim objHTML As Object Dim objListOfElements As Object Dim objElement As Object Dim strURL As String Dim strSolZFreigrenze As String strURL = "https://www.gesetze-im-internet.de/solzg_1995/__3.html" Set objHTTP = CreateObject("MSXML2.XMLHTTP") objHTTP.Open "GET", strURL, False objHTTP.Send Do While objHTTP.Status <> 200 DoEvents If objHTTP.Status > 400 Then Exit Sub Loop Set objHTML = CreateObject("htmlfile") objHTML.body.innerHTML = objHTTP.ResponseText Set objListOfElements = objHTML.getElementsByTagName("dd") strSolZFreigrenze = objListOfElements.Item(9).ChildNodes.Item(0).innerText strSolZFreigrenze = Replace(strSolZFreigrenze, " ", "") strSolZFreigrenze = Replace(Right(strSolZFreigrenze, Len(strSolZFreigrenze) - Len("inanderenFällen")), "Euro", "") dblSolZFreigrenze = strSolZFreigrenze End Sub     Danach den Visual-Basic-Editor schließen.   In Excel ist jetzt die Funktion =FESTZUSETZENDE_EST( ) verfügbar.   Bei Fragen gerne Fragen.   Liebe Grüße   Lucas   ... Mehr anzeigen

Wir haben das gleiche Problem.   Soweit es "nur" um den Ausweis im JA geht, ist das m.E. am einfachsten durch eine Änderung der entsprechenden Kontenzwecke zu bewerkstelligen. In Kanzlei-Rewe: Stammdaten > Sachkonten > Kontenzweck (dafür müssen alle Buchungsstapel, Jahresabschlussauswertung etc. geschlossen sein).   Der Kontenzweck muss dann aus dem Bereich "Rücklagen" auf eine Zuordnung aus dem Bereich "Kapitalanteile (KapCo)" geändert werden, dann passt der Ausweis (auch im Kontennachweis).   Schnell ausdrucken und dann für die E-Bilanz wieder ändern... ... Mehr anzeigen