|
Folgendes problem. Globales Makro, das auf viele verschiedene Sheets angewendet wird. Wenn in einer Spalte oben "xy" steht dann soll er etwas in der Spalte tun, sonst nicht. In manchen Sheets existiert diese Spalte nicht und er braucht auch nichts zu machen (eig ja logisch). so wenn ich jetzt per
Set xy= Rows(1).Find(What:="xy", After:=Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
suche und xy nicht existiert ist "xy" Nothing. Soweit so gut. Wenn ich später dann aber sage in dieser Spalte soll was passieren
if Cells(xxx, xy.Column) = yyy
kommt natürlich ein Error wenn xy is Nothing. Ich möchte aus diversen Gründen (zB if ... or ... or ... or ...) nicht jedes mal ein
If xy is nothing then
else
if Cells(xxx, xy.Column) = yyy
davor schreiben. Gibt es eine elegante Lösung dafür? Dann soll er halt if Cells(xxx, Nothing.Column) = falsch ausspucken aber halt keinen Fehler. Und bitte keine on error resume next Lösung. Es muss doch möglich sein, wenn bei dem Vergleich die Dimensionen nicht stimmen ohne Fehler und ohne die If-Anweisung auszuführen weiter zu machen.
|