ComboBox aktualisieren

Private Sub ComboBox1_Change()
Dim last As Integer
Dim rng As Range
last = Sheets("Tabelle2").Cells(65000, 1).End(xlUp).Offset(1, 0).Row - 1
Set rng = Sheets("Tabelle2").Range("A2:A" & last)
ComboBox1.ListFillRange = "Tabelle2!" & rng.Address
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
Call ComboBox1_Change
End If
End Sub