Thema Datum  Von Nutzer Rating
Antwort
Rot Sortierfunktion über Prozentzahlen
 12.12.2016 13:52:06 Powpow
NotSolved
12.12.2016 13:59:26 Gast71339
NotSolved
12.12.2016 14:00:59 Gast87063
NotSolved
12.12.2016 14:02:37 Gast89276
NotSolved
12.12.2016 14:01:54 Powpow
NotSolved
12.12.2016 14:03:04 Gast12541
NotSolved
12.12.2016 14:03:56 Gast54492
NotSolved
12.12.2016 16:57:52 Gast83810
NotSolved
12.12.2016 17:31:27 Gast29551
NotSolved
12.12.2016 17:38:26 Gast14335
NotSolved
15.12.2016 08:38:19 Gast90400
NotSolved
12.12.2016 17:41:41 Gast97494
NotSolved
12.12.2016 19:52:47 Gast63919
NotSolved
12.12.2016 20:05:59 Gast94821
NotSolved

Ansicht des Beitrags:
Von:
Powpow		 Datum:
12.12.2016 13:52:06		 Views:
1566		 Rating:
     
Antwort:
  Ja
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.

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Sortierfunktion über Prozentzahlen
 12.12.2016 13:52:06 Powpow
NotSolved
12.12.2016 13:59:26 Gast71339
NotSolved
12.12.2016 14:00:59 Gast87063
NotSolved
12.12.2016 14:02:37 Gast89276
NotSolved
12.12.2016 14:01:54 Powpow
NotSolved
12.12.2016 14:03:04 Gast12541
NotSolved
12.12.2016 14:03:56 Gast54492
NotSolved
12.12.2016 16:57:52 Gast83810
NotSolved
12.12.2016 17:31:27 Gast29551
NotSolved
12.12.2016 17:38:26 Gast14335
NotSolved
15.12.2016 08:38:19 Gast90400
NotSolved
12.12.2016 17:41:41 Gast97494
NotSolved
12.12.2016 19:52:47 Gast63919
NotSolved
12.12.2016 20:05:59 Gast94821
NotSolved