Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
204to208
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
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

if rngFIND = "" then exit sub ?

if rngFIND = "" then exit sub ?
16.01.2003 12:19:54
Sebastian
Ich mal wieder!!*G*

Also wenn ich dieses Programm mit diesem Programm Suche aber er den begriff nicht findet dann fragt das Programm immer ob er den Debugger starten soll!! Wie kann man das unterbinden???

mit rngFind = "" then exit sub

geht es nicht!

mfg
sebastian

Private Sub OK2_Click()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim sFind As String, sSearch As String
Suchbegriff = Array(Text1, Text2, Text3, Text4, Text5, Text6, Text7, Text8, Text9)
For t = 0 To UBound(Suchbegriff)
sSearch = Suchbegriff(t)
Set rngFind = Cells.Find(Suchbegriff(t), LookAt:=xlPart)
If rngFind = "" Then Exit Sub
If rngRows Is Nothing Then

Set rngRows = rngFind
End If



If Not rngFind Is Nothing Then
sFind = rngFind.Address



Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngRows = Application.Union(rngRows, Rows(rngFind.Row - 1))
Set rngRows = Application.Union(rngRows, Rows(rngFind.Row + 1))
Set rngFind = Cells.FindNext(After:=rngFind)
Loop Until rngFind.Address = sFind
End If
Next
rngRows.Select

End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If rngfind is nothing then exit sub
16.01.2003 12:22:58
Boris
.
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige