Makro für Vorzeichenwechsel
Jay
hab hier ein kleines Problem bei dem ich grad nicht weiterkomme.
Ich hab eine Datei, die enthält in einer Spalte sowohl positive als auch negative Werte.
Jetzt möchte ich nur bei den negativen Werten das Vorzeichen wechseln.
Da ich den Einstieg nicht gefunden hab, wie das Makro nur auf die negativen Werte geht hab ich erst mal einen Filter gesetzt:
Sub Filter_Negatives_Vorzeichen()
' Filter_Negatives_Vorzeichen
ActiveSheet.Range("$A$5:$AN$1299").AutoFilter Field:=10, Criteria1:="Jetzt wende ich auf die verbliebenen Werte die Formel *-1 an
Sub Vorzeichenwechsel()
' Vorzeichenwechsel
ActiveCell.FormulaR1C1 = "=RC[-11]*R1C21"
Range("U6").Select
Selection.FillDown
Selection.Copy
Range("J6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Funktioniert auch so weit ganz gut, jedoch nur bis Zeile 574!?! Mit xlDown sollte es doch eigentlich bis zum Ende der Tabelle gehen?!
Hat jemand vielleicht eine Idee?
Gerne auch einen eleganteren Weg, so dass das Makro von Anfang nur die negativen Werte erfasst und ich nicht erst über den Filter gehen muss.
Besten Dank im Voraus für eure Mühen.
Gruß
Jay
