Problem mit Zahlen aus SAP-BW

Daniel Furrer · 2023-05-12T11:30:14+00:00

Hallo aus SAP BW bekomme ich beim Download Zahlen die im Excel als zB. '24081030000 dargestellt werden. Das Hochkomma wird aber weder angezeigt noch ist es mit Suchen ersetzen zu eliminieren. Auch eine A = right(activecell,11) bringt es weiterhin als Text. Formatieren als Zahl hilft auch nichts. Das Hochkomma scheint irgendwie nicht wirklich zu existieren hindert aber Sverweise usw. an der Funktion. Hat jemand eine Idee wie ich dieses Hindernis mit VBA beheben kann ? schon mal vielen Dank

Hi Daniel,

hier, eine vllt bessere Lösung, weil eine vorherige Markierung der Wunschzellen nicht erforderlich ist:


Option Explicit

Sub test()

    Dim lrgZellen As Range
    
        For Each lrgZellen In Range("E18:E" & Cells(Rows.Count, 5).End(xlUp).Row)
            If IsNumeric(lrgZellen) Then
                lrgZellen = lrgZellen * 1
            End If
        Next
    
End Sub

zu beachten gilt nur:
in Range(...) MUSST DU den richtigen Spaltenbuchstaben eintragen - hier E - weil in deiner Bsp-Datei in Spalte E die '-Werte stehen
in Cells(...) MUSST DU die richtige Spaltennummer eintragen - hier 5 - weil die 5. Spalte überprüft wird

Mit diesem Code werden nun alle Zahlen, die mit ' beginnen in echte Zahlen geändert.
#-Werte werden übersprungen.

Hilfts?

Ciao
Thorsten

Hallo Daniel, e

es sind kein Zahlen, sondern Konten- oder Kostenartennummer. Diese zu addieren würde kein Sinn ergeben, dementsprechend ist es keine Mehrwert, diese als Zahl haben zu wollen.
Das einzige, was ich in dem Vorhaben als sinnvoll betrachten würde, wäre Tausender-Trennzeichen einführen zu wollen, um die Lesbarkeit zu erhöhen. Aber das könnte man auch in einem Text einführen:

Sub Reformatiere()
Dim Z As Range
Dim i
    For Each Z In Worksheets("xy").Range("E20:E21")
        Z.Value = Spacer(Z.Value, "_", 4, 3, 4) 'Trennung in Blöcke 4, 3, 4, Rest mit "_" dazwischen 
    Next
End Sub

Private Function Spacer(Text, Trenner, ParamArray Positionen()) As String 'ParamArray: die Anzahl an Parameter ist variabel. Mind. einen 
Dim Erg As String
Dim E
Dim Pos As Long
    Pos = 1
    For Each E In Positionen
        Erg = Erg & Trenner & Mid(Text, Pos, E)
        Pos = Pos + E
    Next
    If Pos = Len(Text) Then Erg = Erg & Trenner & Mid(Text, Pos)
    Spacer = Mid(Erg, Len(Trenner) + 1)
End Function

Sub test()
    Debug.Print Spacer("123456789ABCDEF", "_", 3, 2, 4, 3)
    Debug.Print Spacer("123456789ABCDEF", "**", 3, 2, 4, 3)
    Debug.Print Spacer("123456789ABCDEF", ":", 4, 3, 4, 2)
End Sub

VG
Yal

Forumthread: Problem mit Zahlen aus SAP-BW

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Problem mit Zahlen aus SAP-BW

Forumthread: Problem mit Zahlen aus SAP-BW

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread