|
Hallo Mackie
Das war jetzt aber ziemlich unnett
Also:
=TEXT(W94;"TTT")
=TEXT(V94;"TTT") .
...Hatte ich am Anfang geschrieben, aber es hat bei mir französiche Namen ausgegeben
Weiter: Das hat NIX mit Programmiersprache zu tun, das ist rein Excel
weiter: Ich beherrschte mal ganz gut C++, Basic sowieso und HTML. Such ein wenig Pascal. ( Ich bin Diplomphysiker). Ich brauche das Zeug aber kaum noch. Seit ca 20 Jahren nicht mehr.
Weiter: Die Wochenendfarben SIND im obenstehenden Code berücksichtigt. Aber ja: ich hatte sie erst NACH dem ersten Post dazugetan
Es geht nicht vordergründig um eine Terminpanung sondern um ein TOOL zur SPIELPLAN Planung. WAS kann WANN gespielt werden...Die Urlaubstagsermittlung ist nur EIN kleines Feature
weiter: Meine ach so tolle Formel funktioniert jetzt. Als Makro, das ich mit einer Formularschaltfläche auslöse.
Danke für Euer aller HIlfe
Hier der Code
Sub Urlaubstage2()
'x ist die Spalte
'y ist die Zeile
Dim x As Long
Dim y As Long
Dim i As Integer
Dim c As Range
Dim imax As Integer
Const Grundfarbe = 65280
Const SpielfreiFarbe = 8421504
For x = 5 To 20
i = 0
imax = 0
For Each c In Range(Cells(10, x), Cells(120, x))
If c.DisplayFormat.Interior.Color = Grundfarbe Then
i = i + 1
Else:
If c.DisplayFormat.Interior.Color = SpielfreiFarbe Then
i = i + 1
Else:
i = 0
End If
End If
If i > imax Then
imax = i
End If
Next c
Sheets("Tabelle1").Cells(126, x).Value = imax
Next x
End Sub
|