Set-Anweisung für Bereich in Function

Function (Vorlage auch aus diesem Forum ;-)) gebastelt, die anhand der angegebenen Spaltenüberschrift (SpalteName) eine Spalte auswählt, in der sie dann nach einem best. Zellinhalt suchen soll und dann diese Zelle ausgibt.
Nur leider, leider scheint die SET-Anweisung nicht zu funzn:
Set Zeilenbereich = Columns(Spalte)
Kann mir jemand sagen, wo der Hund begraben liegt?
Und: wie müsste es heißen, wenn der Datenbereich auf einem anderen Tabellenblatt ist?
Vielen Dank schon jetzt allen Helfern!
Gruß Uli
Ach ja, anbei das listing:

Function Ergebnis(Bereich As Range, ZeileName As Variant, SpalteName As String) As Variant
Dim Zelle, Zeilenbereich As Range
Dim Zeile As Long, Spalte As Integer
Application.Volatile
For Each Zelle In Bereich
If Zelle = SpalteName Then Spalte = Zelle.Column
If Spalte > 0 Then Exit For
Next Zelle
Set Zeilenbereich = Columns(Spalte)
For Each Zelle In Zeilenbereich
If Zelle = ZeileName Then Zeile = Zelle.Row
If Zeile > 0 Then Exit For
Next Zelle
If Zeile = 0 Or Spalte = 0 Then
ZelleFinden = "nichts gefunden"
Exit Function
Else
ZelleFinden = Cells(Zeile, Spalte)
End If
End Function