Bei vbCancel Exit Sub
14.04.2008 18:57:00
Klaus
mit folgendem Makro durchsuche ich den Spaltenbereich A:H nach einem Begriff
(es werden alle Fundstellen nacheinander angezeigt).
Ich möchte nun bei vbCancel einen Abbruch erzwingen.
Aber egal wo ich "If vbCancel then Exit Sub" platziere - es funktioniert nicht.
Kann mir da jemand helfen? Ein Danke im voraus
Klaus
Sub Auswahl()
Dim gZelle As Range, sBegriff$
sBegriff = InputBox("Bitte Suchbegriff eingeben:", _
Application.UserName)
If sBegriff = "" Then Exit Sub
Set gZelle = ActiveSheet.Columns("A:H").Find(sBegriff)
If gZelle Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
gZelle.Select
MsgBox gZelle.Address(False, False), vbOKCancel
gZelle.Offset(1).Select
While ActiveCell.Address gZelle.Address
Cells.FindNext(After:=ActiveCell).Activate
If ActiveCell.Address = gZelle.Address Then Exit Sub
MsgBox ActiveCell.Address(False, False), vbOKCancel
Wend
End Sub