Sub Erste_freie_Spalte_XXX()
Dim i As Long, rngFund As Range, boFrei As Boolean
With Worksheets("XXX")
For i = 9 To 379
Set rngFund = .Columns(i).Find(what:="*", after:=.Cells(2456, i), LookIn:=xlValues, _
lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
If Not rngFund Is Nothing Then
If rngFund.Row < 2406 Then
boFrei = True
MSGBOX "Erste komplett freie Spalte ist Spalte " & Split(rngFund.Address, "$")(1)
Exit For
End If
End If
Next i
End With
If Not boFrei Then
MSGBOX "Es gibt keine komplett leere Spalte im Bereich I2406:NO2455"
End If
Set rngFund = Nothing
End Sub