Office: Laufzeitfehler 13 trotz korrekter Funktion!

Hallo,

ich habe ein kleines Programm geschrieben,
dass nach Stählen in einer Tabelle sucht und dann die Daten des gesuchten Stahls herausgibt.

Ich gebe also den gesuchten Stahl (z.B. CS70) ein und klicke auf die Schaltfläche suchen - das Programm sucht dann im Tabellenblatt 2 nach dem Stahl und gibt mir die dort in der Tabelle in der Zeile hinter dem Stahl angegebenen Werte zurück.

Der Code:

Code:

Das hat auch alles super funktioniert.

Jetzt wollte ich aber, dass er schon sucht, sobald ich die Eingabe des gesuchten Stahls mit Enter bestätigt habe.

Dafür verwende ich folgenden Code auf dem Tabellenblatt:

Code:

Und auch das funktioniert prächtig, er gibt mir die korrekten Daten raus - nur leider meldet er mir immer einen "Laufzeitfehler '13': Typen unverträglich".

Gehe ich dann in den Debugger markiert er mit den folgenden Teil des Codes Gelb, ich weiß nur nicht wieso, denn es funktioniert doch alles....

Code:

Hat jemand eine Idee?

Liebe Grüße

Andreas

:)

 

Hallo,

so sollte es funktioinieren:

Hilft dir das weiter?
VG
Santa

 

Hallo Santa,

super, ja, jetzt läufts wie geschmiert! Danke! *top

Könntest Du vielleicht noch kurz beschreiben, warum es so funktioniert und es das vorher nicht tat?

Liebe Grüße

Andreas

 

Hallo,

super, danke für die Rückmeldung *Smilie

Wenn du bei einem Range-Objekt nicht explicit das Object ansprichst, geht Excel davon aus, dass du eigentlich den Inhalt meintest.
Deine Codezeile wird daher folgendermaßen interpretiert:
Code:

Es wird also gar nicht überprüft, ob Target aktuell die Zelle A4 ist, sondern nur, ob sie den gleichen Inhalt hat, wie die Zelle in A4 (was du vermutlich nicht wolltest).

Das dies nun einen Fehler ergeben hat, ist eher Zufall und Glück für dich, sonst hättest du den Logikfehler in der Programmierung vermutlich gar nicht gemerkt. Wenn eine der beiden Zellen (Target oder Zelle-A4) einen Fehlerwert in der Zelle hat (zb #NV! oder #WERT!), dann erscheint Laufzeitfehler 13 (Typen unverträglich).

Hilft dir diese Erklärung weiter?
VG
Santa

 

Hallo Santa,

bitte entschuldige die verspätete Antwort, ich war im Urlaub.

Vielen Dank für Deine Mühe, Deine Erklärung habe ich im groben verstanden, allerdings gibt es noch zwei Unklarheiten.

Du schriebst:

Ich dachte bisher, dass die Zelle A4 als "Target", also als Zielobjekt, definiert wird, damit das Programm weiß, in welcher Zelle eine Veränderung auch eine Aktion auslösen soll.

Du unterscheidest aber zwischen der Targetzelle und A4. Sind die beiden denn nicht identisch?
Wie kann dann geprüft werden, ob "Target" den gleichen Inhalt wie A4 hat, wenn es sich bei Target auch um A4 handelt?

Und der Laufzeitfehler 13 ist ja aufgetaucht, obwohl das Programm sonst anstandslos funktioniert hatte. Auch ohne, dass meines Wissens nach irgendwo ein Fehlerwert auftauchte. Wieso?

Liebe Grüße

Andreas

 

Hi Andreas,

ich antworte mal stellvertretend für Santa.

Wie Du richtig bemerkst, handelt es sich bei Target um ein Objekt (vom Type Range).
A4 dagegen ist vorerst einmal gar nichts. Nicht mal ein String (denn dann müßte A4 in Anführungszeichen stehen...
Der Range ("A4") hingegegen ist wieder ein Objekt vom Typ Range.
Das Schöne an Objekten ist, sie haben i.d.R. meist mehrere Eigenschaften. Die kannst Du schön erkennen, wenn Du einen Objektnamen eingibst und den Punkt dahintersetzt. Dann zeigt Dir die Intellisence Eigenschaften und Methoden des Objektes an.
Gibt man keine Eigenschaft an, geht VBA davon aus, dass die Standardeigenschaft gemeint ist. Beim Range ist die Standardeigenschaft aber eben nicht die Adresse sondern der Wert (Value).
Und Du hattest versucht, die Werte einer Zielzelle (eines Targets) mit dem Wert von Range ("A4") zu vergleichen.

Probiere mal folgendes kleine Makro aus, dann wird Dir gleich klar, was gemeint ist:
Code: