psycoshooter
Grünschnabel
VBA Word Userforms
Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Private Sub cbMal_Click()
'zuerst die Zahl übernehmen
ReDim Preserve wert(UBound(wert) + 1)
wert(UBound(wert)) = lblErgebnis.Caption
'dann dieses Zeichen
ReDim Preserve wert(UBound(wert) + 1)
wert(UBound(wert)) = "*"
clear = True
End Sub
Dim variable(5)
'zuerst ohne Wert deklarieren
Dim variable()
'neue Dimension festlegen, Werte gehen verloren
Redim variable(5)
'nochmal neue Dimension, Werte bleiben erhalten
Redim Preserve variable(10)
Sub irgendwas()
On Error Goto fehler
'hier der eigentliche Code
Exit Sub
fehler:
MsgBox Err.Description
End Sub