AW: beschriebene Zelle finden
21.04.2016 08:06:31
KlausF
Hallo Jens,
probier mal
Sub ErsteLeereFinden()
Dim myRow As Long
Dim r As Long
Dim myCol As Integer
Dim c As Integer
myRow = ActiveSheet.UsedRange.Rows.Count
myCol = ActiveSheet.UsedRange.Columns.Count
For r = 1 To ActiveSheet.UsedRange.Rows.Count
For c = 1 To ActiveSheet.UsedRange.Columns.Count
If IsEmpty(Range(Cells(r, c), Cells(r, c)).Value) = True Then
'Zelle selektieren
'Range(Cells(r, c), Cells(r, c)).Select
'Zeile selektieren
Rows(r).Select
Exit Sub
End If
Next c
Next r
End Sub
Gruß
Klaus