Dim Spaltenbeginn As String
Dim Spaltenende As String
Dim TestRange As Range
Dim rngValidations As Range
Dim rngCell As Range
Spaltenbeginn = "M" + CStr(15)
Spaltenende = "M" + CStr(lastrow)
Set TestRange = Range("Spaltenbeginn:Spaltenende")
Set rngValidations = TestRange.SpecialCells(xlCellTypeAllValidation)
For Each rngCell In rngValidations.Cells
If rngCell.Validation.Type = XlDVType.xlValidateList Then