Code will net so wie ich...Bitte um Hilfe
06.11.2007 20:41:50
Peter
irgendwie stimmt an dem nachfolgenden Code was nicht, ich hoffe hier kann von Euch jemand hilfreich eingreifen
Sub DisqualiB()
Dim A As Variant
Sheets("WKKlasseBeginner").Activate
For A = 16 To 86
If Cells(A, 45) = "RK" Or Cells(A, 45) = "A" Then
Cells(A, 45).EntireRow.Delete
End If
Next A
End Sub
Vielen Dank
Peter S.