Makro nach Zelländerung oder Buttonklick ausführen

Liebe Excel-Spezialisten,
ich benötige Hilfe beim automatischen Ausführen eines Makros. Zu meinem speziellen Fall konnte ich leider in keinem Forumbeitrag eine passende Hilfe finden.
Ich habe eine eigene Suchfunktion geschrieben, die in bestimmten Feldern meiner Tabelle sucht (es geht um eine Liste mit Namen, Adressen etc.). Den Suchbegriff muss der Nutzer in einer Zelle eingeben (B2). Diese Suche selbst funktioniert einwandfrei.
Ich verwende Worksheet_Change, um nach dem Ändern des Zellwertes automatisch das Suchmakro zu starten. Dies klappt.
Ich habe außerdem einen Suchbutton eingefügt, mit dem man ebenfalls nach dem Suchbegriff suchen kann. Dies ist nötig, weil bei einem nicht geänderten Suchbegriff die Suche ja auch irgendwie startbar sein soll. Dies klappt auch.
Nun kommt das Problem: Wenn der Nutzer gerade im Suchfeld einen Suchbegriff eingegeben hat und nun (statt der Entertaste) direkt auf den Suchbutton klickt, wird das Makro zweimal nacheinander ausgelöst. Wie kann ich dies verhindern? Ich möchte also, dass das Makro in jedem Fall nur einmal gestartet wird.
Ich habe eine Beispieldatei hochgeladen, die nur das Wesentliche enthält (ohne die Daten, ohne die eigentliche Suchfunktion, sondern nur mit einer Messagebox).
https://www.herber.de/bbs/user/98710.xlsm
Wenn mir jemand helfen kann, wäre das toll.
Herzliche Grüße,
Sander

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub StartSearch() Application.EnableEvents = False If Range("SuchString").Cells(1, 1) = "Name eingeben" Or Trim(Range("SuchString").Cells(1, 1)) = _ "" Then Range("SuchString").Cells(1, 1).Select MsgBox "Geben Sie einen Namen oder einen Teil eines Namens ein und klicken Sie anschließend _ erneut auf ""Suchen"".", vbInformation Range("SuchString").Cells(1, 1).Activate Else Range("SuchString").Cells(1, 1).Select MsgBox "Jetzt startet die Suche." End If Application.EnableEvents = True End Sub

Ok sorry. Dachte bei mir hätte es geklappt gehabt.
Habe jetzt einen neuen Lösungsansatz. Hoffe der klappt!


Option Explicit
Public prüfung As Boolean
Sub StartSearch()
If Range("SuchString").Cells(1, 1) = "Name eingeben" Or Trim(Range("SuchString").Cells(1, 1)) = _
_
"" Then
Range("SuchString").Cells(1, 1).Select
MsgBox "Geben Sie einen Namen oder einen Teil eines Namens ein und klicken Sie anschließend  _
_erneut auf ""Suchen"".", vbInformation
Range("SuchString").Cells(1, 1).Activate
Else
Range("SuchString").Cells(1, 1).Select
MsgBox "Jetzt startet die Suche."
prüfung = True
End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If prüfung = True Then
prüfung = False
Exit Sub
End If
If Not (Intersect(Range("SuchString"), Target) Is Nothing) Then
If Trim(Range("SuchString").Cells(1, 1)) = "" Then
Range("SuchString").Cells(1, 1) = "Name eingeben"
ElseIf Not Range("SuchString").Cells(1, 1) = "Name eingeben" Then
Call StartSearch
End If
End If
End Sub

Option Explicit Public Sub StartSearch() If Not Intersect(Selection, Range("A2")) Is Nothing Then MsgBox "Starte Suche" Else ActiveCell.Offset(1, 0).Select 'sonst normales Enter-Verhalten: Cursor rückt ein Feld nach unten End If End Sub

Beliebteste Forumthreads (12 Monate)

Makro nach Zelländerung oder Buttonklick ausführen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro nach Zelländerung oder Buttonklick ausführen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread