ich hab eine bitte...kann mir jemand den unten stehenden Code so erweitern, dass er in einem geschlossenem Dokument alle Tabellenblätter durchsucht.
Sub suffix()
n = ActiveCell.SpecialCells(xlLastCell).row
Suchbegriff = InputBox("Bitte Motorcode eingeben:")
For i = 2 To n
If Range("B" & i) = Suchbegriff Then
MsgBox " Suffix " & vbTab & Range("H" & i)
Exit Sub
End If
Next
MsgBox "Es wurde kein Eintrag zu """ & Suchbegriff & """ gefunden."
End Sub
Danke
Gruß Thomas