Suchformular für Excel

[wsinformatik]

Hallo

Ich hätte da mal ein Problem. Ich möchte ein Suchformular programmieren mit den Zuerst auswählen kann, in welcher Spalte eines Arbeitsblattes ich suchen möchte. Und danach, was ich genau suchen möchte. Dabei spielt es folgende Rolle. Und zwar ob ich etwas bestimmtes suche oder ein Teilausdruck oder ich nicht genau weiß was ich genau suche. dabei sollten auch folgende Eingaben möglich sein, wie zum Beispiel: *, ?, 74.* ,74,* usw.

Bitte um Hilfe!

MFG



wsinformatik

 

[Mike]

Hallo

Ich weiß ja nicht was du suchst, aber Excel hat schon so eine Suchroutine
eingebaut.

Kann suchen
- gesamte Mappe
- ein Blatt
- eine Spalte
- eine Zeile
- nach ganzem Wort
- nach Teilbegriff
- Groß- Kleinschreibung
- Formeln
- Werte
- Kommentare

und das Ganze sogar im Ersetzen-Modus

 

[Interaktivist]

Suchoptionen

Hallo wsinformatik,

das, was Du beschreibst, ist eigentlich schon da - wie von MikeK aufgelistet:

Bearbeiten - suchen - Optionen anklicken, dann gibt es alle nachgefragten Eingrenzungen und Varianten der Suche.

Grüße

Interaktivist

 

[NotEvil]

Als Anregung:

Dim Zeile As Integer, SucheString As String, SpalteC As String, Spalte As Integer

SucheString = InputBox("Was suchst Du?") 'Was wird gesucht
SpalteC = InputBox("In Welcher Spalte?") 'Wo
Zeile = 1 'Ab welcher Zeile


If SpalteC = "A" Then
Spalte = 0
ElseIf SpalteC = "B" Then Spalte = 1
ElseIf SpalteC = "C" Then Spalte = 2
ElseIf SpalteC = "D" Then Spalte = 3
ElseIf SpalteC = "E" Then Spalte = 4
ElseIf SpalteC = "F" Then Spalte = 5
Else
Spalte = 6
End If

While Not Tabelle1.Cells(Zeile, Spalte).Value = ""

If Tabelle1.Cells(Zeile, Spalte).Value Like SucheString Then
MsgBox "Suchstring gefunden in Zeile " & Zeile
End If
Wend

 

[Mike]

Gut gelöst @NotEvil .... funktioniert sogar

Würde in Excel trotzdem die eingebaute Funktion nehmen, die Funkionien die da drin stecken, da brauchst lange zum Programmieren in VB

 

[NotEvil]

Wieso sogar ?

Naja nur zum suchen wäre es sicherlich schwachfug was zu proggen.
Ich nehme sowas in der Art um aus einer umfangreichen Tabelle bestimmte Zeilen in eine neue kleinere zu verschieben, da wird man sonst mit copy&paste wahnsinnig

 

[wsinformatik]

Das kannst muss nämlich in einen Button in ein Formular eingebaut werden!

 

[Mike]

Das kannst muss nämlich in einen Button in ein Formular eingebaut werden!

Dann ruf halt die Suchfunktion von Excel über diesen Button auf den du einbaust
Ist das einfachste und das Beste, weil du alle Funktionen hast und diese SICHER funktionieren.