Dim zahl As Variant
Dim wochentag As Variant
Dim von As Integer
Dim ergebnis  As String
 
If Text2.Text = "Montag" Then von = 0
If Text2.Text = "Dienstag" Then von = 1
If Text2.Text = "Mittwoch" Then von = 2
If Text2.Text = "Donnerstag" Then von = 3
If Text2.Text = "Freitag" Then von = 4
If Text2.Text = "Samstag" Then von = 5
If Text2.Text = "Sonntag" Then von = 6
 
'VON ZAHL AUSGEHEND SOLL DER WOCHENTAG R Ü C K WÄRTS GEZÄHLT WERDEN
 
zahl = Val(Text1.Text)
 
wochentag = Array("Mo", "Di", "Mi", "Do", "Fr", "Sa", "So")
ergebnis = wochentag((von + zahl) Mod 7)   
 
Label3.Caption = ergebnis$