VBA-Programmierung in Microsoft Excel

Suchbegriff in vorhergehenden Tabellen suchen

StandardModule: basMain

Sub Suchen()
   Dim rng As Range
   Dim iCounter As Integer
   Dim sSearch As String, sAddress As String, sFirst As String
   Dim bln As Boolean
   sSearch = InputBox("Bitte Suchbegriff eingeben:", , "Martin")
   If sSearch = "" Then Exit Sub
   For iCounter = ActiveSheet.Index - 1 To 1 Step -1
      Set rng = Worksheets(iCounter).Columns("A").Find _
         (sSearch, lookat:=xlPart, LookIn:=xlValues)
      If Not rng Is Nothing Then
         sFirst = rng.Address(False, False)
         MsgBox Worksheets(iCounter).Name & "!" & sFirst
         bln = True
         Do Until sAddress = sFirst
            Set rng = Worksheets(iCounter).Columns("A").FindNext(after:=rng)
            sAddress = rng.Address(False, False)
            If sFirst <> sAddress Then
               MsgBox Worksheets(iCounter).Name & "!" & sAddress
            End If
         Loop
         sAddress = ""
         sFirst = ""
      End If
   Next iCounter
   If bln = False Then
      MsgBox "Der Suchbegriff wurde nicht gefunden!"
   End If
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen