AW: Mit VBA nächste leere Zeile suchen
05.09.2003 12:15:12
Olim Kalimba
Hallo Mirko,
versuch's mal mit dem untenstehenden Makro:
mit »ActiveSheet.UsedRange.Rows.Count« und »ActiveSheet.UsedRange.Columns.Count« wird der zu durchsuchende Bereich festgelegt, d.h. Excel schaut nach bis zu welcher Spalte bzw. Zeile Daten enthalten sind.
Anschließend 'geht' das Makro Zeile für Zeile durch den Bereich. Wird eine leere Zeile gefunden, wird diese selektiert und das Makro beendet.
Ich hoffe, dass ich Dir ein wenig weiterhelfen konnte.
Gruß
\Olaf
Sub FIND_EMPTY_CELL()
Dim zeil As Integer, spalt As Integer
Dim z As Integer, s As Integer
zeil = ActiveSheet.UsedRange.Rows.Count 'letzte ausgefüllte Zeile
spalt = ActiveSheet.UsedRange.Columns.Count 'letzte ausgefüllte Spalte
For z = 1 To ActiveSheet.UsedRange.Rows.Count 'mit Zeilen anfangen
'Spalte für Spalte der obigen Zeile durchsuchen
For s = 1 To ActiveSheet.UsedRange.Columns.Count
If IsEmpty(Range(Cells(z, s), Cells(z, s)).Value) = True Then
'leere Zelle gefunden
Range(Cells(z, s), Cells(z, s)).Select 'gefundene Zelle selektieren
'Makro verlassen
Exit Sub
End If
Next s
Next z
End Sub