Bearbeiten und Suchen mittels Makro

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Bearbeiten und Suchen mittels Makro
von: Gunter
Geschrieben am: 04.11.2003 17:07:04

Hallo Zusammen,

ich suche einen Makro, dass mir das Feld " Suchen nach " unter dem Menu Bearbeiten-Suchen immer Leer anbietet, da Excel sich immer den vorangegangen Eintrag merkt.

Danke im voraus.
Gunter

Bild


Betrifft: AW: Bearbeiten und Suchen mittels Makro
von: Regina
Geschrieben am: 04.11.2003 17:16:44

Hallo Gunter,

bietet dir ne Input Box für den Suchbegriff
und selektiert wenn gefunden
dann musst du noch einfügen, was dann passsieren soll.


Sub MultiSelect()
'  Suchbegriff in Tabelle suchen und Fundzeilen auswählen
'Mailing-Index:  1364/01
'Wie kann ich einen durch InputBox abzufragenden Suchbegriff in einer
'Tabelle suchen und alle Fundzeilen auswählen lassen?   Selectieren
Modul1:
'Option Explicit
   Dim wks As Worksheet
   Dim rngFind As Range, rngRows As Range
   Dim lngRow As Long
   Dim strFind As String, strSearch As String
        strSearch = InputBox("Suchbegriff:", , "test")
   Set rngFind = Cells.find(strSearch)
   If rngRows Is Nothing Then
      Set rngRows = rngFind
   End If
   If Not rngFind Is Nothing Then
      strFind = rngFind.Address
      Do
         Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
         Set rngFind = Cells.FindNext(after:=rngFind)
         If rngFind.Address = strFind Then Exit Do
      Loop
   End If
   rngRows.Select
End Sub



Gruß Regina


Bild


Betrifft: Super Regina. Ich Danke dir!!
von: Gunter
Geschrieben am: 04.11.2003 17:42:36

Super Regina. Ich Danke dir!!


Bild

Beiträge aus den Excel-Beispielen zum Thema " Bearbeiten und Suchen mittels Makro"