VBA-Code mit Zelleintrag starten
Wolfango
ich habe einen VBA-Code, der genau das tut, was er soll.
(...erhalten letzten Freitag von J. Ehrensberger - wiederholt Dankeschön! Leider kann ich nicht mehr auf die Nachricht antworten, da im Archiv)
Derzeit wir das Makro manuell ausgelöst.
Nun möchte ich , dass genau dieser Code (steht in einem Modul) ausgelöst wird, sobald in Zelle B1 etwas neues eingetragen wird.
Wie muss ich den VBA-Code ändern, um zum Ziel zu kommen?
(...ich vermute mal, dass dies irgendwie geht...)
Hier nochmal der Code (zur Aktualisierung des Autofilters):
Sub actualizeFilter()
Dim objFilter As Filter
Dim lngIndex As Long
On Error Resume Next
With Sheets("Tabelle2") 'Tabelenname anpassen!
If .AutoFilterMode Then
For Each objFilter In .AutoFilter.Filters
lngIndex = lngIndex + 1
If objFilter.On Then
.AutoFilter.Range.AutoFilter Field:=lngIndex, Criteria1:=objFilter.Criteria1
.AutoFilter.Range.AutoFilter Field:=lngIndex, Criteria2:=objFilter.Criteria2
.AutoFilter.Range.AutoFilter Field:=lngIndex, Operator:=objFilter.Operator
End If
Next
End If
End With
Err.Clear
On Error GoTo 0
End Sub
Danke und Gruß,
Wo.
Anzeige