Liste sortieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke, Stefan,
für die Zusatzinformation zum Zweck der Extratabelle "Schüler nach Betrieben".
Kann den der VBA-Code Deine Grumdanforderungen an die Automatisierung praktikabel erfüllen? Wenn das derzeit notwendige Wechseln auf das Blatt "Schüler nach Betrieben", um den aktuallisieten und sortierten Stand zu erhalten, dann besteht die Möglichkeit, diese Routine durch Referenzierung der Objekte des Tabellenbaltt "Schüler nach betrieben" zu erweitern. Der Aufruf der Prozedur könnte dann von jeder Stelle des Projektes erfolgen.
Vielleicht könnte aber auch der Gedanke verfolgt werden, dass man das Sortieren nach Betrieben in der Tabelle "Schüler" immer nur dann vornimmt, wenn man eine bestimmt Aufgabe, z.B. eben Serienbriefe erstellen, abzuarbeiten hat. In diesem Fall würde der Sortieralgorithmus vor dem eigentlichen Seriendruck einmal auf die Tabelle "Schüler" angewendet, der Seriendruck gestartet und anschließen wieder die Ornung nach "Name, Vorname" wieder hergestellt.
Alternativ wäre aber auch denkbar, dass für die für den Serienbrief notwendigen Daten nur temporär im VBA-Programmteil des Serienbriefdruckes sortiert werden.
Beide Vorgehensweisen ersparen den Platz des zusätzlichen Tabellenblattes.
Sind jedoch weitere Eintragungen in der Tabelle "Schüler nach Betrieben" erforderlich, die sich nicht aus der der Tabelle "Schüler" erschließen, dann wäre die Vorgehensweise und Organisation m.E. noch einmal zu überdenken.
Gruß,
Uwe

Hi Stefan,
die Datei: https://www.herber.de/bbs/user/37112.xls
hat nachfolgenden Code:

Option Explicit
Sub Uebertragen()
Dim zei As Long
zei = Range("A65536").End(xlUp).Row
Worksheets("Schüler nach Betrieb").UsedRange.ClearContents
Range("A1:I" & zei).Copy Destination:=Worksheets("Schüler nach Betrieb").Range("A1")
Call Sortieren("Schüler nach Betrieb", "G2", "A2", "B2")
Worksheets("Schüler nach PLZBetrieb").UsedRange.ClearContents
Range("A1:I" & zei).Copy Destination:=Worksheets("Schüler nach PLZBetrieb").Range("A1")
Call Sortieren("Schüler nach PLZBetrieb", "H2", "A2", "B2")
Worksheets("Schüler nach PLZ").UsedRange.ClearContents
Range("A1:I" & zei).Copy Destination:=Worksheets("Schüler nach PLZ").Range("A1")
Call Sortieren("Schüler nach PLZ", "D2", "A2", "B2")
End Sub
Sub Sortieren(Blatt As String, Schl1 As String, Optional Schl2 As String, Optional Schl3 As String)
Dim zei As Long
With Worksheets(Blatt)
zei = .Range("A65536").End(xlUp).Row
If Schl3 <> "" Then
.Range("A2:I" & zei).Sort Key1:=.Range(Schl1), Order1:=xlAscending, Key2:=.Range(Schl2) _
, Order2:=xlAscending, Key3:=.Range(Schl3), Order3:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ElseIf Schl2 <> "" Then
.Range("A2:I" & zei).Sort Key1:=.Range(Schl1), Order1:=xlAscending, Key2:=.Range(Schl2) _
, Order2:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Else
.Range("A2:I" & zei).Sort Key1:=.Range(Schl1), Order1:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End With
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread