Msgbox
23.02.2013 11:36:35
Benedikt
Irgendwie stehe ich auf dem Schlauch mit einer Msg Meldung
In einer Textbox wird der Suchbegriff eingegeben. Auf dem Tabellenblatt wird die gefundene Zelle rot markiert. Soweit einwandfrei. Wie bekomme ich eine Meldung wenn keine übereinstimmung vorhanden ist.
Mit MsgBox ("Suchbegriff wurde nicht gefunden"), vbExclamation, "Sorry" erscheint die Meldung schon bei der Eingabe der ersten Zahl oder des ersten Buchstaben
Private Sub Text_Change()
Dim Begr As String
Dim rFind As Range
Dim rFindalt As Range
Begr = Text.Text
ActiveCell.Interior.ColorIndex = xlNone
Set rFind = Range("A:M").Find(Begr)
If Not rFind Is Nothing Then
With rFind
.Cells.Select
.Interior.ColorIndex = 3
End With
End If
End Sub
Vielen Dank für eure Unterstützung
Gruss Benedikt