Ich bin mir sicher das Ihr mir den Fehler im folgendem Code auf die Schnelle finden und korregieren könnt:
Laufzeitfehler '9'
Index außerhalb des gültigen Bereichs
Kurzfassung:
Ich möchte den Wert aus "V1" im Worksheet "Calculation(NEW)" im Tabellenblatt "Where used on" suchen und alle Ergebnisse hierzu in "Tabelle1" auflisten. Eigentlich möchte ich zwar nur den Wert aus der Zelle rechts neben dem gefunden Werten auflisten aber da arbeite ich noch dran... :-)
Sub Makro1()
Dim Loletzte As Long
Dim RngZ As Range
For Each RngZ In Worksheets("Where used on").Range("A1:B200000")
Loletzte = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1
If RngZ Like Worksheets("CALCULATION(NEW)").Range("V2") Then Worksheets("Tabelle1").Cells(Loletzte, 1) = RngZ
Next |