|
Aha, Du schreibst zwar Spalte, aber Ich nahm an, Du meintest Zelle ^^
Als nun, - dazu Gegenfragen:
a) Was bezeichnest Du als Spalte?
aa) I711 bis I60 (und dann J711 bis J760, K711 bis K760 usw)?
oder
ab) I1 bis I1048576, J1 bis J1048576
b) Wenn Du die Spaltenangabe der erste Freie Zelle innerhalb deines Bereichs meinst, dann so:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Sub MsgboxFreeCellInRange()
Dim rng As Range, c As Range
With ActiveSheet
Set rng = Range("I711:NO760").SpecialCells(xlCellTypeBlanks)
End With
For Each c In rng
If Len(c) = 0 Then
MsgBox c.column
Exit For
End If
Next
Set c = Nothing: Set rng = Nothing
End Sub
|
|