Hallo liebe Gemeinde,
für ein wichtiges Projekt auf der Arbeit lerne ich gerade die Makrosache XD.
Leider bin ich heute schon an meine Grenzen gestoßen...
Ich habe eine Liste mit immer gleichem Aufbau, unter einem eine Spalte mit Namenskürzeln und eine Spalte mit Status in %.
Nun möchte ich die einzelnen Zeilen nach versch. Kriterien wegsortieren.
Im 1. Schritt sortiere von einer "Sammelliste" auf Listen entsprechend der Namenskürzel.
Hier das Makro dazu:
Sub Linder_dat()
Dim i As Long
With Sheets("Alles")
For i = .Cells(Rows.Count, "F").End(xlUp).Row To 2 Step -1
If .Cells(i, "F") Like "li" Then
.Rows(i).Copy Sheets("Linder").Cells(Sheets("Linder").Cells(Rows.Count, "F").End(xlUp).Row + 1, "A")
.Rows(i).Delete
End If
Next
End With
ActiveWorkbook.Save
End Sub
Klappt wunderbar......
Nun möchte ich aber weiter sortieren, und zwar die Aufträge mit Status 100% auf eine weitere extra Liste.
Ich hatte gehofft, dass obrige Makro einfach umbauen zu können, aber iwie stimmt etwas mit der % Angabe nicht, bzw. den hinterlegten Werten.
Hier mein Versuchsmakro:
Sub Fertige_weg()
Dim i As Long
With Sheets("Alles")
For i = .Cells(Rows.Count, "K").End(xlUp).Row To 2 Step -1
If .Cells(i, "K") Like "100%" Then
.Rows(i).Copy Sheets("Fertige").Cells(Sheets("Fertige").Cells(Rows.Count, "K").End(xlUp).Row + 1, "A")
.Rows(i).Delete
End If
Next
End With
ActiveWorkbook.Save
End Sub
Ich glaube er kapiert nicht ganz, dass es sich um einen Prozentausdruck handelt, bzw. ich nicht, wie man dies richtig definiert :)
Bitte helft mir.
|