Mein Code funktioniert leider nicht:-( Da ich VBA-Neuling bin, weiss ich nicht wie es richtig heissen muesste und habe bisher vielleicht auch falsch gesucht...
In Spalte H soll geprueft werden, ob andere Waehrungen ausser vorkommen, wenn ja macht darauf dann eine MSG-Box aufmerksam :
Sub Waehrungstest() Dim Valuta As Variant Valuta = Range("H:H") If Not Valuta Is Then MsgBox "Wechselkurse pruefen!" End Sub
Bitte, bitte helft mir, ich werde das Gefuehl nicht los, dass ich hier ganz daemlich etwas falschmache...:-(
Gruss,
Jan