VBA: wenn FIND false?

Hi ich habe eine weitere Frage zur "FIND" Funktion.
Wenn ich in meine Übersichtstabelle doppelt klicke sollen alle Informationen zu dem entsprechenden Produkt aus der Datenbank geladen werden. Das funktioniert wunderbar. Aber was ist wenn das Produkt nicht in der Datenbank gefunden wird? Ich erhalte dann immer einen Laufzeitfehler 91. Ich denke mal das ich einen Befehle brauche der das abbricht wenn die Bedingung nicht erfüllt ist so was wie "On Error......" aber ich komme leider nicht drauf.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 9 And Target.Column > 2 And Target.Column  "" Then
Cancel = True
ZeileEdit1 = Target.Row
TypeSearch = Worksheets("Overview").Cells(ZeileEdit1, 3).Value
DeviceSearch = Worksheets("Overview").Cells(ZeileEdit1, 5).Value
If ZeileEdit2 = Worksheets("Data Base").Columns("D:H").Find(TypeSearch, MatchCase:=True).Row And Worksheets("Data Base").Columns("D:H").Find(DeviceSearch, MatchCase:=True).Row Then
uf_EditType.Show
Else
MsgBox "Keinen Eintrag gefunden"
End If
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim x as range set x = ...Find(...) if not x is nothing then hier dann der weiter Code für den fall, das .find was gefunden hat Else hier der weitere Code für den Fall, das .find nichts gefunden hat end if

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim TypeSearch As Variant, DeviceSearch As Variant Dim ZeileEdit1 As Long, ZeileEdit2 As Long If Target.Row > 9 And Target.Column > 2 And Target.Column "" Then Cancel = True TypeSearch = Worksheets("Overview").Cells(Target.Row, 3).Value DeviceSearch = Worksheets("Overview").Cells(Target.Row, 5).Value On Error Resume Next ZeileEdit1 = Worksheets("Data Base").Columns("D:H").Find(TypeSearch, MatchCase:=True).Row ZeileEdit2 = Worksheets("Data Base").Columns("D:H").Find(DeviceSearch, MatchCase:=True).Row On Error GoTo 0 If ZeileEdit1 * ZeileEdit2 > 0 Then uf_EditType.Show Else MsgBox "Keinen Eintrag gefunden" End If End If End Sub

Hi
kannst du auch so machen, Wenn beide Begriffe in der selben Zeile in einem Bestimmten Spaltenbereich vorkommen müssen (hier bspw
Trage in eine Hilfsspalte am Tabellenende folgende Formel ein:


=Wenn(ZählenWenn(D1:H1;"Suchbegriff1")*ZählenWenn(D1:H1;"Suchbegriff2")>0;Zeile();"")

dort wo beide Werte in einer Zeile stehen, wird dann die Zeilennummer ausgegeben.
mit MIN(Hilfsspalte) kannst du dann die erste Zeilennummer ermitteln die zutrifft, die letzte mit MAX(Hilfsspalte),
ob und wieviele Treffer es gibt, kannst du mit ANZAHL(Hilfsspalte) abfragen (Anzahl zählt die Zahlen)
wenns mehrere gibt, ermittelt man die dazwischenliegenden mit KKLEINSTE oder KGRÖSSTE, oder du machst eine Schleife über zellen mit Zahl.
(SpecialCells(xlcelltypeformulas, 1))
und ja auch mit VBA würde ich das so machen.
Gruß Daniel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim TypeSearch As Variant, DeviceSearch As Variant Dim Zelle1 As Range, Zelle2 As Range Dim ZeileEdit2 As Long If Target.Row > 9 And Target.Column > 2 And Target.Column "" Then Cancel = True TypeSearch = Worksheets("Overview").Cells(Target.Row, 3).Value DeviceSearch = Worksheets("Overview").Cells(Target.Row, 5).Value Set Zelle1 = Worksheets("Data Base").Columns("D:H").Find(TypeSearch, MatchCase:=True) If Not Zelle1 Is Nothing Then Set Zelle2 = Worksheets("Data Base").Range("D" & Zelle1.Row & ":H" & Zelle1.Row).Find(DeviceSearch, MatchCase:=True) End If If Not Zelle2 Is Nothing Then ZeileEdit2 = Zelle2.Row uf_EditType.Show Else MsgBox "Keinen Eintrag gefunden" End If End If End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

226 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: wenn FIND false?

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

226 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread