Find problem
10.04.2008 11:08:09
Sebastian
ich habe folgende Suche eingefügt (durch Recherchen im Forum/Beispiele) und leider festgestellt, dass es nicht funktioniert! Liegt ein Syntaxfehler vor oder wird es ein anderes Problem haben?
If Sheets(ws).Range(Sheets(ws).Cells(12 + i, 2), Sheets(ws).Cells(12 + xonx, 2)).Find(What:= _
Sheets(ws).Cells(12 + i, 8).Value, LookIn:=xlValues, LookAt:=xlPart) Is Nothing Then
Select Case Sheets(ws).Cells(5, 4).Value
Case "win"
Cells(7 + j, 8).Value = Cells(7 + j, 8).Value + 1
Case "draw"
Cells(7 + j, 9).Value = Cells(7 + j, 9).Value + 1
Case "lost"
Cells(7 + j, 10).Value = Cells(7 + j, 10).Value + 1
Case Else
'do nothing
End Select
Else
'do nothing
End If
Vielen Dank im Voraus!
Gruss,
Sebastian