Ach ja,
falls es noch jemanden interessiert der neue vereinfachte und erweiterte Code ist jetzt:
Sub Button_Click
TestfuerForum(thiscomponent.currentcontroller.activeSheet)
End Sub
Sub TestfuerForum(oTabelle as Object)
Dim oBereich As Object
Dim n, m, o, vSpalte1, vSpalte2, vSpalte3 as ...