Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte als Positiv-Werte kopieren

Gruppe

Kopieren

Problem

Die Werte aus der letzten Spalte sollen als Positivwerte in die nächste Spalte kopiert werden..

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

StandardModule: Modul1

Sub PositivKopieren()
   Dim iRow As Integer, iCol As Integer
   iCol = Range("IV1").End(xlToLeft).Column
   iRow = 1
   Do Until IsEmpty(Cells(iRow, iCol))
      If IsNumeric(Cells(iRow, iCol).Value) Then
         Cells(iRow, iCol + 1).Value = Abs(Cells(iRow, iCol).Value)
      End If
      iRow = iRow + 1
   Loop
End Sub