Ich bin zur Zeit daran, einen Währungsumrechner zu basteln. In Abhängigkeit der Währung in Zelle L4 z. Bsp. EUR od. CHF sollen alle Zellen (Q6:q759) im Tabellenblatt3 durchlaufen werden. Ist der Eintrag in L4 EUR, dann werden die Beträge in Bereich (Q6:q759) durch einen Kurs geteilt. Wenn der Wert in L4 ungleich EUR, dann werden die Beträge in Bereich (Q6:q759) mit einem Kurs multipliziert. Das Ganze habe ich mit folgendem Code gelöst:
Sub Waehrung()
Dim zelle As Range
Dim bereich As Range
Dim wf As Range
Dim kurs As Range
Set bereich = Tabelle3.Range("Q6:q759")
Set wf = Tabelle5.Range("L4")
Set kurs = Tabelle6.Range("g4")
For Each zelle In bereich
If zelle.Value > 0 And wf.Value = "EUR" Then
zelle.Value = zelle.Value / kurs
ElseIf zelle.Value > 0 And wf.Value "EUR" Then
zelle.Value = zelle.Value * kurs
End If
Next zelle
End Sub
Das Ganze funktioniert eigentlich auch genau, so wie ich es mir vorstelle. Wenn das Makro aber durchgelaufen ist und seinen Job fehlerfrei erledigt hat, kommt jedes Mal die Fehlermeldung Laufzeitfehler 13, Typen unverträglich.Irgendwo liegt noch ein kleiner Fehler beim Zuweisen der Datentypen.
Habt Ihr ev. eine Idee?
Vielen Dank.
Gruss
Peter