Gruppe
Allgemein
Bereich
Kopieren
Thema
Werte als Positiv-Werte 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