man hat mir in diesem Forum schon sehr geholfen, jetzt hoffe ich auch einen weiteren Tip.
Ich habe folgendes Makro:
Sub umwandeln()
Dim ws As Worksheet
Dim zelle As Range
Set ws = ActiveSheet
On Error Resume Next
For Each zelle In ws.UsedRange
If Right(zelle.Value, 1) = "-" Then
zelle.Value = WorksheetFunction.Substitute(zelle.Value, "-", "") * -1
End If
Next
End Sub
Es klappt hervorragend. Allerdings habe ich das Problem das es nur in der Arbeitsmappe geht in der es steht. Mache ich eine neue oder schon gespeicherte Datei auf sehe ich es unter den Makros, aber wenn ich es starte greift es nur auf die Datei zu in der es gespeichert ist. Auch ein speichern unter person.xls bringt nichts. Es steht schon auf "Alle offene Arbeitsmappen.
Danke für die Hilfe.
Oswald