wie kann ich diesen unteren Fall abfangen, wenn Find nichts findet? Ich wollte dies mit einer If-Bedingung realisieren.
Range("A:A").Find(kriterien).Row
Danke und Gruß
orange
Sub Suche()
Dim Kriterien As String
Dim Fundstelle As Long
Kriterien = "test"
On Error Resume Next
Fundstelle = Range("A:A").Find(Kriterien).Row
If Err.Number = 91 Then
MsgBox "Suchbegriff wurde nicht gefunden!"
Else
MsgBox "Suchbegriff wurde in Zeile " & Fundstelle & " gefunden!"
End If
On Error GoTo 0
End Sub
Gruß JürgenDim Fundstelle as Range
dim Zeile as long
set Fundstelle = Range("A:A").Find(kriterien)
if not Fundstelle is Nothing then
Zeile = Fundstelle.Row
end if
oder so. weil du durch ZählenWenn feststellst, ob der Suchbegriff vorhanden ist
if Worksheetfunction.Countif(Range("A:A"), Suchkriterium) > 0 then
Zeile = Range("A:A").Find(kriterien).Row
end if
Zeile = 0
on error resume Next
Zeile = Range("A:A").Find(kriterien).Row
0n error goto 0
if Zeile = 0 then msgbox "kriterium wurde nicht gefunden"
Gruß, DanielProblemstellung
Wenn Excel innerhalb eines Makros einen Suchbegriff in der Tabelle nicht findet, kommt es zu einer Fehlermeldung. Wie kann ich das verhindern?
Problemstellung
Wie kann ich verhindern, daß die Workbook_Open-Prozedur abbricht, wenn eine zu ladende Arbeitsmappe nicht gefunden wird?
Problemstellung
Wie kann ich Fehlermeldungen abfangen und die Fehlernummer mit der Meldung in eine sequentielle Textdatei schreiben lassen?
Problemstellung
Wie kann ich eine Fehlermeldung abfangen, wenn ich eine Arbeitsmappe anspreche, die nicht geöffnet ist? In diesem Fall soll sie geöffnet werden.
Problemstellung
Der Speichern-Befehl soll abgefangen werden. Danach soll die Arbeitsmappe mit Schreib-/Leseschutz und einem dem Anwender nicht bekannten Passwort ("MeinPasswort") gespeichert werden.