Nummer finden
15.11.2004 08:44:32
Stan
Mein Makro findet eingegebene Teilenummer und hinterlegt sie blau. Ich will aber, dass Cursor springt auch auf diese Position. Beim nächsten Suchversuch sollten alte Markierungen wieder gelöscht werden (oder Tabelle zurückgesetzt.
Brauche ich dazu zusätzlichen Button oder es geht anders.
Danke für Hilfe Stan.
Sub Suchen()
Dim i As Integer
Dim Blatt As Worksheet
Dim suchbegriff As String
Dim s As String
Dim Zelle As Range
suchbegriff = InputBox("Geben Sie die Teilenummer ein!", "So finden Sie die Teilenummer")
For i = 1 To Application.Workbooks.Count
For Each Blatt In Workbooks(i).Worksheets
Blatt.Activate
Set Zelle = Blatt.Cells.Find(suchbegriff)
If Not Zelle Is Nothing Then
s = Zelle.Address
Do
Zelle.Activate
Zelle.Interior.ColorIndex = 33
If Zelle.Address = s Then Exit Do
Zelle.Interior.ColorIndex = 33
Loop
End If
Next Blatt
Workbooks(i).Activate
Next i
End Sub
Anzeige