Recht so – Links rum!

Wer aus dem ALV-Grid Zahlen kopieren möchte, der erlebt eine Überraschung, wenn im Grid negative Werte dargestellt werden:

Copy&Paste oder Export

Die Ausrichtung wird korrekt vorgenommen, wenn du das gesamte Grid exportierst oder Excel-Inplace öffnest.

Manchmal möchte man aber nur einen markierten Teil kopieren (STRG+Y / Markieren / STRG+C).

Mit folgendem Visual-Basic-Makro “mivorenali – MInus VOn REchts NAch LInks” kannst du das Vorzeichen von rechts nach links setzen und das Feld wird wieder als Zahl formatiert. Einfach den gewünschten Zellenbereich markieren und das Makro starten.

Sollte es ein sehr großer Bereich sein, ist es evtl. sinnvoll, die Aktualisierung des Arbeitsblattes auszuschalten:

Application.ScreenUpdating = False

Code

Sub mivorenali()
    
   
  Dim objCell As Range
  Dim vntValue As Variant
 
  If TypeOf Selection Is Excel.Range Then
    'Application.ScreenUpdating = False
    
    'Durchlaufe alle markierten Zellen
        For Each objCell In Selection

            'Wert der Zelle an Variable übergeben
            vntValue = objCell.Value
            
            'Wenn der Wert nicht leer ist
            If Not IsEmpty(vntValue) Then
            If Right(vntValue, 1) = "-" Then
             objCell.Value = "-" & Left(vntValue, Len(vntValue) - 1)
             objCell.NumberFormat = "General"
             objCell.Value = CDbl(objCell.Value)
             End If
            End If
            
        Next
            
    'Application.ScreenUpdating = True
  End If
    
    
End Sub

• Über
• Letzte Artikel

Enno Wulff

SAP Berater & Entwickler bei Inwerken AG

Moin Moin! Ich heiße Enno und bin der Erfinder, Redakteur und Trickser im Tricktresor. Die Artikel im Tricktresor sollen Euch das Leben einfacher machen und dienen mir als Gedächtnisstütze. Denn an vieles, was ich einmal heraus gefunden habe, kann ich mich später nicht mehr erinnern und suche erneut. Dagegen hilft der Tricktresor. Viel Spaß!

Letzte Artikel von Enno Wulff (Alle anzeigen)

• 7. December: Excel Racing Simulation – Root Vole Race - 7. Dezember 2024
• 5. December: ABAPConf - 5. Dezember 2024
• 4. December: Only a lazy developer is a good developer - 4. Dezember 2024