Jo, dass der Code funktioniert, davon bin ich auch ueberzeugt.
Vielleicht hat sich Freake noch nichts gebastelt um alle Tabellenblaetter durchzugehen und es findest halt die Zahlenkombi auf dem ersten Blatt nicht
Ein Versuch ueber alle Blaetter saehe wohl so aehnlich aus:
Dim zusuchen, kombination As String
zusuchen = InputBox("Wonach suchen?")
For n = 1 To Sheets.Count
ActiveWorkbook.Worksheets(n).Select
For i = 3 To 59
ActiveSheet.Cells(i, 3).Activate
kombination = ActiveCell.Value & ActiveCell.Offset(0, 1).Value & ActiveCell.Offset(0, 2).Value _
& ActiveCell.Offset(0, 3).Value & ActiveCell.Offset(0, 4).Value _
& ActiveCell.Offset(0, 5).Value & ActiveCell.Offset(0, 6).Value
If kombination = zusuchen Then
MsgBox "gefunden in zeile " & i
End If
Next i
Next n
[/PHP]
Goos