Hi Leute,

ich suche eine Excel Makro oder Add-In das mir DM Spalten in einer Tabelle in Euro umrechnet. Am besten sollte es die DM Spalte stehen läst und eine neue Spalte mit den entsprechenden Eurowerten anlegt.

Hat jemand so was??

Danke im voraus!!

Nicht ganz wie Du es wolltest, aber hiermit kannst Du beliebig viele Felder Selektieren und die werden dann von euro nach dm umgerechnet. Kannste ja verändern wenn du willst...

Attribute VB_Name = "DM in Euro umrechnen"

Sub DMarkinEuro()

Attribute DMarkinEuro.VB_Description = "Makro DM => Euro ausführen"

Attribute DMarkinEuro.VB_ProcData.VB_Invoke_Func = "u\n14"

Dim i As Long

For i = 1 To Selection.Count

If Selection(i).Value <> "" Then

On Error Resume Next

Selection(i).Value = Selection(i).Value / 1.95583

Selection(i).NumberFormat = "#,##0.00 [$€-1]"

End If

Next

End Sub

mfg ischte