Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sortierung unter EXCEL 97/2002

Sortierung unter EXCEL 97/2002
01.10.2002 10:45:51
Thomas Figge
Hallo,

folgendes Problem bekomme ich nicht gelöst. Ich möchte erreichen, dass eine Datentabelle mit diversen Schlüsseln (für den SVerweis) versehen wird und am Ende die gesamte Tabelle nach Namen sortiert wird.
Dabei liegt der Überschriftenbereich bei A6 bis CA6 bis variable Länge... Der unterstehende Code funktioniert
leider nicht, da unter dem Abschnitt für EXCEL 2002 unter de Version 97 folgende Fehlermeldung erscheint
"Variable nicht definiert".

'++++++++++++++++++++++++++++++++++++++
' Sortierung durchführen je nach EXCEL Version
' ++++++++++++++++++++++++++++++++++++++

Dim ExcelVersion As String
ExcelVersion = Left(Application.Version, 2)

' Zu Testzwecken
MsgBox ExcelVersion

If ExcelVersion = "8." Then
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A6").Select
End If

If ExcelVersion = "10" Then
Dim Blatt As Worksheet
Set Blatt = Sheets("VIPS")
Range("A6").Select
Blatt.Range(ActiveCell.Address).CurrentRegion.Select
Range(Blatt).Sort Key1:=Range("A7"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select
End If

Wie kann ich es erreichen, dass je nach EXCEL Version der "Datenbereich" nach Namen (Spalte A ab Zelle 7) sortiert wird.

Vielen Dank für jeden Hinweis.
Thomas Figge

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Erledigt - so funktioniert es
01.10.2002 11:25:25
Thomas Figge
' ++++++++++++++++++++++++++++++++++++++
' Sortierung der Datentabelle nach Namen
' ++++++++++++++++++++++++++++++++++++++
Sheets("VIPS").Select

' Zelle der Überschrift
Range("A6").Select

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Sort Key1:=Range("A6"), _
order1:=xlAscending, header:=xlGuess, _
ordercustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige