Umrechnung Dollar Euro
14.10.2008 12:02:50
Kerstin
mal wieder eine Frage:
Ich hatte den unten benannten Befehl von Euch erhalten, der super funktioniert.
Jetzt kommt es allerdings doch vor, dass zb. in einer Zelle keine Zahl steht sondern ein Text. Jetzt - klar - beschwert sich dieser Befehl über diesen Text.
Wie kann ich diesen nun umgestalten, sodass er sich einfach nicht am Text stört und diesen einfach so lässt wie er ist, die anderen Daten aber umrechnet.
Vielen, vielen Dank - ohne dieses Forum wäre ich echt verloren.
Gruss
kerstin
Private Sub CommandButton1_Click()
Dim wks As Worksheet, Zelle As Range
Dim Kurs As Double
Selection.NumberFormat = "[$$-409]#,##0.00"
Kurs = Application.InputBox(Prompt:="Währungskurs USD/EUR?", _
Title:="Währungskonversion", _
Default:="0,73346", _
Type:=1)
If Kurs = 0 Then Exit Sub
Set wks = ActiveSheet
With wks
For Each Zelle In .UsedRange
'Zell-Format prüfen auf US-$
If InStr(1, Zelle.NumberFormat, "$-409") > 0 Then
If Not IsEmpty(Zelle) Then
Zelle.Value = Kurs * Zelle.Value
End If
'Währung auf Systemeinstellung setzen
Zelle.NumberFormat = "#,##0.00 $"
End If
Next
End With
End Sub