Hallo Archilleus, haben Sie vielen, vielen Dank! Das funktioniert hervorragend. Eine massive Arbeitserleichterung! Noch zwei kleine Tipps in die Runde: 1. Wenn der Name Ihres Mandanten ein "-" enthält, müssen Sie das "-" in dem in Excel geöffneten Kontoblatt aus dem Namen herauslöschen. Sonst kann das Gegenkonto nicht ermittelt werden, siehe Skript-Zeile (glaube ich zumindest): sTmp = Split(shtSource.cells(1,1),"-") 'Auslesen des GGKto. (Rein zufällig hatte gerade der erste Mandant, wo ich es einmal testen wollte, einen Namen mit Bindestrich.) 2. Eventuell muss S/H vertauscht werden: Statt If shtSource.cells(iRow,cUmsatzSoll) <>"" Then sValue(1) = shtSource.cells(iRow,cUmsatzSoll) sValue(2)="S" Else sValue(1) = shtSource.cells(iRow,cUmsatzHaben) sValue(2)="H" End If sValue(7) = "9000" sValue(8) = GGKto sValue(10) = EB_Datum sValue(11) = Trim(shtSource.cells(iRow,cBelegfeld1)) sValue(12) = Trim(shtSource.cells(iRow,cBelegfeld2)) sValue(14) = Trim(shtSource.cells(iRow,cBuchungstext)) sValue(37) = Trim(shtSource.cells(iRow,cKOST1)) sValue(114) = 0 dann If shtSource.cells(iRow,cUmsatzSoll) <>"" Then sValue(1) = shtSource.cells(iRow,cUmsatzSoll) sValue(2)="H" Else sValue(1) = shtSource.cells(iRow,cUmsatzHaben) sValue(2)="S" End If sValue(7) = "9000" sValue(8) = GGKto sValue(10) = EB_Datum sValue(11) = Trim(shtSource.cells(iRow,cBelegfeld1)) sValue(12) = Trim(shtSource.cells(iRow,cBelegfeld2)) sValue(14) = Trim(shtSource.cells(iRow,cBuchungstext)) sValue(37) = Trim(shtSource.cells(iRow,cKOST1)) sValue(114) = 0 Zumindest war es bei mir so. Kontoblatt war in der Jahresansicht mit auf Standard zurückgesetzter Liste geöffnet. (Hatte es für zwei Konten getestet. Vorhin nur auf den Wert geschaut, nicht auf Soll und Haben; und habe mir nun gerade bei der Abstimmung Konten 9000 - 9009 einen Wolf gesucht ) Das soll jetzt aber kein Klugscheißen sein! Ich hätte nie so ein tolles Skript hinbekommen. VG
... Mehr anzeigen