Office: Laufzeitfehler 13: Typen unverträglich

Hallo Leute,

ich habe das Problem, dass mir mein VBA Programm immer den Laufzeitfehler 13 (Typen unverträglich) bringt und ich aber nicht weiß wieso.
Hier ist der relevante Auszug aus meinem VBA Code:

Code:

Bei der Fehlermeldung wird mir immer die folgende Zeile markiert:
If Worksheets("xxx").Cells(j, 1).Value = Woche Then

In der Variable "Woche" ist ein Text gespeichert (z.B.: 2015/KW 01).
In der Spalte 1 im Tabellenblatt "xxx" steht ebenfalls die Wochenangabe im selben Format, allerdings wird diese dort über eine Excel Formel reingeschrieben.
Meiner Meinung nach müssten doch die Variablen richtig deklariert sein oder?

Gruß
Reini

:)

 

bei mir läuft das Makro ohne Fehler, was vielleicht daran liegt das N=0

 

Moin Reini,

Nein, denn n ist nicht deklariert und hat damit einen undefinierten Wert. Hier dürfte das 0 ergeben, weil ein numerischer Wert bei For..Next erwartet wird.

 

Hallo Günther.

Sorry, hab eine Zeile vergessen zu kopieren.
n ist bei mir nicht 0 sondern geht immer bis zur letzten beschriebenen Zeile im Tabellenblatt "xxx"

Code:

n ist als Long deklariert!

 

Das Problem scheint wirklich daran zu liegen, dass in "Worksheets("xxx").Cells(j, 1).Value" (also in Spalte 1 des Tabellenblattes "xxx") eine Formel drin steht. Hier die Formel:

Code:

 

Hallo Reini,

abgesehen davon, dass meine Deine Formel verkürzen kann:
Code:

Ich habe kein Problem, wenn die Randbedingungen tatsächlich so sind, wie von Dir angegeben.

Kurzer Testcode, wenn die Zelle mit der vorstehenden Formel die aktive ist und in D2 das heutige Datum steht:
Code:

Bitte stelle eine Mustermappe ein, wenn Du nicht weiter kommst.

Grüße
EarlFred

 

Ok. Nach langem Suchen habe ich nun den Fehler gefunden.

Es lag nicht am Code, sondern an den Ausgangsdaten.

Ich habe eine sehr umfangreiche Tabelle mit Zeitangaben im Viertelstundenraster. Bei der Zeitumstellung im März 2014 hatten die Zeitangaben einen Fehler. Hab das ausgebessert, und jetzt funktioniert auch der code wunderbar.

Danke trotzdem für eure Hilfe!