Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zeilen sortieren

Bestimmte Zeilen sortieren
23.02.2016 10:53:43
Hennig
Hallo zusammen,
ich habe eine Liste in der die Krankentage der Mitarbeiter aufgelistet sind.
Für jeden eingetragenen Zeitraum wird eine neue Zeile erstellt. Leider schafft die SAP Auswertung es nicht die Zeiträume für den Mitarbeiter chronologisch anzuzeigen.
Daher bin ich auf der Suche nach einer Möglichkeit in Excel.
In dem angehängten Beispiel müssten also für den Mitarbeiter mit der Personalnummer 13, die Zeilen 21 bis 24 nach Beginn sortiert werden.
Problem dabei ist, das verschiedene Mitarbeiter auch verschieden oft krank sind, sonst hätte ich ja mit dem Macrorecorder was erstellen können.
Hat jemand eine Idee wie ich Excel prüfen lassen kann wie viele Zeilen er für den Mitarbeiter sortieren lassen muss?
PS. Ist ein gekürztes Beispiel
Vielen Dank im Voraus
Sascha
https://www.herber.de/bbs/user/103801.zip

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zeilen sortieren
23.02.2016 11:13:28
selli
hallo sascha,
in deiner tabelle sind die von dir angesprochenen zeilen doch sortiert.
davon abgesehen kannst du ganz einfach den bereich markieren und unter "Daten" und "sortieren" eben diesen bereich sortieren lassen.
gruß
selli

AW: Bestimmte Zeilen sortieren
23.02.2016 11:20:30
Rudi
Hallo,
1. Teilergebnisse entfernen
2. alle leeren Zellen in D die komplette Zeile löschen
3. die leeren Zellen in A mit der PersNr ergänzen
4. A kopieren und durch Werte ersetzen
5. nach A und D sortieren.
Als Code: 
Sub aaa()
Range("A1").RemoveSubtotal
Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range(Cells(2, 4), Cells(Rows.Count, 4).End(xlUp)).Offset(, -3).SpecialCells(xlCellTypeBlanks) _
.FormulaR1C1 = "=R[-1]c"
With Columns(1)
.Copy
.PasteSpecial xlPasteValues
End With
Range("a1").Sort key1:=Range("A2"), order1:=xlAscending, key2:=Range("D2"), order2:= _
xlAscending, Header:=xlYes
End Sub
Gruß
Rudi

Anzeige
AW: Bestimmte Zeilen sortieren
23.02.2016 16:47:33
Hennig
Vielen Dank für eure Rückmeldungen.
Selbstverständlich kann man die einzelnen Bereiche einzeln sortieren. Allerdings handelt es sich hier nur um einen kleinen Auszug der Liste. Die Originalliste ist um ein vielfaches größer.
@Rudi: Die Teilergebnisse sind leider auch wichtig und ich müsste die Tabelle in dem Format lassen, wie sie nun gerade aussieht. Am Besten wäre ein Makro das lediglich Mitarbeiter mit mehr als einen Eintrag entsprechend sortiert. Sprich: A4:L5, A7:L8, A16:L17, A21:L24
Übrigens ist das XYZ in Spalte B nur ein Platzhalter. Da stehen sonst entsprechend die Namen der Mitarbeiter. Personalnummer 1 = Müller Personalnummer 5 = Meier usw.
Kann man so etwas realisieren?

Anzeige
dann aus Rudis Vorschlag
23.02.2016 19:46:44
Michael
Hi zusammen,
das scheint hinzuhauen: 
Sub aaa()
Dim leer As Range
Dim aktZ&, letZ&
letZ = 1
For Each leer In Columns(4).SpecialCells(xlCellTypeBlanks)
aktZ = leer.Row
MsgBox "aktuelle Zeile " & aktZ & " letzte Zeile " & letZ
If aktZ - letZ > 2 Then
MsgBox "Sortieren Zeilen " & aktZ - 1 & " bis " & letZ + 1
Range("D" & aktZ - 1 & ":L" & letZ + 1).Sort key1:=Range("D" & letZ + 1)
End If
letZ = aktZ
Next
End Sub
Die msgboxen kannst Du ja dann rauswerfen, wenn es funktioniert.
Schöne Grüße,
Michael

Anzeige
AW: dann aus Rudis Vorschlag
24.02.2016 07:37:50
Hennig
Vielen Dank Michael, das ist genau das was ich gebraucht habe :)
Grüße,
Sascha

mit vereinter Hilfe... Danke f.d. Rückmeldung,
24.02.2016 15:17:17
Michael
Sascha,
und schöne Grüße zurück,
Michael

301 Forumthreads zu ähnlichen Themen

Combobox soll nur bestimmte Zeilen zeigen
Jörg-HH

Guten Abend zusammen
habe in einem Thread mit Franz neulich viel über Listboxen gelernt und wollte das nun auf ein ähnliches Problem mit einer Combobox übertragen - aber da hapert es noch etwas ;-)) Ich hab versucht, einiges von dem Code, den Franz mir gesendet hat, zu verwenden
In dies...
23.09.2009 20:23:50
Thread-ID: 1105056
30 Beiträge
Anzeige
Nur bestimmte Zeilen kopieren
Swetlana

Hi liebe Excel-Profies,
kann mir bitte jemand helfen...
Mein folgender Code kopiert mir die kompletten Arbeitsmappen...
Ich würde es aber gerne so haben, dass er mir nur die Zeilen die "P64" enthalten kopiert und in die andere Datei überträgt.....
Was muss ich ändern?
Su...
01.06.2011 06:44:38
Thread-ID: 1216949
3 Beiträge
Erste Leere Zeile wird nicht erkannt
Matthias

Hallo,
ich bin schon wieder überfordert und brauche Rat.
in der ersten Zeile stehen die Spalten-Überschriften (mit oder ohne Autofilter versucht)
Dann soll mir das unten stehen Makro die darunter liegende leere Zeile finden und den Übertrag aus der Userform übertragen.
Und nu:<...
26.06.2011 12:39:42
Thread-ID: 1219738
5 Beiträge
Anzeige
Nur bestimmte Zeilen Kopieren in eine neue Tabelle
Frank

Hallo zusammen.
Ich würde gerne wissen inwiefern man das folgende evtl. lösen kann.
In Tabelle 1 stehen folgende Daten:
Name Wert1 Wert2
Thomas 150 2
Tina 250...
26.06.2013 12:47:02
Thread-ID: 1319825
5 Beiträge
Ausgabe einer Zahl nur in ganz bestimmten Zeilen
Christian

Hallo alle zusammen,
hoffe es hat jemand eine Lösung für mein Problem.
hänge eine Tabelle an, suche eine Formel, die in Spalte G eine 1 in die letzte Zeile schreibt, in der in Spalte D oder E eine 1 steht, eine 2 in die letzte Zeile, in der eine 2 steht, eine 3 in der letzten Zeile, in...
09.09.2013 14:38:55
Thread-ID: 1330027
4 Beiträge
In Listbox nur bestimmte Zeilen einlesen
Andreas

Hallo zusammen,
ich stehe mit dem gesamten Bereich der Listboxen extrem auf Kriegsfuss und bräuchte daher mal Eure Unterstützung.
Mit folgendem Code lese ich den Inhalt des Tabellenblattes "Artikel" in die ListBox1 ein :
Private Sub UserForm_Initialize() With Sheets("Artikel") ListB...
08.02.2014 22:28:51
Thread-ID: 1348719
19 Beiträge
Erste Zeile nicht mitkopieren
janesch

Hallo Excel-Freunde,
habe mir hier folgendes sehr nützliches VBA Code gefunden.
Private Sub Zusammenführen() Dim wksT As Worksheet Dim wksS As Worksheet Dim i As Integer Dim RowsT As Integer Application.ScreenUpdating = False Set wksT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets....
19.02.2014 11:34:27
Thread-ID: 1350337
3 Beiträge
Nur bestimmte Zeilen einer Matrix in ein neues Tab
Axel

Hallo zusammen,
Basis ist eine Matrix, Spalten A:AA, die sich monatlich in der Zeilenanzahl verändert, wobei die Spaltenanzahl und -überschriften gleich bleiben.
In Spalte V stehen Euro-Beträge. Ich muss bestimmte Spalten in ein Buchungsformular übertragen, aber nur von den Datensätzen,...
08.05.2014 15:30:23
Thread-ID: 1360537
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
29
2
2
4
2
4
3
18
2
4
2
12
1
7
2
2
3
3
2
11
6
4
3
3
3