Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1592to1596
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
Inhaltsverzeichnis

MsgBox bei trefferlosem Durchlauf einer Schleife

MsgBox bei trefferlosem Durchlauf einer Schleife
30.11.2017 15:25:11
Matthias
Hallo,
wie kann ich den u.a. Code erweitern, dass ich wenn
der im Textfeld eingegebene Text nicht gefunden wird,
ein Text in einer MsgBox ausgegeben wird.
Public Function ZeileAngebotSuchen(frm As UserForm) _
As Integer
Dim Zeile As Integer
ThisWorkbook.Worksheets("Daten").Activate
Zeile = 2
Do While Cells(Zeile, 3).Value  ""
If Cells(Zeile, 3).Value = _
frm.txtAngebotSuchen.Text Then
Exit Do
End If
Zeile = Zeile + 1
Loop
ZeileAngebotSuchen = Zeile
Debug.Print Zeile
End Function

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox bei trefferlosem Durchlauf einer Schleife
30.11.2017 16:06:08
yummi
Hallo Matthias,

Public Function ZeileAngebotSuchen(frm As UserForm) As Integer
Dim Zeile As Integer
Dim bGef as Boolean
dim wks as Worksheet
set wks = ThisWorkbook.Worksheets("Daten")
bGef = FALSE
Zeile = 2
Do While wks.Cells(Zeile, 3).Value  ""
If wks.Cells(Zeile, 3).Value = frm.txtAngebotSuchen.Text Then
bGef = true
Exit Do
End If
Zeile = Zeile + 1
Loop
if bGef = true then
ZeileAngebotSuchen = Zeile
Debug.Print Zeile
else
MsgBox "Nicht gefunden"
end if
End Function
Gruß
yummi
AW: MsgBox bei trefferlosem Durchlauf einer Schleife
01.12.2017 07:14:45
Matthias
Vielen Dank yummi.
Funktioniert tadellos.
Gruß
Matthias
Anzeige
AW: MsgBox bei trefferlosem Durchlauf einer Schleife
01.12.2017 08:41:23
Luschi
Hallo Matthias,
die Idee, in einer Schleife jede Zelle einzeln zu durchlaufen, um zu prüfen, ob der gesuchte Wert
in einem vorher nicht definierten Gesaamtbereich vorhanden ist doch ziemlich mühselig.
Außerdem steigt die gezeigte Variante vorzeitig aus, wenn in einer der Zellen eine Formeln stehen, die den Leerwert "" zurückliefert. Gibt es danach aber noch mehr Zellen mit Werten, wird dieser Inhalt NIE durchsucht.
Für das Suchen in Rangebereichen gibt es eigens die Funktionen 'Find' bzw. 'Application.Match'.
Auch stelle ich mir die Frage, warum Du das ganze Formularobjekt der Funktion übergibst, obwohl nur
der Inhalt des Such-Textfeldes interessant ist.
Gruß von Luschi
aus klein-Paris
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige