ich habe ein neues problem
ich hoffe diesmal kann jemand helfen
wie kann ich zb ab zeile 9 in spalte g alle einträge löschen wenn es keine kombobox ist,da diese stehen bleiben sollen
danke im voraus
gruß rene
Sub Loeschen_Spezial()
Dim rng As Range
Dim intV As Integer
Dim intC As Integer
Dim varArr() As Variant
Dim varRng As Variant
Set rng = Range("G9:G65536")
intV = rng.SpecialCells(xlCellTypeAllValidation).Count
varRng = Split(rng.SpecialCells(xlCellTypeAllValidation).Address, ",")
ReDim varArr(intV)
For intC = 1 To intV
varArr(intC) = Range(varRng(intC - 1))
Next
rng.ClearContents
For intC = 1 To intV
Range(varRng(intC - 1)) = varArr(intC)
Next
End Sub