Excel vba dropdown mit variabler Liste

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As RANGE
If Not Application.Intersect(Target, Me.RANGE(„A2:A6“)) Is Nothing Then
    For Each c In Application.Intersect(Target, Me.RANGE(„A2:A6“))
      Application.EnableEvents = False
Dim t As Integer
t = ThisWorkbook.Worksheets(„Tabelle1“).Cells(6, Columns.Count).End(xlToLeft).column - 1
Dim u As Integer
For u = 2 To t
If Me.Cells(c.Row, „A“).Value = ThisWorkbook.Worksheets(„Tabelle1“).Cells(6, u).Value Then
Dim h As Integer
 h = ThisWorkbook.Worksheets(„Tabelle1).Cells(Rows.Count, u).End(xlUp).Row - 6
With Worksheets(„Tabelle“2).Cells(c.Row, „B“).Validation
          	  	.Delete
            		.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
           	  	xlNotBetween, Formula1:="=" & ThisWorkbook.Worksheets(„Tabelle1“).Cells(7, u).Address & ":" & ThisWorkbook.Worksheets(„Tabelle1“).Cells((7+h), u).Address 'hier das Problem, es funktioniert nicht
           	 	.IgnoreBlank = True
            		.InCellDropdown = True
            		.InputTitle = "Choose"
            		.ErrorTitle = ""
            		.InputMessage = "Please choose"
            		.ErrorMessage = ""
           	 	.ShowInput = True
            		.ShowError = False
            	End With
End If
End If
Next u
    Application.EnableEvents = True
Next c
End Sub