试图启动一个函数会导致运行时错误424

我正在尝试启动以下function

Function MitteOben(Bereich As Range) With Bereich .VerticalAlignment = xlTop .HorizontalAlignment = xlCenter End With With Bereich.Font .Name = "Tahoma" .Size = 10 .ThemeColor = xlThemeColorLight1 End With End Function 

当我尝试定义一个范围并启动该函数时,它会创build运行时错误424。

我正尝试以这种方式启动它:

 Set Hlpr = Range(Cells(ObjStartRow, 14), Cells(ObjStartRow, 28)) MitteOben (Hlpr) Fett (Hlpr) 

我也尝试用一个数字交换“ObjStartRow”,或者将整个范围改为:Range(“N29:AC29”)都失败了。

它应该是一个Sub ,而不是一个function。 在genreal中,函数返回值,subs做一些事情。

话虽如此,作为一名在德国工作的VBA人员,我恳求您开始用英文命名您的函数,variables和子类。 这真的可以节省下一个工作在你的代码上的被动的愤怒。 它使你的代码更好。

 Public Sub MitteOben(Bereich As Range) With Bereich .VerticalAlignment = xlTop .HorizontalAlignment = xlCenter End With With Bereich.Font .name = "Tahoma" .Size = 10 .ThemeColor = xlThemeColorLight1 End With End Sub 

这是如何调用它: call MitteOben(selection)MitteOben selection