title image


Smiley Re: Löschfunktion
Ich habs gern etwas Tricky...



Mir hat keiner so eine Antwort hier im Forum gegeben !

Markier vorher alles und stell es um auf Text !

Sicherungskopie nicht vergessen !!!

Aber hier nun deine Funtktion:





Getestet und bereit !!!





Public Function Zeile_Weg()

Dim I, J, Points As Long

'Function By Björn Tonn

'bjoern.tonn@web.de

I = 1



While I < 2000 ' Prüft nur die ersten 2000



Points = 0



For J = 9 To 20

If Worksheets(1).Cells(I, J).Value = "0" Then

Points = Points + 1

End If

Next J



If Points = 12 Then

Rows(I & ":" & I).Select

Selection.Delete Shift:=xlUp

End If



I = I + 1



Wend

End Function



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: