#WERT! error for using MONAT function

Hallo,

habe mal Functions geschrieben die sowas machen. Du musst nur noch die Farbe wissen, oder auslesen.



Mit den Functions für Hintergrund und Schrift kannst Du den aktuellen Wert auslesen. Den könntest Du natürlich auch zählen, oder Du verwendest hierfür die andern Functions, die musst Du dann aber jedesmal anpassen wenn Du andere Farben wählst, daher würde
ich eher Hintergrund und Schrift verwenden dann steht der Wert in einer separaten Spalte und Du kannst viel flexibler auswerten.



Function Anzahl_rot(Bereich)

x = 0

For Each Zelle In Bereich

If Zelle.Font.ColorIndex = 3 Then

x = x + 1

End If

Next

Anzahl_rot = x

End Function

Function summe_rot(Bereich)

x = 0

For Each Zelle In Bereich

If Zelle.Font.ColorIndex = 3 Then

x = x + Zelle.Value

End If

Next

summe_rot = x

End Function

Function Schrift(Zelle As Range)

Application.Volatile

Schrift = Zelle.Font.ColorIndex

End Function

Function Hintergrund(Zelle As Range)

Application.Volatile

Hintergrund = Zelle.Interior.ColorIndex

End Function

Hallo,

ich benutze auch die RGB-Funktion.

Um unterschiedliche Kunden besser visuell zu unterscheiden habe ich im Frontend eine Tabelle mit nur EINEM Datensatz angelegt "AktuellerKunde" (nicht elegant aber übersichtlich), deren Werte nach Auswahl des Kunden im Eingangsformular mit den Werten aus
der verknüpften Kundentabelle überschrieben wird. Unter anderem mit den R, G und B- Werten in einzelne Felder. (Da können natürlich recht viele Felder zusammenkommen, je mehr Elemente man farblich steuern möchte...)

Die folgende Funktion rufe ich dann immer bei BEI LADEN (Form_Load) in den einzelnen Formularen auf:

Function Hintergrund()

On Error GoTo Hintergrund_Err

With CodeContextObject

.Detailbereich.BackColor = RGB(DLookup("[BackColR]", "[AktuellerKunde]"), DLookup("[BackColG]", "[AktuellerKunde]"), DLookup("BackColB]", "[AktuellerKunde]"))

.......

'Ein Auswahlkriterium ist hier nicht erforderlich, da es nur einen Datensatz gibt

'Wenn mehrere Objekte die gleiche Farbe bekommen sollen, kann man den RGB-Wert auch erst einmal einer Variablen zuweisen.

End With

Hintergrund_Exit:

Exit Function

Hintergrund_Err:

MsgBox Error$

Resume Hintergrund_Exit

End Function



Geht natürlich nur für Objekte, die in allen Formularen vorhanden und gleich benannt sind. Ansonsten müssen die Werte direkt in jedem Formular einzeln geladen werden.

Ich hoffe, das geht in Deine Richtung.

Gruß,

Kai

Hello,

I have written this example code in C#.

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace ConsoleApp10

{

//Immer Dienst Verweis mit https

class Program

{

static void Main(string[] args)

{

Console.WriteLine(GetCrmServiceForOrganization("SHS Viveon"));

Console.ReadKey();

}

private static string GetCrmServiceForOrganization(string organizationName)

{

using (XrmSdk.Discovery.DiscoveryServiceClient myCrm = new XrmSdk.Discovery.DiscoveryServiceClient())

{

myCrm.ClientCredentials.Windows.ClientCredential = System.Net.CredentialCache.DefaultNetworkCredentials;

XrmSdk.Discovery.RetrieveOrganizationsRequest myRequest =

new XrmSdk.Discovery.RetrieveOrganizationsRequest();

XrmSdk.Discovery.RetrieveOrganizationsResponse myResponse =

(XrmSdk.Discovery.RetrieveOrganizationsResponse)myCrm.Execute(myRequest);

}

return "";

}

}

}

The error happens when the Execute Methode is executed.

The Error message is:

Ein Ausnahmefehler des Typs "System.ServiceModel.FaultException" ist in mscorlib.dll aufgetreten.

An error occurred when verifying security for the message.

Hallo Peter
<br />Hier wird geprüft ob die Tabelle offen ist:
<br />Aufruf der Function:
<br /> Ret = IsWorkBookOpen("C:\TDB_DataBase\Process_Data_Analysis.xlsm")
<br /> If Ret = True Then
<br />Function IsWorkBookOpen(FileName As String)
<br /> Dim ff As Long, ErrNo As Long
<br />
<br /> On Error Resume Next
<br /> ff = FreeFile()
<br /> Open FileName For Input Lock Read As #ff
<br /> Close ff
<br /> ErrNo = Err
<br /> On Error GoTo 0
<br />
<br /> Select Case ErrNo
<br /> Case 0: IsWorkBookOpen = False
<br /> Case 70: IsWorkBookOpen = True
<br />
<br /> Case Else: Error ErrNo
<br /> End Select
<br /> End Function
<br />Gruss
<br />Peter
<br />

Hallo Claus,

StrCode ist ein Parameter für die Function.

D.h. ich übergebe an die Funktion einen Wert, dieser Wert bekommt in der Function den Namen StrCode,

den ich dann verwenden kann.

Wenn ich den Code ändere z.B. StrTextTest = App... in StrTextTest = StrCode funktioniert die Function einwandfrei und liefert als Ergebnis den übergebenen Wert zurück.

Gruß

Franz-Josef