Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Sortierfunktion über Prozentzahlen |
12.12.2016 13:52:06 |
Powpow |
|
|
|
12.12.2016 13:59:26 |
Gast71339 |
|
|
|
12.12.2016 14:00:59 |
Gast87063 |
|
|
|
12.12.2016 14:02:37 |
Gast89276 |
|
|
|
12.12.2016 14:01:54 |
Powpow |
|
|
|
12.12.2016 14:03:04 |
Gast12541 |
|
|
|
12.12.2016 14:03:56 |
Gast54492 |
|
|
|
12.12.2016 16:57:52 |
Gast83810 |
|
|
|
12.12.2016 17:31:27 |
Gast29551 |
|
|
|
12.12.2016 17:38:26 |
Gast14335 |
|
|
|
15.12.2016 08:38:19 |
Gast90400 |
|
|
|
12.12.2016 17:41:41 |
Gast97494 |
|
|
|
12.12.2016 19:52:47 |
Gast63919 |
|
|
|
12.12.2016 20:05:59 |
Gast94821 |
|
|
Von:
Powpow |
Datum:
12.12.2016 13:52:06 |
Views:
1275 |
Rating:
|
Antwort:
|
Thema:
Sortierfunktion über Prozentzahlen |
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.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Sortierfunktion über Prozentzahlen |
12.12.2016 13:52:06 |
Powpow |
|
|
|
12.12.2016 13:59:26 |
Gast71339 |
|
|
|
12.12.2016 14:00:59 |
Gast87063 |
|
|
|
12.12.2016 14:02:37 |
Gast89276 |
|
|
|
12.12.2016 14:01:54 |
Powpow |
|
|
|
12.12.2016 14:03:04 |
Gast12541 |
|
|
|
12.12.2016 14:03:56 |
Gast54492 |
|
|
|
12.12.2016 16:57:52 |
Gast83810 |
|
|
|
12.12.2016 17:31:27 |
Gast29551 |
|
|
|
12.12.2016 17:38:26 |
Gast14335 |
|
|
|
15.12.2016 08:38:19 |
Gast90400 |
|
|
|
12.12.2016 17:41:41 |
Gast97494 |
|
|
|
12.12.2016 19:52:47 |
Gast63919 |
|
|
|
12.12.2016 20:05:59 |
Gast94821 |
|
|