Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte jeder zweiten Spalte in zwei Stufen dividieren

Gruppe

Berechnen

Problem

Die Werte in Spalte A:I sollen durch 100 und 1,5 dividiert und mit zwei Nachkommastellen dargestellt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub NewCalc()
   Dim lRow As Long, lRowL As Long
   Dim dValue As Double
   Dim iCol As Integer
   Application.ScreenUpdating = False
   For iCol = 1 To 9 Step 2
      Columns(iCol).NumberFormat = "#,##0.00"
      lRowL = Cells(Rows.Count, iCol).End(xlUp).Row
      For lRow = 2 To lRowL
         If Not IsEmpty(Cells(lRow, iCol)) Then
            If IsNumeric(Cells(lRow, iCol)) Then
               dValue = Cells(lRow, iCol).Value
               dValue = dValue / 100
               dValue = dValue / 1.5
               Cells(lRow, iCol).Value = dValue
            End If
         End If
      Next lRow
   Next iCol
   Application.ScreenUpdating = True
End Sub