Sortierproblem

Hallo Forum,
ich habe folgendes Problem beim Sortieren einer Tabelle die ich automatisch erstelle. Zur besseren Veranschaulichung habe ich mal eine Beispieldatei hochgeladen:
https://www.herber.de/bbs/user/105380.xlsx
Die Einträge bestehen jeweils aus 3 Teilen. Dem Namen, der Art (SW oder HW), und dem Text. Ich würde die Blöcke gerne nach HW und SW sortieren. Dabei sollten zuerst alle Blöcke die als Art HW haben auftauchen und danach die mit SW. Das Format sollte wenn möglich beibehalten werden.
Ein zusätzliches Problem ist, dass ich nicht weiß wieviele Blöcke insgesamt in eine Datei kommen, da dies immer unterschiedlich ist.
Gibt es da eine einfache Methode das ganze umzusetzen? Ich hatte überlegt die Blöcke auszulesen und eine Hilfstabelle zu machen, diese dann zu sortieren, und wieder in die Tabelle zu schreiben.. Aber das wäre sehr aufwendig und Fehleranfällig, weil ja auch immer unterschiedlich viele Blöcke eingefügt werden.
Vielen Dank an alle Leser :D
Gruß
Alex

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sortierproblem

03.05.2016 15:30:02

Piet

AW: Sortierproblem

03.05.2016 16:27:30

Alex

AW: Sortierproblem

03.05.2016 20:32:23

Piet

Hallo Alex
nach meinem Wissen ist das Sortieren aus mehreren Gründen nicht möglich!
1. verbundene Zellen können nach meinem Wissen nicht sortiert werden.
2. jeder Block soll ja als vollständiger Daten-Block sortiert werden. Oder??
Diese Funktion, Daten Blockweise sortieren, gibt es meines Wissens nicht.
Alternativ wäre jeden Namen-Block in eine andere Tabelle zu kpoieren.
Dazu ein kleines Makro von mir. Es kopiert Alle Daten in Tabelle 2.
Ich hoffe es hilft dir dein Problem zu lösen.
Ich lasse den Thread für andere Lösungen offen.
mfg Piet


Option Explicit      '3.5.2016
Dim Tab1 As Object, Tab2 As Object
Dim EndCell As Long  'End-Zelle
'Tabelle kopieren statt sortieren
Sub Tabelle_Namenfeld_kopieren()
Dim AC As Object, ze As Long, z As Long
Set Tab1 = Worksheets("Tabelle1")
Set Tab2 = Worksheets("Tabelle2")
EndCell = Tab2.Cells.Rows.Count
Tab2.Range("B1:D" & EndCell).Clear
'Schleife für Text "HW" kopieren
For Each AC In Tab2.Range("B1:D" & EndCell)
If AC.Value = "HW" Then GoSub kopieren
Next AC
'Schleife für Text "SW" kopieren
For Each AC In Tab2.Range("B1:D" & EndCell)
If AC.Value = "SW" Then GoSub kopieren
Next AC
Exit Sub
kopieren:  '"HW/SW" Bereiche Kopieren
'Schleife für next "HW(SW" finden
For z = 1 To 100
If AC.Offset(z, 0) = "HW" Or AC.Offset(z, 0) = "SW" Then Exit For
Next z
'LastCell in Tabelle 2 ermittlen
ze = Tab2.Cells(EndCell, "B").End(xlUp).Row + 2
If ze = 3 Then ze = 1   'Korrektur in 1.Zeile
'Bereich Tabelle1 nach Tabelle2 kopieren
Tab1.Cells(AC.Row - 1, "B").Resize(z, 3).Copy
Tab2.Cells(ze, "B").PasteSpecial xlPasteAll
Application.CutCopyMode = False
Return
End Sub

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread