Was mich bewogen hat aus der Community auszutreten ist nicht mein Mangel an Hilfsbereitschaft gewesen, sondern der Mangel bei DATEV die Fehler und Unzulänglichkeiten in den Programmen abzustellen.
Die neue Richtlinie, alles als Minimum Viable Product (MVP) zu erstellen, ist für mich nur eine Ausrede für mangelnden WorkFlow und Programmfehler. Es ist dann nämlich viel einfacher zu sagen, ja machen wir irgendwann einmal, wir wollten nur auf die schnelle ein MVP erstellen. Mit diesem Argument lässt es sich viel leichter mal irgendetwas hinzuprogrammieren; ist ja nur ein MVP.
Was nämlich vergessen wird, ist die Tatsache, dass es zu diesem Programmierstiel eine Menge gegenläufiger Meinungen gibt (s. Wikipedia MVP).
Endgültiger Auslöser für meinen Austritt war, als der neue Jahresabschluss veröffentlicht wurde. Das da eine Menge Fehler enthalten sind, damit könnte ich noch leben. Das aber wieder einmal, am effizienten Arbeiten vorbei entwickelt wurde, ist für mich nicht mehr hinnehmbar. Falsche Entscheidungen hinsichtlich des Workflows (z. B. Mehrkontenansichten zwecks Vergleiche) wurden/werden nicht mehr abgestellt. Das wurde nun klar und eindeutig formuliert. Wie man aber mit diesen verkrüppelten Funktionen vernünftig arbeiten soll ist völlig unklar. Auch die Stati-Bearbeitung ist mehr als blödsinnig programmiert. Ein unbearbeiteter Posten ist immer ungeprüft. Warum also die Stati erst von ungeprüft auf in Arbeit und dann erst auf geprüft wechselt, ist auch eine völlig unplausibel. Sinnvoller und logischer wäre nämlich, wie in der Kontenabstimmliste auch umgesetzt (da war einer mit Verstand!!!), ist nämlich von ungeprüft -> geprüft -> in Arbeit/Nachfragen.
Auch sämtliche Fehler/Unzulänglichkeiten werden jetzt erst einmal auf SanktNimmerleinsTag verschoben, weil man will ja in die Cloud. Das das Jahre, wenn nicht Jahrzehnte dauert, ist doch jedem völlig klar. Und dann wird wieder argumentiert, wenn es nämlich nicht funktioniert, es ist ja nur ein MVP-Programm.
Wie ich in der Vergangenheit mehrmals nachgewiesen habe, wäre es ein leichtes Mehrkomfort mit angemessenen Zeitaufwand zu implementieren. So wurde hier vor kurzem zu Recht moniert, dass es keine Plausibilität gibt mit der Lückenlosigkeit von Ausgangsrechnungen. Das hatte ich auch schon vor zig Jahren festgestellt und auch einmal mit der DATEV besprochen (persönliches Telefonat). Außer einem "das ist ja eine tolle Idee" und einem "wir geben das mal weiter" ist bis heute nichts geschehen.
Hier meine Excel-Lösung für die Nachwelt:
Einfach ein Export der Buchungslisten bzw. Konto:
Sub FindeFehlendeRgNr()
Dim myRangeS As Range, myRangeT As Range, myRangeN As Range
Dim lResult As Long
Dim i As Long, q As Long
Dim lRow As Long
Dim lCol As Long
Dim lStartRow As Long
10 On Error GoTo FindeFehlendeRgNr_Error
If MsgBox("Bitte markieren Sie nur den Bereich aus der Spalte Belegfeld1 den Sie auch prüfen wollen. Leerfelder gelten auch als Prüfrelevant!" & vbNewLine & vbNewLine & "Möchten Sie mit der Prüfung fortfahren?", vbQuestion + vbYesNo, "Prüfung fehlende RgNr.") = vbNo Then Exit Sub
Application.ScreenUpdating = False
Dim oldStatusbar As String
Application.ScreenUpdating = False
oldStatusbar = Application.DisplayStatusBar
DisplayStatusBar = True
20 lRow = Selection.Rows.Count
30 lCol = Selection.Column
40 lStartRow = Selection.Row
50 If ActiveSheet.Rows.Count = lRow Then 'Ganze Spalte markiert
60 lStartRow = lStartRow + 2
70 End If
80 For i = lStartRow To (Selection.Row + lRow - 1)
90 Set myRangeS = ActiveSheet.Cells(i, lCol)
100 Set myRangeT = ActiveSheet.Cells(i + 1, lCol)
'1. Prüfung ob Leerzelle = Ende der Spaltenmarkierung
110 If myRangeS.Value = "" Then Exit Sub
120 lResult = (Val(myRangeT.Value) - Val(myRangeS.Value)) - 1 'Diff. 1 = normal
130 If lResult > 0 Then
140 For q = 0 To lResult - 1
Application.StatusBar = "Prüfe Zeile (" & q & "/" & lResult - 1 & ")"
150 Rows(myRangeT.Row).Insert xlShiftDown
Set myRangeN = ActiveSheet.Cells(myRangeT.Row - 1, lCol)
With myRangeN
.HorizontalAlignment = myRangeS.HorizontalAlignment
.Value = Val(myRangeT.Value) - lResult + q
.Font.Color = 1265207 '1199414
.Font.Italic = True
.Font.Bold = True
With .Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = DATEVColorHell
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With .Borders(xlEdgeLeft)
.LineStyle = xlSolid
.Color = DATEVColorDunkel
.TintAndShade = 0
.Weight = xlMedium
End With
With .Borders(xlEdgeTop)
.LineStyle = xlSolid
.Color = DATEVColorDunkel
.TintAndShade = 0
.Weight = xlMedium
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlSolid
.Color = DATEVColorDunkel
.TintAndShade = 0
.Weight = xlMedium
End With
With .Borders(xlEdgeRight)
.LineStyle = xlSolid
.Color = DATEVColorDunkel
.TintAndShade = 0
.Weight = xlMedium
End With
End With
160 Next
170 i = i + lResult
180 End If
190 Next
Application.ScreenUpdating = True
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusbar
Application.ScreenUpdating = True
MsgBox "Prüfung wurde durchgeführt!"
200 On Error GoTo 0
210 Exit Sub
FindeFehlendeRgNr_Error:
Application.ScreenUpdating = True
220 MsgBox "Fehlernr.: " & Err.Number & " (" & Err.Description & ") in Prozedur FindeFehlendeRgNr von Modul mdlDATEV_Tools", , "Fehler in Zeile: " & Erl
End Sub
Oder die ewige Verweigerungshaltung der DATEV, Exporte so zu ermöglichen (ggf. Optional), dass man diese auch in Excel weiter berechnen kann. So ist ein eigenes S/H-Feld nicht wirklich sinnreich. Schöner wäre es für die tägliche Arbeit, wenn diese als Zahlenformat exportiert werden würde. Das ist es doch, was man täglich braucht. Aber auch hier muss der Anwender wieder selbst immer wieder tätig werden.
Meine Lösung wieder als Excel-Makro (universell):
'---------------------------------------------------------------------------------------
' Prozedur : SwichtHabenToMinus
' Datum/Zeit: 08.05.2014
' Author : 66
' Zweck : Konvertiert Primannota, Buchungsliste etc. in S/H <-> +/-
'---------------------------------------------------------------------------------------
'
Public Sub SwichtHabenToMinus(Optional blnMsgbox As Boolean = True)
'
Dim rngCell As Range
Dim lRow As Long
Dim blnSollZeichen As Boolean
Dim blnSH As Boolean
If blnMsgbox = True Then
Select Case MsgBox("Für den Wechsel von Vorzeichen <-> S/H " _
& vbCrLf & "markieren Sie bitte die gesamte Betragsspalte." _
& vbCrLf & "" _
& vbCrLf & "Möchten Sie jetzt fortfahren?" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Wechsel H2-")
Case vbYes
Case vbNo
Exit Sub
End Select
End If
Selection.NumberFormat = "#,##0.00;-#,##0.00"
'Selection.NumberFormat = "#,##0.00"" S"";-#,##0.00"" H"""
lRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Application.DisplayAlerts = False
With ActiveSheet
'Precheck ob S/H getrennt sind. Wenn ja alle Zellen Mergen
For Each rngCell In Selection
If .Cells(rngCell.Row, rngCell.Column + 1).Value = "S" Or .Cells(rngCell.Row, rngCell.Column + 2).Value = "H" Then
blnSollZeichen = True
If blnSH = False Then
.Cells(rngCell.Row, rngCell.Column + 1).Value = "S"
.Cells(rngCell.Row, rngCell.Column + 2).Value = ""
Range(.Cells(rngCell.Row, rngCell.Column + 1), .Cells(rngCell.Row, rngCell.Column + 2)).Merge
blnSH = True
Else
Range(.Cells(rngCell.Row, rngCell.Column + 1), .Cells(rngCell.Row, rngCell.Column + 2)).Merge
End If
ElseIf .Cells(rngCell.Row, rngCell.Column + 1).Value = "S/H" Then
Exit For
End If
If rngCell.Row > lRow Then
If blnSollZeichen = True Then Columns(rngCell.Column + 2).Delete Shift:=xlToLeft
Exit For
End If
Next
Application.DisplayAlerts = True
For Each rngCell In Selection
If rngCell.Text <> "" Then
If .Cells(rngCell.Row, rngCell.Column + 1).Value = "H" Or .Cells(rngCell.Row, rngCell.Column + 1).Value = "S" Then
blnSollZeichen = (.Cells(rngCell.Row, rngCell.Column + 1).Value = "S")
If .Cells(rngCell.Row, rngCell.Column + 1).Value = "H" Then .Cells(rngCell.Row, rngCell.Column).Value = .Cells(rngCell.Row, rngCell.Column).Value * -1
.Cells(rngCell.Row, rngCell.Column + 1).Value = ""
ElseIf IsNumeric(rngCell.Value) Then
If Sgn(rngCell.Value) = -1 Then
rngCell.Value = rngCell * -1
.Cells(rngCell.Row, rngCell.Column + 1).Value = "H"
Else
If rngCell.Value <> 0 Then .Cells(rngCell.Row, rngCell.Column + 1).Value = "S"
End If
End If
Else
End If
'vorzeitiger Ausstieg
If rngCell.Row > lRow Then Exit For
Next
End With
End Sub
Es kann sich aber für uns nicht darin erschöpfen, immer wieder für DATEV-Unzulänglichkeiten mühsam Lösungen zu finden. Nicht jeder ist dazu in der Lage, da im hier Kenntnisse fehlen.
Ein weiteres Problem ist, dass einmal gefundene Lösungen nicht konsequent an jeder Stelle umgesetzt werden. So kann man zwar jetzt aus markierten Zeilen in dem normalen Konto eine Summe bilden (warum das aber wieder über eine eigene Checkbox erfolgt, zeigt mit welchem Elan hier gearbeitet wurde), aber eben nicht überall. So kann bei einer Buchungsaufteilung eben nicht eine Summe gezogen werden. Genauso wenig, wie in der Buchungserfassung.
Und jetzt soll das alles im Web umgesetzt werden?
Wer daran glaubt, der glaubt auch noch an dem Weihnachtsmann.
Hat denn auch nur einer einmal daran gedacht, dass es viel schwieriger ist, im Web mit der Fenstertechnik zu arbeiten oder auch nur allgemein Lösungen zu finden. Hier bin ich an den Möglichkeiten von HTML gebunden. Von den Problemen mit den Webbrowsern einmal ganz zu schweigen.
Wer sich von mit dem Web-Arbeiten wirklich einmal auseinandersetzen möchte, der möge einmal eine Körperschaftsteuererklärung im Elster-Portal zu machen. Das ist nämlich schon eine Cloud-Lösung.
Aus diesen und noch viel mehr, bin ich aus der Communtiy ausgestiegen. Ich sehe für DATEV einfach keine Zukunft. Für mich sind es nur noch überschaubare Jahre, die ich nicht mit ständigem Ärgern verbringen möchte. Seit meinem Austritt geht es mir einfach besser, da ich alles fatalistisch hinnehme. Sollen sich doch andere hierüber ärgern.
Gruß Achilleus
