Hallo beisammen,
aus dem WS("UpDate") heraus möchte ich eine Tabelle im WS("DATEN") sortieren.
Ich habe dazu den Code über den Rekorder aufgezeichnet, das Select rausgeworfen und dabei folgendes erhalten:
Private Sub cmb_UPDATE_Click()
Dim wb1 As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb1 = ThisWorkbook
wb1.Sheets("DATEN").Range("A3:E252").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
wb1.Sheets("DATEN").Range("A3").Select
wb1.Save
...
Excel bricht den Code an der Stelle zum Sortieren ab mit der Meldung:
"Der Sortierbezug ist ungültig....."
Wie muß ich den Code denn anpassen, damit er durchläuft?
Vielen Dank für Eure Hilfe.
Gruß
Torsten