Office: Laufzeitfehler '1004' bei Verwendung von Range mit Cells

Hi zusammen,

ich beiße mir gerade die Zähne an folgenden Code aus:

Worksheets("Zinsderivate").Select

Dim MWZinsZelle As Range
Dim MWZins As String

MWZins = "Marktwert Bank"
Set MWZinsZelle = Worksheets("Zinsderivate").Range("A1:BA1000").Find(MWZins)
MWZinsZelle.Activate

MWZinsZeile = ActiveCell.Row
MWZinsSpalte = ActiveCell.Column

Dim Capzelle As Range
Dim Cap As String

Cap = "CAP"
Set Capzelle = Worksheets("Zinsderivate").Range(Cells(MWZinsZeile, 1), Cells(1000, 53)).Find(Cap)
Capzelle.Activate

Capzeile = ActiveCell.Row
Capspalte = ActiveCell.Column

Den Laufzeitfehler erhalte ich in der Zeile mit "Set Capzelle". Ziel der ganzen Aktion ist es, in dem ausgewählten Tabellenblatt den Begriff "CAP" zu finden, aber erst von der Zeile an, in der auch "Marktwert Bank" steht.
Kurioserweise habe ich exakt die gleiche Syntax im gleichen Code (hier jetzt nicht mit eingefügt) schon einmal für ein anderes Blatt benutzt, wo sie einwandfrei funktioniert. Ich bin echt verzweifelt. Würde mich freuen, wenn mir jemand helfen könnte!

P.S.: Die hintere Zelle mit Cell(1000,53) ist willkürlich gesetzt

:)

 

Hallo MelChrTT,

ungetestet:
Code:

Wenn das auch nicht hilft: Füge mal eine Zeile davor jene ein:
Code:

Wozu solche Konstrukte benötigt werden, wird mir aber ein Rätsel bleiben:
Code:

Grüße
EarlFred

 

Hi EarlFred,

super, vielen vielen Dank für die schnelle Antwort! Und es klappt!

DANKE!

Zu den Konstrukten: Bin noch Anfänger ;-)

 

Hallo MelChrTT,

Du hast mit Find einen Bereich gefunden (oder auch nicht). Dieser liegt in der Variablen MWZinsZelle. In Ihr sind alle Infos enthalten, die Du brauchst:

Code:

Es sollte aber sicherheitshalber geprüft werden, ob Find überhaupt etwas gefunden hat (wenn nicht, ist MWZinsZelle "Nothing").
So (oder "andersrum" auch denkbar)
Code:

Grüße
EarlFred

 

Hi EarlFred,

danke für den weiteren Tipp. Habe mir bis jetzt immer zwischendurch Testweise Message Boxen eingebaut, um das Ergebnis zu checken.

Gruß,
MelChrTT