Ich habe 5 Arbeitsblätter. jetzt soll das Makro auf dem dritten von Zeile 2005 bis 2120 die Werte mit den ersten 3 blättern vergleichen, sobald ein Treffer erscheint (der erscheint mit 100%iger sicherheit), dann werden die Werte von dem Blatt, auf dem es gefunden wurde in blatt nummer 5 ("Exportformatierung") kopiert.
mein derzeitiger Code:
If (Target.Address = "$E$2004") Then
Worksheets("Exportformatierung").Range("A1:C250").ClearContents
For k = 1 To 250
For i = 2005 To 2110
For j = 1 To 75
If (ActiveSheet.Cells(i, 3).Value = Worksheets("NovaAlert")._
Cells(j, 1).Value) Then
Worksheets("Exportformatierung").Cells(k, 1) = Worksheets_
("NovaAlert").Cells(j, 1).Value
Worksheets("Exportformatierung").Cells(k, 2) = Worksheets_
("NovaAlert").Cells(j, 2).Value
Worksheets("Exportformatierung").Cells(k, 3) = Worksheets_
("NovaAlert").Cells(j, 3).Value
Else
If (ActiveSheet.Cells(i, 3).Value = Worksheets("NovaAlert _
Basic").Cells(j,1).Value) Then
Worksheets("Exportformatierung").Cells(k, 1) = Worksheets_
("NovaAlert Basic").Cells(j, 1).Value
Worksheets("Exportformatierung").Cells(k, 2) = Worksheets_
("NovaAlert Basic").Cells(j, 2).Value
Worksheets("Exportformatierung").Cells(k, 3) = Worksheets_
("NovaAlert Basic").Cells(j, 3).Value
Else
If (ActiveSheet.Cells(i, 3).Value = Worksheets_
("Handeslware").Cells(j,1).Value) Then
Worksheets("Exportformatierung").Cells(k, 1) =_
Worksheets("Handeslware").Cells(j, 1).Value
Worksheets("Exportformatierung").Cells(k, 2) =_
Worksheets("Handeslware").Cells(j, 2).Value
Worksheets("Exportformatierung").Cells(k, 3) =_
Worksheets("Handeslware").Cells(j, 3).Value
End If
End If
End If
Next j
Next i
Next k
End If
dabei tritt jetzt ein Laufzeitfehler auf, dass mein Index außerhalb des erlaubten Bereiches liegt. Beim Debuggen meckert er bei der innersten If-Anweisung...Woran liegt das? - Hat jemand eine Idee?