Gruppe
Allgemein
Problem
Die Werte aus der letzten Spalte sollen als Positivwerte in die nächste Spalte kopiert werden..
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