HILFE VBA Sortierung in neue Excel-Datei

Hallo liebes Forum, ich hoffe mir kann hier jemand helfen.
Ich hatte den Post gestern schon einmal online gestellt, versuche es aber jetzt erneut, da der vermutlich untergegangen ist. Wäre wirklich toll, wenn sich das mal einer anschauen könnte und mir helfen könnte. Danke euch.
Über VBA habe ich ein Formular "Optionen" erstellt bei dem ich beim Klick auf eine CheckBox "Fahrer-Fragebogen ausleiten" folgende Geschichte ausgeführt haben möchte:
Es soll eine Excel-Tabelle, in der verschiedene Themen (in den Zeilen) nach Fahrer, Beifahrer, Fond-Insassen (in den Spalten)angegeben sind, in dem Fall nach der "Fahrer-Spalte" sortiert werden. Die Zeilen sind für die Fahrer, Beifahrer, Fond-Spalten unterschiedlich nummeriert. Diese Sortierung soll in eine neue Excel Datei kopiert werden. Die "alte" Excel soll diese Sortierung nicht übernehmen.
Ich hoffe, ich konnte mich halbwegs ausdrücken, so dass ihr wisst, wie ich mir das vorstelle? DANKE!!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christien,
...da Du auf meine letzte Antwort noch nicht reagiert hast, hier mal was Schematisches zum Thema Blatt in neue Mappe kopieren und dort sortieren... Völlig ins Blaue natürlich:

Sub a()
Dim WbQ As Workbook
Dim WsQ As Worksheet
Dim WbZ As Workbook
Dim WsZ As Worksheet
Dim rSuch As Range
'Quell-Mappe = aufrufende Mappe
'Quell-Blatt ist "Tabelle1"
Set WbQ = ThisWorkbook
Set WsQ = WbQ.Worksheets("Tabelle1")
'Quell-Blatt wird kopiert, es entsteht eine neue Mappe
'Ziel-Blatt ist das erste Blatt der neuen Mappe
WsQ.Copy
Set WbZ = ActiveWorkbook
Set WsZ = WbZ.Worksheets(1)
'Ziel-Blatt wird sortiert Bereich A1:Ex (letzte gefüllte Zelle in E)
'nach Spalte 3
'Spalten D und E werden danach gelöscht
With WsZ
With .Sort
.SortFields.Clear
.SortFields.Add Key:=WsZ.Range("C2:C" & WsZ.Cells(WsZ.Rows.Count, 3).End(xlUp).Row), _
_
SortOn:=xlSortOnValues, Order:=xlAscending
.SetRange WsZ.Range("A1:E" & WsZ.Cells(WsZ.Rows.Count, 5).End(xlUp).Row)
.Header = xlYes
.Apply
End With
.Columns("D:E").EntireColumn.Delete
End With
End Sub

Kannst Dich ja noch mit Infos melden!
LG
Michael

Beliebteste Forumthreads (12 Monate)

HILFE VBA Sortierung in neue Excel-Datei

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

HILFE VBA Sortierung in neue Excel-Datei

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread