|
Hallo,
Ich habe folgendes Problem:
Ich möchte erreichen, dass ein Bereich im aktuellen Worksheet auf eine Zelle durchsurch wird, die den gleichen (text)Inhalt hat wie eine Zelle in einem anderen Worksheet, und, wenn die Zelle gefunden ist, die gesamte Zeile markiert. So lautet der bisherige Code:
Sub ZelleFinden()
Dim zelle As Range
Dim a As String
a = Workbooks("Archiv.xlsx").Worksheets(Worksheets.Count).Range("B1").Value
For Each zelle In ActiveSheet.Range("A1:X200").Cells
If zelle.Text = a Then
zelle.EntireRow.Select
Exit For
End If
End Sub
Zurzeit gibt es immer einen Laufzeitfehler 9 "Index außerhalb des gültigen Bereichs" bezosgen auf a = Workbooks("Arch...
Ironischerweise wird trotzdem die passende Zelle ausgewählt (allerdings nicht die ganze Reihe markiert), dann erscheint der Laufzeitfehler 9. Vielleicht gibt es auch noch elegantere Lösungen, die Zelle zu finden, gerade ist aber das primäre Problom, den Laufzeitfehler zu beheben.
Falls es sich um einen total Anfängerfehler handelt - habt nachsehen, ich konnte im Netz nichts passendes finden.
vielen Dank und einen lieben Gruß!
|