|
Guten Abend,
ich habe beireis ein Worksheet_Change Event in einem Tabellenlbatt und habe nun eine zweite Sub geschrieben, das ebenfalls ausführt werden soll, wenn in dem Fall eine andere Zelle geändert wird.
1) Sortieren der Orte wenn eine weiterer Ort dazu kommt, oder ...
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("tbl_Ort[Gälisch]")) Is Nothing Then
Dim Gälisch As String
Gälisch = Target.Value
Range("tbl_Ort").Sort Key1:=Range("tbl_Ort[Gälisch]"), order1:=xlAscending, Header:=xlYes
Range("A:A").Find(what:=Gälisch).Activate
End If
End Sub
2) Suche nach Ort (mit Filter)
Sub Suche_Ort()
shFilter.Range("G2, H3, I4").Value = "*" & Range("Suche_Ort").Value & "*"
Range("tbl_Ort[#All]").AdvancedFilter xlFilterInPlace, shFilter.Range("G1:I4")
End Sub
Wie kann ich dieses Problem lösen?
|