Re: Suche nach leeren Zellen
10.04.2003 14:13:25
ChrisL
Hallo BobHier mein Vorschlag...
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Long, LetzteZeile As Long
'Letzte Zeile ermitteln
If Sheets("Tabelle2").Range("B65536").End(xlUp).Row > Sheets("Tabelle2").Range("C65536").End(xlUp).Row Then
LetzteZeile = Sheets("Tabelle2").Range("B65536").End(xlUp).Row
Else
LetzteZeile = Sheets("Tabelle2").Range("C65536").End(xlUp).Row
End If
'Schlaufe
For i = 1 To LetzteZeile
If Sheets("Tabelle2").Cells(i, 2) = "" And Sheets("Tabelle2").Cells(i, 3) = "" Then
Sheets("Tabelle2").Cells(i, 1) = Sheets("Tabelle1").Range("C9")
Exit Sub
End If
Next i
'Falls Bedinung nicht erfüllt am Ende einfügen
Sheets("Tabelle2").Cells(LetzteZeile + 1, 1) = Sheets("Tabelle1").Range("C9")
End Sub
Falls leere Zeilen in Spalte B und C nur am Ende der Liste vorkommen kann, könnte man das ganze noch anders machen.
Gruss
Chris