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