Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Userform
Screenshot zu Userform	Userform-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

Makro verbessern

• Makro verbessern von Peter vom 10.10.2020 18:58:49
• AW: Makro verbessern - von AlterDresdner am 10.10.2020 19:07:58
  • AW: Makro verbessern - von Peter am 10.10.2020 19:19:21

Betrifft: Makro verbessern von: Peter
Geschrieben am: 10.10.2020 18:58:49

Guten Abend,


ich bräuchte mal Eure Hilfe.


Ich habe folgendes Makro mit Hilfe des Forums vor einiger Zeit gebastelt und seit dem im Einsatz.

Jetzt würde ich gerne aber zwei Verbesserungen einbauen.

Die Suche soll per Enter möglich sein. Momentan muss ich den Button drücken.

Viel wichtiger wäre mir aber, dass bei der Suche nicht nur ein Treffer angezeigt werden würde, wenn ich das komplette Wort eingegeben habe. Eine Suche per Jokerfunktion wäre gut.


Beispiel:

Wenn ich Huber suchen will, muss ich derzeit das ganze Wort Huber eingeben. Es wäre super, wenn ich das Wort beispielsweise auch mit Eingabe Hu* finden kann.


Eine Beispiel-Datei lade ich hoch.


https://www.herber.de/bbs/user/140788.xlsm


Wer hat Lust und Zeit sich das mal anzuschauen.


Danke und Gruß

Peter

  

Betrifft: AW: Makro verbessern
von: AlterDresdner
Geschrieben am: 10.10.2020 19:07:58

Hallo Peter,
wenn Du im Code der Userform einfügst

Private Sub TextBox1_AfterUpdate()
  CommandButton1_Click
End Sub

startet die Suche nach Return.
Und wenn Du in CommandButton1_Click das xlWhole durch xlPart ersetzt

  Set rngCell = .Find(Me.TextBox1.Value, LookIn:=xlValues, lookat:=xlPart)

wird auch nach Teilen gesucht. Er findet dann aber auch mit ispie das Beispiel...
Gruß der AlteDresdner

  

Betrifft: AW: Makro verbessern
von: Peter
Geschrieben am: 10.10.2020 19:19:21

Hallo,
das ist ja echt cool. Besten Dank für Deine Hilfe!

Schönes Restwochenende und echt toll die Hilfsbereitschaft hier im Forum.
Peter