Makro funktioniert als Sub aber nicht als Function

Forumthread: Makro funktioniert als Sub aber nicht als Function
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makro funktioniert als Sub aber nicht als Function

16.03.2025 18:39:42

Alexander O.

Hallo zusammen,

ich habe ein Makro als Sub geschrieben, das soweit funktioniert. Jetzt möchte ich diese Sub als Function umdefinieren und dann funktioniert die Sheet Anweisung wie unten dargestellt nicht mehr.

Sub SUB_Test()
For i = 1 To 3
Sheets("Tabelle1").Cells(2, i).Interior.ColorIndex = 3
Next
End Sub

Warum funktioniert das nicht !!! Irgendetwas fehlt ... aber was ?

Function FUNC_Test()
For i = 1 To 3
Sheets("Tabelle1").Cells(2, i).Interior.ColorIndex = 3
Next
End Function

Bitte um eure Hinweise
Danke Alex

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro funktioniert als Sub aber nicht als Function

16.03.2025 18:42:34

Onur
AW: Makro funktioniert als Sub aber nicht als Function

17.03.2025 10:45:03

GerdL

AW: Makro funktioniert als Sub aber nicht als Function

16.03.2025 18:42:34

Onur

Benutzerdefinierte Funktionen dürfen nur Ergebnisse ausgeben, aber nix in irgend welchen (anderen) Zellen verändern - jedenfalls nicht, wenn sie als Funktion in Formeln benutzt werden..

AW: Makro funktioniert als Sub aber nicht als Function

17.03.2025 10:45:03

GerdL

Hallo Alex,

deine Funktion ohne Rückgabewert benötigt einen Anstoß.

Sub Start()

    fktUnit (Sheets("Tabelle1").Cells(2, 1).Resize(1, 3))

End Sub



Public Function fktUnit(Bereich As Range)

    Bereich.Interior.ColorIndex = 3

End Function

Gruß Gerd

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!