Zelle beim Makro nicht verlassen
10.07.2004 14:05:17
poleposition
Das ist mein Code.....was muss ich noch reinschreiben ?
Option Explicit
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Call sorttab
Application.EnableEvents = False
End Sub
Private Sub Worksheet_Change(ByVal target As Excel.Range)
If Not (Application.Intersect(target, Range("b46:m41").Columns(9)) Is Nothing) Then
Call sorttab
End If
End Sub
Sub sorttab()
Application.ScreenUpdating = False
With Sheets("GruppeA")
.[B46:M49].Copy .[B38:M41]
.[B38:M41].Sort Key1:=.[J38], Order1:=xlDescending, Key2:=.[i38], _
Order2:=xlDescending, Key3:=.[F38], Order3:=xlDescending, Header:=xlGuess
End With
Application.ScreenUpdating = True
End Sub