• Fehlerhafte Farbinformationen
• Zahlen sind als Text formatiert
• Negative Zahlen werden mit hinten angestellten Negativzeichen dargestellt
• Anzahl an Zeilen oder Spalten einfügen

Fehlerhafte Farben beim Kopieren

• Speichern unter
• Andere Formate

Diese Methode hat gleichzeitig den Vorteil, dass die Standardfarben (blau/gelb etc.) von SAP auch in der Tabelle erhalten bleibt. Sofern die ODS Datei dann in Excel geöffnet wird kann diese wieder als XLS gespeichert werden, so dass hier die zugewiesenen Farben von SAP erhalten bleiben, ohne dass künftig Probleme beim Kopieren der Werte entstehen.

Zahlen als Text in Zahlen umwandeln

Sub SAP_Markierung_Text_in_Zahl()
'
' SAP_Markierung_Text_in_Zahl Makro
' Wandelt aus Markierung als Text formatierte Zahlen in Zahl um
'

'
For Each Wert In Selection
Selection.NumberFormat = "0"
Wert.Value = Wert.Value
Next Wert
End Sub

Negativzeichen hinter Zahlenwert

=LINKS(A2;LÄNGE(A2)-1)*-1

=WENN(UND(RECHTS(A2;1)="-";ISTZAHL(LINKS(A2;LÄNGE(A2)-1)*1));LINKS(A2;LÄNGE(A2)-1)*-1;A2)

Sub SAP_Export_Buchhaltung()
'
' SAP_Export_Buchhaltung Makro
' Wandelt Markierte Werte aus SAP in Buchhaltungszahlen um Minuszeichen wird vorran gestellt
'

'
AnzahlWerte = Cells(Rows.Count, Selection.Column).End(xlUp).Row
For Each Wert In Selection
If Wert.Row > AnzahlWerte Then Exit For
If Right(Wert.Value, 1) = "-" And IsNumeric(Wert) _
Then Wert.Value = Left(Wert, Len(Wert) - 1) * (-1)
Next
Selection.Style = "Comma"
End Sub

Zeilen oder Spalten einfügen

Sub Excel_Zeilen_einfügen()
anzahlzeilen = InputBox("Anzahl einzufügender Zeilen")
For i = 1 To anzahlzeilen
Selection.Insert Shift:=xlDown
Next i
End Sub

Sub Excel_Spalten_einfügen()
anzahlspalten = InputBox("Anzahl einzufügender Spalten")
For i = 1 To anzahlspalten
Selection.Insert Shift:=xlToRight
Next i
End Sub