Thema Datum  Von Nutzer Rating
Antwort
Rot Find is Nothing
27.01.2014 15:51:29 Gast985
NotSolved

Ansicht des Beitrags:
Von:
Gast985
Datum:
27.01.2014 15:51:29
Views:
1166
Rating: Antwort:
  Ja
Thema:
Find is Nothing

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.

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Find is Nothing
27.01.2014 15:51:29 Gast985
NotSolved