"end function" erst NACH den subs. Die gehören ja dazu
...
Next Spalte
Taste = Taste_x

exit function ' function verlassen

Taste_auswerten:
Select Case Zeile
Case 1 : Taste_x = Spalte + 1
Case 2 : Taste_x = Spalte + 4
Case 3 : Taste_x = Spalte + 7
Case 4 : Taste_x = Spalte + 10
End Select
Return

End Function ' jetzt is aus