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