|
Hallo,
eine kleine Info: Im VBA-Code werdenzwei Select-Befehle hintereinander aufgeführt. Das macht keinen Sinn, wenn nicht weitere Ereignisse damit verbunden werden, die im Hintergrund ausgeführt werden:
Worksheets("Messmittel").Select
Range("G7").Select
Wenn nach dem Einfügen grundsätzlich Negative Werte in Positive umgesetzt werden sollen, kann hierfür eine Sub Erstellt werden, mit der die Zellen durchgegangen und bei Bedarf angepasst werden:
Sub ConvertNegativeValues(Daten As Range)
Dim rng As Range
For Each rng In Daten.Cells
If IsNumeric(rng.Value) Then
If Not rng.Value = Abs(rng.Value) Then
rng.Value = Abs(rng.Value)
End If
End If
Next
End Sub
Der Aufruf kann direkt nach dem Einfügen der Werte erfolgen:
Selection.PasteSpecial ...
ConvertNegativeValues Selection
' ...
Im Beispiel wird angenommen, dass der Befehl "PasteSpecial" die Markierung auf die zu ändernden Werte gesetzt hat.
|