Problem in For Each Schleife
Peter
Für Kursumrechnungen habe ich mir eine Schleife gebastelt, die wie folgt aussieht und beim Change-Ereignis einer Combobox (Waehrung) aufgerufen wird:
Sub Umrechnung()
Dim zelle As Range
For Each zelle In objtest
If zelle.Value > 0 And Waehrung.Value = "EUR" Then
zelle.Value = zelle.Value / kurs
ElseIf zelle.Value > 0 And Waehrung.Value "EUR" Then
zelle.Value = zelle.Value * kurs
End If
Next zelle
End Sub
In einem Hauptmodul habe ich alle Objekte definiert, auf welche dann von den einzelnen Subprozeduren zugegriffen werden kann. So habe ich auch das Objekt objtest definiert resp. dem Objekt einen Zellbereich über Set zugeordnet. Beim Ausführen meiner Prozedur bekomme ich immer die Fehlermeldung Laufzeitfehler 424, Objekt erforderlich. Ich vermute, dass diese Meldung mit Zelle zu tun hat. Ich deklariere zuerst die Zelle als ein Range-Objekt. Hab dies mal so in einem Fachbuch gelesen. Man müsste wohl dieser Zelle auch noch einen Bereich zuordnen ev. liegt hier der Fehler.Habt Ihr eine Idee?
Vielen Dank.
Gruss
Peter