leider funktioniert es doch nicht. Wenn ich in die Zellen A1,
B1 und C1 meinen Suchbegfriff eingebe, zeigt der mir, obwohl
das ganze Tabellenblatt leer ist, „vorh“ an. gebe ich nun
zusätzlich zum Suchbegriff den gleichen nochmal ein paar
Zeilen tiefer ein (z.B. A5, B5,C5), gibt er mir die
Fehlermeldung „Index außerhalb des gültigen Bereiches an“.
Woran liegt das?
Hallo Achim,
fiel mir beim Testen nicht auf, da ich Testdaten hatte und logo war die unterste nicht die Suchzeile 
So müßte es klappen:
Option Explicit
'
Sub tt()
Dim Zei As Long, Bereich As Variant, Satz As String, Z As Long
Zei = Range("A" & Rows.Count).End(xlUp).Row
Bereich = IIf(Zei = 1, Range("A2:C2"), Range("A2:C" & Zei))
For Z = 1 To Zei - 1
Satz = Satz & UCase(Bereich(Z, 1)) & UCase(Bereich(Z, 2)) & Format(Bereich(Z, 3), "dd.mm.yyyy")
Next Z
If InStr(Satz, UCase(Range("A1")) & UCase(Range("b1")) & Range("c1")) \> 0 Then
MsgBox "vorh"
Else
MsgBox "nicht da"
End If
End Sub
Gruß
Reinhard