Werte bestimmter Währungen runden
12.04.2006 13:36:54
Peter
Ich habe in einer Tabelle in Spalte M die Währung eingetragen und in N der entpsrechende Betrag - Einträge beginnen in Zeile 5; Anzahl der Einträge ist variabel). Nun möchte ich den Wert in Spalte N auf eine Einheit runden (also keine Nachkommastellen), wenn die Währung JPY ist.
Mit nachfolgendem Code schaffe ich das.
Meine Frage: Kann ich das direkter anpacken (weniger Codezeilen in der Schlaufe)?
Danke für Feedback.
Peter
Sub JPYoNKS()
'Werte in YEN sollen auf eine Einheit gerundet werden
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim Znr As Long
Dim JPY_Value As Double
Set aBook = ThisWorkbook
Set aSheet = aBook.ActiveSheet
With aSheet
Znr = 5
Do While .Cells(Znr, 13) <> ""
If .Cells(Znr, 13) = "JPY" Then
JPY_Value = .Cells(Znr, 14).Value
JPY_Value = Application.WorksheetFunction.Round(JPY_Value, 0)
.Cells(Znr, 14) = JPY_Value
Else
End If
Znr = Znr + 1
Loop
End With
End Sub
Anzeige