Über:
Dim tb As Object
For Each tb In Aktualisierung.Controls
If TypeName(tb) = "TextBox" Then tb.Text = ""
Next tb
ist es mir gelungen die Textfelder zu initialisieren (sprich beim nächsten Aufruf meiner User Form, sind die TextFelder leer). Dummerweise ist aber beim nächsten öffnen keine Textbox angewählt, so dass ich erst mit meiner Maus in die TextBox1 klicken muss, um einen Wert einzutragen.
Ich habe in meinem jugendlichen Leichtsinn versucht TextBox1.select anzuhängen, was aber nicht funktioniert. Hat jemand einen Tip ?
Frage 2: Über meine User Form werden 6 Werte abgefragt und danach ein Diagramm aktualisiert. Nun wäre es aber sinnvoll, wenn das Makro mittendrin abcheckt, ob auch wirklich alle 6 TextBoxen ausgefüllt worden sind. Falls nein, sollte er eine Info bringen "Es sind nicht alle Felder ausgefüllt" und dann zur User Form zurückspringen. Am besten gleich in die TextBox, die fehlt. Hat jemand den passenden Code ?