[...] er zeigt immer an, dass in der Kopierzeile x den Wert 4 hat und es damit außerhalb des Bereiches ist,
ich verstehe nur nicht wieso x = 3 sein soll, wenn ich angebe, dass die Zelle den wert 3 haben soll.
Leider nicht verständlich genug.
Geht es nun um diesen Teil deines gezeigten Makros?
Dim m As Long
For m = 2 To lastrowüber
If Worksheets("Übersicht").Cells(m, 2).Value = 3 Then
Worksheets("Status_1").Cells(m, 1) = Worksheets("Übersicht").Cells(m, 1)
End If
Next m
Wenn ja, dann funktioniert das in dem Sinn:
> Übersicht:
|
A |
B |
1 |
|
|
2 |
Z2 |
3 |
3 |
Z3 |
4 |
4 |
Z4 |
1 |
5 |
Z5 |
3 |
6 |
Z6 |
3 |
7 |
Z7 |
1 |
> Status_1:
Was mit x sein soll verstehe ich nicht.
Einen Fehler erkennen kann man hier erstmal auch nicht.
Grüße
|