per VBA bestimmte Blätter durchsuchen
22.06.2007 09:29:46
Thomas
Ich lasse meine Tabelle mit 8 Blätter per VBA durchsuchen.
Bisher durchsucht das Makro die gesammte Tabelle. Da im 8. Blatt aber die Suchbegriffe eingetragen sind, kommt es zu doppelten Fundstellen.
Wie mache ich das, dass nur die Blätter 1-7 durchsucht werden? Mein bisheriger Code (angepasst, von der Herber-Seite) sieht so aus:
Sub suchen()
Dim Blatt As Worksheet
Dim Bereich As Range, Merke As Range
Dim Addr As String, Suchtext As String, Fundstelle As String
Set Merke = ActiveCell
Suchtext = ActiveCell.Offset(0, -2)
Sheets(1).Select
For Each Blatt In Worksheets
If Suchtext = "" Then GoTo ende
Set Bereich = Blatt.Cells.Find(what:=Suchtext, LookIn:=xlValues)
If Not Bereich Is Nothing Then
Addr = Bereich.Address
Do
Application.Goto Bereich, False
With ActiveCell
If Not ActiveCell.Address = Merke.Offset(0, -2).Address Then
Fundstelle = Fundstelle & .Worksheet.Name & " - Zelle " & .Address _
(rowabsolute:=False, columnabsolute:=False) & vbLf
End If
End With
Set Bereich = Cells.FindNext(after:=ActiveCell)
If Bereich.Address = Addr Then Exit Do
Loop
End If
Next Blatt
Sheets(8).Select
Merke = Fundstelle
ende:
For Each Blatt In Worksheets
Blatt.Select
[A1].Select
Next Blatt
End Sub
Wie muß ich das abändern, damit Blatt 8 nicht mit durchsucht wird?