MsgBox bei trefferlosem Durchlauf einer Schleife

Forumthread: 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

MsgBox bei trefferlosem Durchlauf einer Schleife

Forumthread: MsgBox bei trefferlosem Durchlauf einer Schleife

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

MsgBox bei trefferlosem Durchlauf einer Schleife

Forumthread: MsgBox bei trefferlosem Durchlauf einer Schleife

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread