suche
29.03.2015 15:07:19
Merlin
in dem unten angegebenen Code habe ich ein Fehlermeldung eingebaut Falls die gesuchte Text nicht vorhanden ist.
Wenn ich diese mit F8 debugge und bewusst ein Fehler einbaue bekomme ich ein Laufzeitfehler 1004 wie kann ich dies abfang so dass denn die Fehlermeldung angezeigt wird.
Besten Dank für eure Unterstützung!
Sub SucheZelle()
Dim sText1 As String
Dim startspalte, endspalte As Integer
Dim lRow As Long
'nach dieser Überschrift suchen!
sText1 = "Anfang"
'in dieser Zeile stehen die Überschriften!
lRow = 1
'Suche sText1
startspalte = Application.WorksheetFunction.Match(sText1, Cells(lRow, 1).EntireRow, False)
If Not Cells(lRow, startspalte) = sText1 Then
MsgBox ("Überschrift " & sText1 & " nicht vorhanden!"), vbCritical
If antwort = 6 Then Exit Sub
Else: End If
End Sub