Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

SAP Excel Makro: Hierarchie Level auswerten
 
Mit dem folgenden Excel vba Makro kann man die SAP Levels einer Hierarchie Spalte auswerten

 

Option Explicit
 
Public Sub BtnCheck_SAP_Level()
Check_SAP_Level
End Sub
 
 
 
Public Sub Check_SAP_Level()
'-------------< Check_SAP_Level() >-----------------
'< init >
Dim wb As Workbook
Set wb = ActiveWorkbook
Dim ws As Worksheet
Set ws = ActiveSheet
'</ init >
 
Dim used_Range As Range
Set used_Range = ws.usedRange


'--------< @Loop: Rows >---------
Dim used_row As Range
For Each used_row In used_Range.Rows
'--------< row >-------
Dim cell As Range
Set cell = ws.Range("C" & used_row.row)
Dim sFormat As String
sFormat = cell.NumberFormat
If InStr(sFormat, "]") > 0 Then
'SAP Hierarchie Format wie: "" [-] "@"
Dim sSapFormat As String
sSapFormat = Mid(sFormat, 1, InStr(sFormat, "[") - 1) '"" [-]"
Dim sapLevel As Integer
sapLevel = Len(sSapFormat)

'< Ausgabe >
ws.Range("B" & used_row.row).Value = sapLevel
'</ Ausgabe >
End If
'--------</ row >-------
Next
'--------</ @Loop: Rows >---------

MsgBox "Fertig"
'-------------</ Check_SAP_Level() >-----------------
End Sub

 
 
 
 
 
Mobile
»
SAP Excel Makro: Hierarchie Level auswerten
»
Excel vba Code: Afo aktivieren, deaktivieren und Daten aktualisieren
»
Excel AfO automatisch an und ausschalten
»
Excel AfO: Anzahl der Datenmenge erhöhen

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de