Habe folgende Suchmaske geschrieben:
Private Sub CommandButton1_Click()
Set frm1 = UserForm1
With frm1
Sheets("Tabelle1").Select
Range("A:A").Select
On Error GoTo fehler
Selection.Find(What:=.input1.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, Lookat:=xlPart, _
Searchorder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
.TextBox2.Value = ActiveCell.Offset(0, 1).Value
End With
fehler:
MsgBox "Es sind für den Tag noch keine" & vbLf & _
"Eingaben gemacht worden!", vbInformation, "Hinweis"
End Sub
Jetzt ist es aber so, daß die MsgBox immer aufpoppt, egal ob etwas gefunden wurde oder nicht. Warum? Ich möchte, daß die nur aufpoppt, wenn wirklich kein Eintrag gemacht wurde.
Über Hilfe bin ich wie immer dnakbar.
Gruß Dennis