bei den Codeschnipseln da unten hab ich wohl ein paar Syntaxfehler.
- Wenn ich die UF (ShowModal = False) mit F5 anstoße, sieht sie aus wie gedacht, vom cmdGrunddatenBerechnen erzeugt aber bleibt sie weiß, ohne Textfeld usw.
- Wenn mit F5 angestoßen, holt sich die Box auch den Text aus der richtigen Zelle, aber unterschlägt die erste von drei Zeilen und zeigt außerdem die Zeilenumbrüche (alt+enter)
woran liegt das?
Grüße - Jörg
Private Sub cmdGrunddatenBerechnen_Click()
uf_MeldgEingabOptim.Show
Unload uf_MeldgEingabOptim
End Sub
Private Sub UserForm_Initialize()
ReadMyData
End Sub
Private Sub ReadMyData()
TextBox1.Text = Worksheets("Formular").Range("sprEingabenOptimieren").Value
End Sub