Hallo ihr Lieben,
ich hänge grad einer wahrscheinlich gar nicht so komplizierten Aufgabe. Ich will in einen sortieren Bereich alle Zeilen zählen (funktioniert auch soweit) - und wenn mehr als 12 Zeilen in der Spalte enthalten sind, sollen alle weiteren Zeilen in eine neue Spalte verschoben werden.
Dim z As Long, lstcount As Integer
lstcount = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
'sortieren
Sheets("Tabelle1").Range("A1:A1000").Sort Key1:=Sheets("Tabelle1").Range("A1:A1000"), Header:=xlNo, Order1:=xlDescending
If Sheets("Tabelle1").UsedRange.Count (größer Symbol) 12 Then
For i = 13 To UBound(lstcount, 1)
Sheets("Tabelle1").Cells(z, 1).Copy
Sheets("Tabelle1").Cells(z, 2).Insert
Sheets("Tabelle1").Cells(z, 1).ClearContents
Next
End If
Bei der Schleife scheint der Fehler zu sein...
Danke u Gruß,
Sarah