title image


Smiley Nur mit VBA...
Hallo,



allerdings hast du dann keine Information mehr darüber wie der ursprüngliche Wert ist.

Mit einer Funktion geht es nicht, da auch für diese eine separate Spalte nötig ist.



Sub Selection_Transpond_Minus_Positiv()

'wandelt negative Werte in einen markierten Bereich in

'einer Tabelle in positive Werte um

Dim z As Excel.Range

For Each z In Selection

    If z.Value < 0 Then

        z.Value = z.Value - (z.Value * 2)

    End If

Next

End Sub

 

Sub Named_Transpond_Minus_Positiv()

'wandelt negative Werte in einer bestimmten Spalte in

'einer Tabelle in positive Werte um

Dim i As Long, cr As Long

Dim Spalte As Integer

Spalte = 1 '1 = A, 2 = B, 3 = C usw.

cr = 65536

'letzte zeile in dieser Spalte suchen

If Cells(cr, Spalte) = "" Then

    cr = Cells(cr, Spalte).End(xlUp).Row

End If

'Umwandeln aller zellen in dieser Spalte

For i = 1 To cr

    If Cells(i, Spalte) < 0 Then

        Cells(i, Spalte).Value = Cells(i, Spalte).Value - (Cells(i, Spalte).Value * 2)

    End If

Next i

End Sub





Code eingefügt mit Syntaxhighlighter 1.12


Herzliche Grüsse

aus der Schweiz

Rainer

Kombiniere Geist und Google,...denn Wissen ist geil :-)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: