Office: Suchfunktion mittels VBA in Excel programmieren

Amanthul · 4. April 2016

Hallo werte Community

Ich habe mir hobbymäßig für ein Spiel eine Datenbank angelegt.

Nun möchte ich, gemäß Anhang, per Knopfdruck nach einem Monster (z.B. Amazone, Spalte B) suchen lassen.

Allerdings scheitert es bei mir an der VBA Programmierung.

Kann mir da wer helfen?

Bin für jede Hilfe dankbar, meine VBA Kenntnisse sind mir in meiner Laufbahn irgendwie abhanden gekommen *entsetzt

:)

Hajo_Zi · 6. April 2016

in einer XLSX Datei kann kein Makro sein, also ist Dein Versuch nicht in der Datei. Benutze Find()

aloys78 · 6. April 2016

Hallo,

... meine VBA Kenntnisse sind mir in meiner Laufbahn irgendwie abhanden gekommen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es gibt Schlimmeres !

Nun möchte ich, gemäß Anhang, per Knopfdruck nach einem Monster (z.B. Amazone, Spalte B) suchen lassen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kannst Du mal an einem Beispiel näher beschreiben, wie Du Dir den Suchvorgang vorstellst, und wie das Ergebnis dargestellt werden soll ?

Gruß
Aloys

Amanthul · 12. Januar 2021

von aloys78

Hallo,

Es gibt Schlimmeres !

Kannst Du mal an einem Beispiel näher beschreiben, wie Du Dir den Suchvorgang vorstellst, und wie das Ergebnis dargestellt werden soll ?

Gruß
Aloys
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich möchte, wenn ich auf den Button klicke, dass sich ein Fenster ergibt, wo ich z.B. Amazone oder Salamander eingeben kann und mir die Liste nur nach diesen gesuchten Monstern gefiltert anzeigt oder auf den entsprechenden Eintrag hüpft.

Klar, mittels Filter-Funktion geht das auch, aber bei der Fülle an Einträgen das richtige zu finden ist mühsam denke ich.

Daher möchte ich eine einfache Suchoption mittels Button machen

R J · 6. April 2016

Hi Amanthul,

weise Deinem Button folgendes Makro zu:

Code:

Private Sub CommandButton1_Click()
Suche
End Sub

Sub Suche()
Dim lastRow&, was$
With Worksheets("Monster Runen")
.Activate
lastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
was = InputBox("Welches Monster soll gesucht werden?", "Monstersuche", "Yeti")
If .AutoFilterMode Then .AutoFilterMode = False
.Range("$A$2:$M$" & lastRow).AutoFilter Field:=2, Criteria1:=was
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Amanthul · 12. Januar 2021

von R J

Hi Amanthul,

weise Deinem Button folgendes Makro zu:

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Private Sub CommandButton1_Click()
Suche
End Sub

Sub Suche()
Dim lastRow&, was$
With Worksheets("Monster Runen")
.Activate
lastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
was = InputBox("Welches Monster soll gesucht werden?", "Monstersuche", "Yeti")
If .AutoFilterMode Then .AutoFilterMode = False
.Range("$A$2:$M$" & lastRow).AutoFilter Field:=2, Criteria1:=was
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Endgeil, danke Ralf *biggrin.gif*

Noch etwas kleines:
wie bekomme ich die Liste wieder, wenn ich mit Suchen fertig bin? *tongue.gif*

Beverly · 6. April 2016

Hi,

anbei eine etwas luxoriösere Lösung *wink.gif*

R J · 6. April 2016

Noch etwas kleines:
wie bekomme ich die Liste wieder, wenn ich mit Suchen fertig bin?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

...indem Du statt des 'normalen' Buttons eine ToggleButton nimmst und diesen Code verwendest:
Code:

Private Sub ToggleButton1_Click()
Suche ToggleButton1.Value
End Sub

Sub Suche(wie As Boolean)
Dim lastRow&, was$
With Worksheets("Monster Runen")
.Activate
If wie Then
lastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
was = InputBox("Welches Monster soll gesucht werden?", "Monstersuche", "Yeti")
If .AutoFilterMode Then .AutoFilterMode = False
.Range("$A$2:$M$" & lastRow).AutoFilter Field:=2, Criteria1:=was
ToggleButton1.Caption = "Zeige alle Monster..."
Else
.AutoFilterMode = False
ToggleButton1.Caption = "Suche nach Monster..."
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Amanthul · 6. April 2016

Super *biggrin.gif*

Ich danke euch für die schnelle Hilfe *Smilie

Office: Suchfunktion mittels VBA in Excel programmieren

Suchfunktion mittels VBA in Excel programmieren

Suchfunktion mittels VBA in Excel programmieren

Suchfunktion mittels VBA in Excel programmieren

Suchfunktion mittels VBA in Excel programmieren

Suchfunktion mittels VBA in Excel programmieren - Similar Threads - Suchfunktion mittels VBA

Suchfunktion für Listbox in Textbox

Suchfunktion beschleunigen

Suchfunktion in Zeile einbinden ?

Suchfunktion innerhalb der Foren

Find,Suchfunktion funktioniert nicht bei Excel 2016

VPA Suchfunktion mit Ausblenden

Suchfunktion kaputt nach Windows update