statt Debugger MsgBox
Jörn
habe mir ein Such-Makro aus diesem Forum für meine Zwecke angepasst.
Sub MarkWhat()
Dim LeRei, LeSpa, a As Long, r1, MyRange As Range, x As String
LeRei = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
LeSpa = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
x = InputBox("Welchen Ausdruck wolle suchen?", "Suchbegriff")
For j = 1 To LeSpa
For i = 1 To LeRei
If ActiveSheet.Cells(i, j).Value = x Then
a = a + 1
If a = 1 Then
Set MyRange = ActiveSheet.Rows(i)
Else: Set r1 = ActiveSheet.Rows(i)
Set MyRange = Union(MyRange, r1)
End If
End If
Next i
Next j
MyRange.Select
End Sub
Jetzt versuche ich seit geraumer Zeit den Debugger abzufangen. Der schaltet sich zwischen, wenn in der Inputbox abgebrochen wird oder wenn der Suchbegriff nicht gefunden wurde. Mit "On Error Resume next" und "On Error Goto" bin ich nicht weitergekommen. Hat jemand von Euch eine andere Idee?Danke und Gruß
Jörn