Makro ?ber Alt - F8, Optionen eine Tastenkombi zuweisen, Bereich markieren, Makro starten, fertig.
Sub ZahlUmwandeln() Dim zelle As Range For Each zelle In Selection If Left(zelle, 1) <> "-" Then _ zelle = "-" & zelle Next End Sub |
Sub ZahlUmwandeln() Dim zelle As Range For Each zelle In Selection If Left(zelle, 1) <> "-" Then _ zelle = "-" & zelle Next End Sub |
Sub negativ()
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 1) > 0 Then
Cells(i, 1) = Cells(i, 1) * (-1)
End If
Next i
End Sub
Sub ZahlUmwandeln() Dim zelle As Range For Each zelle In Selection If Left(zelle, 1) <> "-" Then _ zelle = "-" & zelle Next End Sub |
Sub negativ()
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 1) > 0 Then
Cells(i, 1) = Cells(i, 1) * (-1)
End If
Next i
End Sub