Funktion variabel gestalten
26.04.2019 14:32:20
Daniel
ich stehe gerade auf dem Schlauch. Wie kann ich ein Argument variabel gestallten?
Das Problem ist ich will die Akzent Farben durch eine Funktion aufrufen können.
Wenn ich eine konkrete Zahl für i eintrage funktioniert alles, aber eben nicht variabel.
Mein Code bringt ein Laufzeitfehler:
Function fctColor(i As Long) As Long
Dim a As String
a = "msoThemeColorAccent" & i
fctColor = ActiveWorkbook.Theme.ThemeColorScheme(a).RGB
End Function
Daniel