Suchfunktion fast fertig, Hilfe beim fertig machen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox InputBox MsgBox
Bild

Betrifft: Suchfunktion fast fertig, Hilfe beim fertig machen von: Ich wieder
Geschrieben am: 22.02.2005 14:47:03

Hab nochmal hochgeladen...

wie schließe ich jetz das mit der Suchfunktion ab?

www.jan-bohlmann.net/Subunternehmerr.xls

Bild


Betrifft: AW: Suchfunktion fast fertig, Hilfe beim fertig machen von: Florian
Geschrieben am: 22.02.2005 15:58:42

Kopier Dir den Code und überschreibe damit den bestehenden. Müsste funktionieren...(Vorausgesetzt, Du suchst nach den Postleitzahlen - so hab ich das verstanden)

Private Sub Suchen_Click()
For n = 7 To 300
 If Sheets("Tabelle1").Columns("B").Rows(n).Text = TextBox1.Value Then
    Sheets("Tabelle1").Columns("B").Rows(n).Activate
 End If
Next n
TextBox1.Value = ""
End Sub



Bild


Betrifft: AW: Suchfunktion fast fertig, Hilfe beim fertig machen von: Jan
Geschrieben am: 22.02.2005 16:20:53

hm...nein, ich möchte nach begriffen (städte, nummern etc.) suchen...

und irgendwie tuts das nich, ich kann in dem feld nichts eingeben?

trotzdem schonma danke....;)


Bild


Betrifft: AW: Suchfunktion fast fertig, Hilfe beim fertig machen von: jan
Geschrieben am: 22.02.2005 16:23:33

hm...kannst du das mit der hochgeladenen datei evtl. fertig machen?


Bild


Betrifft: AW: Suchfunktion fast fertig, Hilfe beim fertig machen von: Stefan
Geschrieben am: 22.02.2005 17:16:12

Kopier dir diesen Code in ein Modul und weise ihn einer Schaltfläche zu.

Sub MultiSuche()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
MsgBox ("Suche beendet.")
End Sub



Bild


Betrifft: AW: Suchfunktion fast fertig, Hilfe beim fertig machen von: Jan
Geschrieben am: 22.02.2005 17:18:18

Wie mache ich denn das mit dem Modul und dem zuweisen?

Ich glaub dann hab ichs auch :D


Bild


Betrifft: AW: Suchfunktion fast fertig, Hilfe beim fertig machen von: Stefan
Geschrieben am: 22.02.2005 20:30:37

Du gehst auf Extras/Makro/Visual BAsic-Editor.
Dann Einfügen/Modul.In dieses Modul kopierst du den Code.Wieder schliessen

Die Schaltfläche erstellst du indem du in Excel dir am einfachsten eine Standardform erstellst.Sollte die Symbolleiste Zeichnen(unterer Rand)bei dir noch nicht aktiviert sein ,gehst du auf Ansicht/Symbolleisten/Zeichnen.Dann unten auf Autoformen/Standardformen beliebige Form auswählen und auf dein Blatt zeichnen.
Dann auf die erstellte Schaltfläche Rechtklick/Makro zuweisen (Multisuche).
Jetzt kannst du die Schaltfläche noch mit Farbe füllen und Text einfügen.

Gutes Gelingen


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Suchfunktion fast fertig, Hilfe beim fertig machen"