wer könnte mir bei Euro-Umrechnungen helfen. Ich habe nachfolgendes Makro, dass eigentlich Problemlos funktioniert. Es rechnet ganze Zahlen um und läßt Formeln wie sie sind. Besteht die Formel jedoch nicht aus Bezügen sondern aus ganzen Zahlen rechnet das Makro die Formel auch um nur wenn die Formel aus Bezügen und absoluten Zahlen besteht rechnet das Makro nicht. hat hierzu jemand eine Lösung? Vielen Dank im voraus!!
Sub InEuro()
Dim rngZelle As Range
Dim strTemp As String
Dim intCalc As Integer
intCalc = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
For Each rngZelle In Intersect(Selection, _
ActiveSheet.UsedRange)
If Not IsEmpty(rngZelle.Value) And _
IsNumeric(rngZelle.Value) Then
If rngZelle.HasFormula Then
On Error Resume Next
Err = 0
strTemp = rngZelle.Precedents.Address
If Err > 0 Then
If Not Right(rngZelle.Formula, 12) = ")/1.95583,2)" Then
rngZelle.Formula = "=ROUND((" & _
Mid(rngZelle.Formula, 2) & ")/1.95583,2)"
End If
End If
On Error GoTo ErrorHandler
Else
rngZelle.Formula = "=ROUND((" & _
rngZelle.Formula & ")/1.95583,2)"
End If
End If
rngZelle.NumberFormat = "#,##0"
Next rngZelle
ErrorHandler:
On Error GoTo 0
Application.Calculate
Application.Calculation = intCalc
End Sub