Excel Datum aus KW & Feldfarbe verändern durch Zahleneingabe

Hi Hascheff,

ich habe inzwischen noch ein wenig recherchiert und getestet bezüglich der benutzerdefinierten Listen: einige sind schon voreingestellt (Mo, Di, usw. und Montag, Dienstag, usw.). Man könnte sie auf diesem Weg benutzen

Code:

Function WOCHENTAG2ZAHL(WT_Wort As Variant) As Variant
    Dim listArray1
    Dim listArray2
    listArray1 = Application.GetCustomListContents(5)
    listArray2 = Application.GetCustomListContents(6)
    Application.Volatile
    If IsEmpty(WT_Wort) Or IsNumeric(WT_Wort) Then
        If WT_Wort > 0 And WT_Wort < 8 Then
            WOCHENTAG2ZAHL = Weekday(WT_Wort)
        Else
            WOCHENTAG2ZAHL = ""
        End If
    Else
        Select Case WT_Wort
            Case listArray1(1), listArray2(1):  WOCHENTAG2ZAHL = 1
            Case listArray1(2), listArray2(2):  WOCHENTAG2ZAHL = 2
            Case listArray1(3), listArray2(3):  WOCHENTAG2ZAHL = 3
            Case listArray1(4), listArray2(4):  WOCHENTAG2ZAHL = 4
            Case listArray1(5), listArray2(5):  WOCHENTAG2ZAHL = 5
            Case listArray1(6), listArray2(6):  WOCHENTAG2ZAHL = 6
            Case listArray1(7), listArray2(7):  WOCHENTAG2ZAHL = 7
            Case Else: WOCHENTAG2ZAHL = ""
        End Select
    End If
End Function

Allerding müsste man, damit der Code "allround" einsetzbar ist, die Sprachversion prüfen, und davon abhängig die Listennummer wählen. Ich habe im Code mal die deutsche Spracheinstellung vorausgesetzt. Ich weiß leider nicht, ob in den anderen Sprachen die 5 und die 6 die Liste der jeweiligen Spracheinstellung ist (ich habe nur die deutsche Version), was jedoch sehr wahrscheinlich ist. Die 1 und 2 ist die englische und ich nehme nicht an, dass sich daran in den anderen Sprachversionen etwas ändert.

 

Es geht ja nur noch um des Kaisers Bart... aber interessanter als "Wo ist jetzt meine gelöschte Datei?"

Klar, ich hatte mich aber an die letzte gültige Version von Hascheff gehalten...

Auch klar, aber manchmal sind wir selbst die Idioten, wenn wir nach einem halben Jahr nicht mehr wissen...

>> Installation durch das deutsche Office... und wenn Du Dein Werk nach China exportieren willst?

In diesem Fall ginge aber End Function nicht, das End Select könnte dann nicht schliessen... und würde in Runtime meckern...

Gruss Urs

 

Hi Urs,

da du meine Beiträge ignorierst und die darin enthaltenen Lösungen und Vorschläge nur erneut mit anderen Worten aufwärmst, scheint es dir offensichtlich nicht darum zu gehen, hier ein Problem zu lösen, sondern nur mit Hascheff zu fachsimpeln. Bitteschön, ich habe nichts dagegen - aber ich habe auch nicht vor, meine Zeit unnütz zu vertun und ich ziehe mich hiermit aus der Diskussion zurück.

 

Wenn Du damit das "deutsche Office" im Beitrag 24 meinst... ich hatte da Deinen #23 noch gar nicht gesehen...
Manchmal geht man auch vom PC weg, zwischendurch...

Der Grund, dass ich hier beigetreten bin, war nur der:

Da war doch offensichtlich, dass hier nicht über das Gleiche geschrieben wurde - wie es halt manchmal passiert.

Gruss Urs

 

Hi Hascheff,

ich habe doch noch eine Möglichkeit gefunden, wie man einen Wert mit der Funktion übergeben kann:

Code:

Function kwdatum(KW, WT, Jahr, WTTyp As Variant, Optional Korrektur As Integer = 1)
    Application.Volatile
    If Not IsNumeric(Jahr) Then Jahr = Year(Now())
    kwdatum = DateValue("1.1." & Jahr) + 7 * (KW - Korrektur) - Weekday(DateValue("1.1." & Jahr), WTTyp) + WT
End Function