Private Sub Worksheet_Change(ByVal Target As Range)
Dim merkZelle As Range
Set merkZelle = ActiveCell
If Not Application.Intersect(Target, Range("r22:t27")) Is Nothing Then
Call Sortiere_Tabelle_A
End If
merkZelle.Activate
End Sub
Mein Problem
Es sortiert die Tabelle A nicht vollständig, wenn ich das Makro sortiere Tabelle A
Als eigenes Makro ausführe funktioniert es.
Was mach ich oder was ist da der Fehler bitte um Hilfe
Hier das MAkro zum Sortieren
Sub Sortiere_Tabelle_A()
'
' Sortiere_Tabelle_A Makro
'
'
Range("BB14:BI18").Select
ActiveWorkbook.Worksheets("Masters").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Masters").Sort.SortFields.Add2 Key:=Range( _
"BB15:BB18"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Masters").Sort
.SetRange Range("BB14:BI18")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D15:L15").Select
End Sub