CommandButton will nicht, wie ich es will.
21.08.2003 08:22:41
Martin Halberstadt
ich habe in einer meiner Excel-Dateien im ersten Tabellenblatt einen CommandButton. Dieser löst auf Knopfdruck ein Makro aus, welches eine Suchmaske öffnet. Gibt man nun einen Namen ein und bestätigt dies, so soll in allen Tabellenblättern dieser Datei gesucht werden.
Code: (nur ein Auszug des Codes!)
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sSchnellsuche As String
sSchnellsuche = InputBox("Bitte Namen/Suchbegriff eingeben:", "Schnellsuch-Maske")
For Each wks In Worksheets
Set rng = wks.Cells.Find(what:=sSchnellsuche, lookat:=xlWhole, LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Als Vorlage habe ich in der Recherche schon einiges finden können, nur hängt sich beim Auslösen des CommandButtons das Makro bei "Set rng = wks.Cells....etc auf.
Begründung: Die Find-Eigenschaft des Range-Objekts kann nicht zugeordnet werden.
Gehe ich aber in mein zweites Tabellenblatt (ab dem 2. Tabellenblatt beginnen die Daten; 1. ist nur Suchmaske), wechsle nun in den VBA-Editor und führe das Makro dort manuell aus, so läuft das Makro durch, sucht, findet, alles toll.
Nur warum geht das nicht über den CommandButton???
Ich bin über jede Hilfe dankbar.
MfG,
Martin Halberstadt