Suchmaske Datenbank Excel

[YBob]

Hallo Leute,

ich bin mit VBA nicht so bewandert, daher mein Eintrag hier.

Ich habe mir schon aus vorhandenen Vorlagen etwas in Excel zusammen gebastelt. Es soll eine Datenbank für die Arbeit werden, um meine Vorgänge zu verwalten. Was noch fehlt, ist eine Suchfunktion im Reiter "Formular" über einen Button, der die gesamte Datenbak im Reiter "Datenbank" durchsucht und (wie schon über die Scroll-Fenster Grundstück und Aktenzeichen) die Daten entsprechend dem Sucheintrag im Reiter "Formular" anzeigt (oder ausgibt, kein Eintrag wenn nicht vorhanden).

Die Excel-Datei habe ich angehangen. Ich habe leider schon viel Zeit und Nerven ohne Ergebnis investiert.

Ich hoffe, ihr könnt mir weiter helfen. 

Viele Grüße
Karsten

[Klaus-Dieter]

Hallo,

warum verwendest du kein UserForm ?

[RPP63]

Moin!
Warum sollte er, Klaus-Dieter?
Ich persönlich finde ein F-Tabellenblatt mit F-Steuerelementen sogar "hübscher".
Außerdem sind Zellen erheblich besser als TextBoxes, wenn man ein bestimmtes Format haben will.
Die CDingens()-Funktionen von VBA können entfallen, eine Datengültigkeit ist sicherlich besser als das Ganze über VBA nachzustellen.

@Karsten:
Deine Wünsche sind nicht klar genug beschrieben.
Was soll gesucht werden?

Gruß Ralf

[Klaus-Dieter]

Hallo Ralf,

Warum sollte er, Klaus-Dieter?

darüber möchte ich keine Diskussion lostreten, ich persönlich finde UserForms praktischer.

[RPP63]

Zusatz:
Du willst doch erst mal die Datenmaske nutzen, Karsten.
Für einen Newbie nicht die schlechteste Lösung.
VBA meckert Dir doch Deinen "Fehler" an.
Verzichte auf die verbundenen Zellen!
Klicke "Kriterien" und Du kannst sogar einen Teilstring suchen:
Tec in Ausprägung findet Technik

Gruß Ralf

[YBob]

Danke für eure Hinweise.
Mit UserForm habe ich bisher noch nicht gearbeitet, daher kam es noch nicht in Betracht für mich. Sicherlich auch eine gute Variante, aber Ralf schreibt ganz treffend, dass ich ein Newbie bin.

@ Ralf
Eigentlich möchte ich nur ein Feld haben, wie ich es auch in Excel habe, wenn ich die Suche starte. Dort wird mir doch sofort angezeigt, sobald auf der Suche ewas gefunden wird, auch wenn ich den Suchbegriff nicht komplett eingebe. Also ein Suchfeld, dass das Ergebnis aus dem Reiter Datenblatt (egal nach was ich suche) im Formularreiter in Form der Daten anzeigt. Sicherlich wäre auch ein Suchfeld sinnvoll, was nur auf Aktenzeichen oder Grundstücke ausgelegt ist. Wichtig ist mir nur, dass ich das Suchergebnis direkt im Formularreiter in Form der Daten angezeigt bekomme und nicht im Datenblatt rumfummeln muss. Kannst du mir da folgen?

[Wastl]

Moin,

wenn ich dich richtig verstanden habe, suchst du eine Funktion, die Excel automatisch kann:
Drücke die Tastenkombination Strg+F
drücke auf Optionen
Selektiere bei Durchsuchen > Arbeitsmappe


wenn du nun einen Suchbegriff eingibst, wird die ganze Mappe durchsucht 

Wenn du nun zB das Wort Abnahme eingibts, und unten auf 'Alle suchen' klickst, bekommste eine Liste mit allen Fundstellen, klick auf den gewünschten Sucheintrag öffnet die entsprechende Tabelle und springt dort zur Fundstelle.
Solange das Fenster offen bleibt kannste so alle Fundstellen 'anfahren'

Ich habe keine Ahnung, wie ich das in VBA genau mit dieser Funktionalität nachbauen könnte, aber da es schon da ist, brauche ich das nicht…

[schauan]

Hallöchen,

Die Suche kannst Du auch aufzeichnen. Allerdings nicht die mit Alles Finden, sondern die mit Weiter Suchen

Code:

Sub Makro2()
'
' Makro2 Makro
'

'
    Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
    Sheets("Tabelle1").Activate
    Cells.Find(What:="Anton", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    Cells.FindNext(After:=ActiveCell).Activate
End Sub

Das FindNext könnte man in eine Schleife packen und solange durchlaufen lassen, bis man wider bei der ersten Fundstelle ist. Die Treffer könntest Du dann auf dem Blatt ausgeben oder damit eine COmbobox füllen usw.