Ich hatte mich schon gewundert. 
Wie sollen im E-Bilanz- Assistent die "individuellen Sachverhalte als "geprüft" abgehackt werden, wenn die Vorschau angegraut ist?
Kopieren "S" - "H" anstelle von Vorzeichen.
Wurde der Wunsch bereits geäußert, daß man beim Kopieren von Werten aus Rewe heraus (z.B. OPOS- Konto) nach Excel lieber ein Vorzeichen anstelle ein nachgestelltes "S" bzw. "H" für eigene Berechnungen haben möchte.
-> EDV zu Fuß (Vorzeichen manuell einpflegen) bzw. selbergestrickte Makros
Das habe ich mich auch immer gefragt, warum DATEV nicht einfach mit Vorzeichen oder das "S/H"-Kennzeichen in Excel einfach mittels einer Formatierung anzeigt.
Ich habe mir folgende Universalllösung gebaut:
1. SuSa nach DaTEV-Export
2. SuSa Auswahl Spalte
3. SuSa-Spalte noch Konvertierung (Standard)
4. SuSa-Spalte mit SH-Formatierung (incl. Vorzeichen)
[Excel-Makro]
'---------------------------------------------------------------------------------------
' 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 BooleanIf 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 IfSelection.NumberFormat = "#,##0.00;-#,##0.00"
'Selection.NumberFormat = "#,##0.00"" S"";-#,##0.00"" H"""
lRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).RowApplication.DisplayAlerts = False
'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
NextApplication.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 ForNext
End Sub
Diese Funktion einfach in Excel kopieren und Makros aufrufen und schon kann man die selektierten Werte je Spalte in rechenbare Werte konvertieren; Übrigends auch auch zurück.
Gruß A. Martens
P.S.
An DATEV:
Echt jetzt, wann bekommen wir endlich einmal ein richtiges Forum. Ihr macht doch nicht das Forum; Ihr müsst doch nur die Funktionen dazu einkaufen. Das solltet selbst die DATEV hinbekommen. Mit diesem Forum kann man einfach nicht arbeiten.
Hallo,
ich bekomme einen Buchungssatz aus der Primanota nicht mit einen Rechtsklick hin. Bei mir sieht es so aus (siehe unten). Muss ich noch andere Einstellung vornehmen, damit die Buchung in die WK-Buchungen erfasst werden kann? Danke vorab
In den Debitorenstammdaten gibt es seit einigen Versionen das hilfreiche Feld Alternativer Suchname:
Seit dem/den letzten Update/s funktioniert im Rechnungen buchen (OPOS-Suche) die Suche nach ebendiesem alternativen Suchnamen nicht mehr:
- Kanzlei-Rechnungswesen V.7.1
Hallo Herr Wielgoß,
in der Tat 
Darauf wäre ich nicht gekommen ... Vielen Dank für die – wie schon so oft 
– schnelle und hilfreiche Antwort.
Viele Grüße.
Anlagenbuchführung – #ANL38948
(Bei Generalumkehr der Buchung einer Anschaffung von Anlagevermögen zwecks Buchung auf ein anderes Konto.)
"Die aus dem ursprünglichen Buchungssatz gebildete Bewegung in der Anlagenbuchführung müsste wieder gelöscht werden." Richtig! (Und dann neu angelegt werden mit dem neuen Konto.) "In der Anlagenbuchführung wurde jedoch keine identische Bewegung gefunden." Schade! Habe doch beim damaligen Buchen des Zuganges die Anlag-Soforterfassung benützt. 
– Vielleicht ließe sich dies ja optimieren (?).
Viele Grüße und ein schönes Wochenende.
