Next ohne for?!
07.01.2004 13:34:35
Andre
Public
Sub Berichtkennz()
Dim SuBe As Range, c As Range
Dim s As String
Dim laR As Long
Dim i As Integer
Dim LetzteZeile As Integer
Application.ScreenUpdating = False
Application.Calculation = xlManual
LetzteZeile = Sheets("Bericht").Cells(Cells.Rows.Count, 1).End(xlUp).Row
Sheets("Archiv").Visible = True
For i = 11 To LetzteZeile
s = Sheets("Bericht").Range("A" & i).Value
With Sheets("Archiv")
laR = .Cells(Rows.Count, 1).End(xlUp).Row
Set SuBe = .Range("A1:A" & laR). _
Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then
.Cells(SuBe.Row, 30) = "X"
Next i
Set SuBe = Nothing
Sheets("Archiv").Visible = False
Application.ScreenUpdating = True
Application.CalculateBeforeSave = True
Application.Calculation = xlAutomatic
End If
End With
End Sub
Gruß Andre