Hallo allerseits,
für eine einfache Empfängerverwaltung habe ich mir eine Arbeitsmappe mit zwei Tabellen gebastelt. Auf der ersten wird per DropDown und VERWEIS() ein Formular ausgefüllt. Die Daten dafür kommen aus einer zweiten, die ich bisher mit Worksheet_Activate alphabethisch sortiert.
Was bei Activate wunderbar funktioniert, führt bei Deactivate zu einem Lauzeitfehler 1004 "Die Select-Methode des Range-Objekts konnte nicht ausgeführt werden". Der Debugger zeigt dann auf Zeile 4 des folgenden Codes:
'Private Sub Worksheet_Activate()
Private Sub Worksheet_Deactivate()
' Definition Sortier-Bereich
Range("A3:F200").Select
' Sortier-Prozedur
ActiveWorkbook.Worksheets("Empfänger").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Empfänger").Sort.SortFields.Add Key:=Range("A3"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Empfänger").Sort
.SetRange Range("a3:f200")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With
Range("A3").Select
End Sub
Was muss ich bei der Deactivate-Version anders machen? Vielen Dank im Voraus!
Lg Esmeralda
|