Spaltenweise nach leeren Zellen suchen
17.10.2005 08:13:26
egon
Mit untenstehendem Code durchsuche ich die Spalte 13 bis 18 nach leeren Zellen
klappt nicht so richtig.D.H. er findet nicht die leeren Zellen.
Der Code sollte die Spalte 13 "abarbeiten", bei finden einer leeren Zelle rausspringen. Findet er keine leeren Zellen dann weiter bis Spalte 18.
Dim wRow As Integer
Dim wsp As Integer 's = Spalte
wRow = 19
Do While ws.Cells(wRow, 2).Value <> ""
For wsp = 13 To 18
If IsNumeric(ws.Cells(wRow, wsp).Text) Then
Else
If ws.Cells(wRow, wsp).Text = "" Then
ws.Protect ("m")
Exit Sub
End If
End If
wRow = wRow + 1 'Nächste Zele durchsuchen
Next wsp
Loop
Vielen Dank im Voraus
Egon