(01.01.2025, 22:18)schauansi schrieb: 01.01.25



--> Gruppe BeiSpieler erstellt, Berechtigungen aus CEF übernommen

--> Forum schauansi in Mod Forum umbenannt,  Berechtigungen aus CEF übernommen

--> ein Gedanke 

- der Gruppe fehlt die Berechtigung zur Verwaltung der Moderationswarteschlange - eventuell reicht das schon

--> wäre aber zu testen, ob das auch Auswirkungen in anderen Foren hat oder nur dort, wo die Gruppe BeiSpieler mod-Berechtigung hat...

Option Explicit

Public Sub Test() 

'Das ist ein Test

Dim strTest As String

Dim iCnt As Integer

strTest="Test"

MsgBox "Hallo" 

For iCnt=1 to 5

  Debug.Print iCnt

Next

'Das war's

'Fuer's erste

'heute ...

'wegen

'dem

'scrollbalken-

'test

'etwas

'länger

End Sub 

 =$B$1=2>4<5  

  
Code:
C2:  =QUOTIENT(A2;100)

D2:  =15+WENN(B2>0;0;QUOTIENT(3*C2+3;4)-QUOTIENT(8*C2+13;25))

E2:  =WENN(B2>0;0;2-QUOTIENT(3*C2+3;4))

F2:  =REST(A2;19)

G2:  =REST(19*F2+D2;30)

H2:  =QUOTIENT(G2;29)+(QUOTIENT(G2;28)-QUOTIENT(G2;29))*QUOTIENT(F2;11)

I2:  =21+G2-H2

J2:  =7-REST(A2+QUOTIENT(A2;4)+E2;7)

K2:  =7-REST(I2-J2;7)

L2:  =WENN(B2=2;QUOTIENT(A2;100)-QUOTIENT(A2;400)-2;0)