Negative Werte ins Positive setzten
F.
Habe mit diesem Code versucht alle negativen Werte zweier Spalten in allen Tabellen ab dem 7. Blatt vom Negativen ins Positive zu drehen. Es würde klappen, aber nur mit dem ersten Blatt.
Sub Negative_Vorzeichen()
Dim i As Long
For i = 7 To Sheets.Count
Range("E:E,H:H").Select
Range("H1").Activate
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i
Sheets("Makros starten").Select
MsgBox "Negative Werte ins Positive gesetzt"
End Sub
Ich denke, die Schleife (oder wie das nennt) ist falsch. Kann mir jemand weiterhelfen?
Gruss
Frédéric