Anzeige
Archiv - Navigation
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suche, fehler der Inputbox

Suche, fehler der Inputbox
20.05.2004 18:05:49
Alex
Hi habe folgendes Problem ich habe eine Suchefunktion die über mehrere Blätter geht. Wenn man jetzt die Suchfunktion direkt wiederabbricht öffnet sich eine Intputbox "Weitersuchen Ja. Nein" dies soll aber nur gefragt werden wenn ich auch wirklich etwas suche und es gäbe mehrer Ergebnis die möglich sein können. Also was muß ich ändern damit sich bei abbruch die inicht aufmacht.
Hier die Formel

Sub suchen()
Dim Tabelle As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
Dim blatt
blatt = Application.ActiveSheet.Name
SBegriff = "*" & InputBox("Bitte Suchbegriff eingeben:", "von Figuren bis Puzzle:")
'**********Abbbruch*******
If SBegriff = False Then
MsgBox "Eingabe wurde abgebrochen!"
ThisWorkbook.Sheets(blatt).Activate
Exit Sub
End If
If SBegriff = "**" Then
MsgBox "Es wurde nichts eingeschrieben oder abgebrochen!"
Exit Sub
End If
'*********Abbruch ende*****
For Each Tabelle In Worksheets
Tabelle.Activate
Set GZelle = Tabelle.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 Tabelle
ThisWorkbook.Sheets(blatt).Activate
MsgBox "Suche beendet - keine weiteren Einträge gefunden !"
End Sub

Vielen Dank im Vorraus

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche, fehler der Inputbox
Reinhard
Hi Alex,
probier mal nachfolgenden Code
Gruß Reinhard

Sub suchen()
Dim Tabelle As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
Dim blatt
blatt = Application.ActiveSheet.Name
SBegriff = InputBox("Bitte Suchbegriff eingeben:", "von Figuren bis Puzzle:")
'**********Abbbruch*******
If SBegriff = "" Then
MsgBox "Eingabe wurde abgebrochen!"
ThisWorkbook.Sheets(blatt).Activate
Exit Sub
End If
'*********Abbruch ende*****
For Each Tabelle In Worksheets
Tabelle.Activate
Set GZelle = Tabelle.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 Tabelle
ThisWorkbook.Sheets(blatt).Activate
MsgBox "Suche beendet - keine weiteren Einträge gefunden !"
End Sub

Anzeige
AW: Suche, fehler der Inputbox
Alex
Super klappt Danke Dir für die Schnelle hilfe.
Auf Euc kann man sich immer verlassen
Weiter so
AW: Suche, fehler der Inputbox
20.05.2004 18:38:29
Nepumuk
Hallo Alex,
verwende die Inputbox von Office, die kannst du sicherer abfragen:


Dim SBegriff As Variant
SBegriff = Application.InputBox("Bitte Suchbegriff eingeben:", "von Figuren bis Puzzle:")
If SBegriff = 0 And VarType(SBegriff) = 11 Then MsgBox "Eingabe wurde abgebrochen!": Exit Sub


Gruß
Nepumuk
Anzeige
AW: Suche, fehler der Inputbox
Alex
Danke Nepumuk,
habe sie eingebaut, hast du recht ist wirklich besser.
Gruß Alex

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige