Such-Funtion

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


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Such-Funtion
von: Kohli
Geschrieben am: 23.05.2002 - 17:47:53

Hallo,
habe mir ein CD - Archiv angelegt und möchte uber eine Suchfunktion ( VBA ) nach Titel suchen lassen, die auch die ersten drei oder vier Buchstaben zulassen und nicht nur den ganzen Titel. Sollte ein Begriff nicht gefunden werden, soll dies über eine MsgBox angezeigt werden. kann mir jemand helfen.
Vielen dank.
Kohli

nach oben   nach unten

Re: Such-Funtion
von: andreas e
Geschrieben am: 23.05.2002 - 17:52:26

auf meiner seite http://www.skripteundaufgaben.de findest du im downloadbereich unter excel eine kleine suchmaschien die du entsprechend umbauen kannst.

hoffe das hilft weiter

gruß
andreas e

nach oben   nach unten

Re: Such-Funtion
von: Kohli
Geschrieben am: 23.05.2002 - 17:56:50

Ist mir zu kompliziert das Umbauen, bin Anfänger, trotzdem vielen Dank

nach oben   nach unten

Re: Such-Funtion
von: Sigi E.
Geschrieben am: 23.05.2002 - 22:02:50

Hallo Kohli,

probier's mit folgendem Code:


Sub Suchen()
Dim Eingabe As String
Dim Feld As Range
Dim Gefunden As Boolean
Dim WeiterSuchen As Boolean
Dim Antwort As Long

Eingabe = InputBox("Was denn suchen?", "Suchmaschine")
If Eingabe <> "" Then
    WeiterSuchen = True
    For Each Feld In ActiveSheet.UsedRange
        If InStr(UCase(CStr(Feld.Value)), UCase(Eingabe)) > 0 Then
            Gefunden = True
            Feld.Activate
            Antwort = MsgBox("Nach  ''" & Eingabe & "''  weitersuchen?", _
vbQuestion + vbYesNo, "Frage")
            If Antwort = vbNo Then
                WeiterSuchen = False
                Exit For
            End If
        End If
    Next Feld
    If Gefunden = False Then
        MsgBox "''" & Eingabe & "''  nicht gefunden!", vbExclamation, "Schade"
    ElseIf WeiterSuchen = True Then
        MsgBox "Letze(r)  ''" & Eingabe & "''  wird angezeigt!", vbInformation, "Das war's"
    End If
End If
End Sub


Gruß
Sigi
nach oben   nach unten

Re: Such-Funtion
von: Kohli
Geschrieben am: 24.05.2002 - 04:40:29

Hi Sigi,
optimale Lösung, damit kann ich gut Arbeiten.
Vielen Dank.
Kohli

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Berechnung Betafaktor"