Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Dim s As String
Dim Wochentag () As String
Dim n As Interger
Private Sub Beispiel ()
s = "Montag.Dienstag.Mittwoch.Donnerstag.Freitag.Samstag.Sonntag"
Wochentag() = Split(s, ".", -1, vbTextCompare)
For n = 0 To 6
MsgBox "Heute ist: " & Wochentag(n)
Next n
End Sub