Guten Morgen,
ich habe einen Fehler in diesem Code, mir wird immer ausgegeben, dass X = 4 wird und damit den Wert überschreitet, was ich nicht verstehe, denn ich frage doch eigentlich ab, ob der Wert aus der Zeile X 3 ist und nicht x.
For x = 2 To lastrow
If Worksheets("Übersicht").Cells(x, 2).Value = 3 Then
Worksheets("Unterkategorie").Cells(x, 1) = Worksheets("Übersicht").Cells(x, 1)
End If
Next x
|