Iformationen in Userform beibehalten
02.05.2019 10:12:15
Alex
Ich habe eine Userform erstellt in der vorab gewisse Eingaben für das Tabellenblatt getroffen werden können. Problem hierbei ist, dass wenn ich diese erneut aufrufe, alle Eingaben wieder weg sind.
Wie kann ich den Sub erweitern, dass die Informationen (Texte sowie Checkboxen) erhalten bleiben?
Vielen Dank im Voraus
Beste Grüße
Alex
Sub:
Private Sub UserForm_Initialize()
'Einträge für die Schaltflächen
meinFormular.TextProjekt.Value = "Bitte Projektnamen exakt aus dem Projektordner übernehmen"
meinFormular.TextLP = "Bitte Leistungsphase wählen"
meinFormular.Gebäude.Value = "Bitte Gebäudetyp wählen"
meinFormular.TextStand.Value = "Bitte Datum eingeben"
'Combobox erstellen
With meinFormular.TextLP
.AddItem "LP2 Vorplanung"
.AddItem "LP3 Entwurfsplanung"
.AddItem "LP5 Ausführungsplanung"
End With
With meinFormular.Gebäude
.AddItem "Küche"
.AddItem "Industriehalle"
.AddItem "Krankenhaus"
.AddItem "Schulgebäude"
.AddItem "Wohnungsbau"
.AddItem "sonstige"
End With
End Sub