Office: Userform resetten, Urzustand wiederherstellen

Nabend zusammen,

ich habe eine Userform mit einem Combofeld und einem Textfeld, je nachdem was in den beiden Feldern eingetragen wird, werden durch einen Knopfdruck, X neue Textfelder und Bezeichnungsfelder ergänzt.

Wenn ich nun neue Eingaben mache, werden Y neue Felder ergänzt und die alten praktich nur überdeckt... und wenn Y kleiner als X ist habe ich praktisch ein paar Felder zuviel drinne die da nicht hingehören.

So und nun würde ich gerne das Userform zurücksetzen, es auf den Urzustand zurücksetzen, alsob man es eben erst neue aufgerufen hätte um die o.g. Überschneidung bzw. Überlappung zuvermeiden.

Anbei, zur veranschaulichung, ein Bild mit der Userform im Urzusand, wenn man es aufruft und wenn es ausgefüllt ist.

Hoffe es hat jemand eine Idee oder einen Ansatz *wink.gif*
Gruß wulfen *cool.gif*

:)

 

Hallo,

ganz großes Kino! Anstelle eines Bildes solltest du mal die Datei einstellen. Da kaum jemand in der Lage sein wird, dem Bild die Quelltexte zu entlocken.

 

Hi,

laufe in einer Schleife über alle Steurelemente und leere sie:

Code:

 

Hallo wulfen,

Du könntest die UserForm entladen und neu anzeigen. Code in einem Modul: Code:

Aufruf innerhalb der UserForm: Code:

 

Moin,

Hier die Datei : http://www.file-upload.net/download-...sung.xlsm.html

Betrifft die Module g_1_... bis g_5_...

Auf die Lösung mit dem entladen und neu laden bin ich auch schon gestoßen nur müsste man das noch so umschreiben, dass die alten Eingaben (Monat und Jahr) erhalten werden und die dazugehörigen Module neu aufgerufen werden.

Bei dem Ansatz von Beverly müsste man die Label bzw. Beschriftungsfelder noch löschen und dabei selektieren, da ja nur die vatiablen Felder gelöscht werden sollen. Sprich man müsste bei der Erstellung der Variablen Felder (Modul g_1) diese fortlaufend durch nummerieren bsp. "xy" & i was soweit auch funktioniert *Smilie. Nur wie löscht die Label ?
Habe den Code folgendermaßen abgeändert :

Public Sub userform_reset()

Dim ctrElement As Control

For Each ctrElement In std_übersicht.Controls
For i = 1 To anzahl_textf
Select Case TypeName(ctrElement)
Case "Label"
If ctrElement.Name = i Then
ctrElement.Caption = ""
End If
End Select
Next i
Next ctrElement
End Sub

 

Das wäre vermutlich nicht schwer umzusetzen, widerspricht aber Deiner hier bereits gelösten Anforderung "VBA - Userform resetten, Urzustand wiederherstellen"

Von fremden Filehostern lade ich nichts herunter. *frown.gif*

 

Hi,

hab jetzt mal alles rausgeschmissen bisauf das wesentliche, um das es momentan geht s.h. Anhang *Smilie
Und ja es ist mehr als nur das Userform zu resetten, wusste ja nicht wie man das macht. Hätte ja sein gekonnt, dass es einen einfachen einzeiler is und man die andern Module dann einfach hinten dran hängen kann.

 

Hi,

es ist doch kein Problem, z.B. BackColor abzufragen und nur die relevanten zu leeren:

Code:

Wie man Labellinhalte leert steht doch im Code...

 

Hi,

ja ich möchte nicht den Inhalt leeren sonder das komplette Label aus dem Userform löschen. Habe deinen Code soweit mal angepasst und funktioniert auch bis auf das Löschen:

For Each ctrElement In std_übersicht.Controls

For i = 1 To anzahl_textf
Select Case TypeName(ctrElement)
Case "Label"
If ctrElement.Name = i Then
ctrElement.Caption = ""
End If
End Select
Next i

Next ctrElement

End Sub

Beim erstellen werden den variablen Feldern Namen zugewisen, momentan nur i, und die Label mit betreffenden Namen sollen komplett aus der Userform gelöscht werden. Danach setz ich die Höhe des Userforms zurück und führe meine Module neu aus, so habe ich ja auch den "Urzustand" wieder hergestellt.

 

Habe den Code nun letzendlich folgendermaßen angepasst:

Public Sub userform_reset()

Dim ctrElement As Control

For Each ctrElement In std_übersicht.Controls
For i = 1 To anzahl_textf

If ctrElement.Name = "Projekt" & i Or ctrElement.Name = "Arbeitsstunden" & i Or ctrElement.Name = "Überstunden" & i Then
std_übersicht.Controls.Remove ctrElement.Name
Exit For
ElseIf ctrElement.Name = "Arbeitsstunden_Überschrift" Or ctrElement.Name = "Arbeitsstunden_Wert" Or ctrElement.Name = "Überstunden_Überschrift" Or ctrElement.Name = "Überstunden_Wert" Then
std_übersicht.Controls.Remove ctrElement.Name
Exit For
End If
Next i
Next ctrElement

std_übersicht.Height = 90

anzahl_projekte_ermitteln
std_je_projekt
gr_f_stdübersicht
textfelder_erz

End Sub

So wird eben manuell der Urzustand stück für stück wiederhergestellt.
Werd mich die Tage aber auch ma an der Weiterführung von haklesoft´s Lösungsansatz probieren.

Dank euch beiden für die Hilfe, schönes Wochenende *Smilie

 

Hallo wulfen,

ein paar Anmerkungen zu Deinem Projektcode:

bei meinem Vorschlag brauchst Du ggf. nur die Einstellungen der beiden Eingabeelemente zu merken und könntest die nach dem erneuten Laden wieder einstellen, wenn das gewünscht ist.

Du solltest Dein Query_Close überarbeiten, denn das macht die UserForm bisher mit .Hide nur unsichtbar und bricht das Schließen mit Cancel=True immer ab.

Wenn Du das ohne Entladen zurücksetzen willst:
Da Deine Ursprungsform nur fünf Steuerelemente kennt, kannst Du alles löschen, was nicht den ursprünglichen Namen entspricht. Z. B. so: Code:

In zwei Modulroutinen hangelst Du Dich mit Mehrfach-IFs jeweils durch die Monate. Ein Einzeiler im Stile von y = std_übersicht.ListIndex + Offset täte es auch. Und wie man die letzte belegte Zeile einer Tabelle ermittelt, ist hier schon vielfach gezeigt worden.

 

Hi haklesoft,

danke für den Hinweis. Ich werd mir das mal anschauen, könntest du mir nur erklären was y = std_übersicht.ListIndex + Offset genau macht, beschäftige mich noch nicht all zulang mit VBA und bin daher nicht so belesen.

Und wie müsste ich mein Query_Close ändern, dass das Formular Entladen und geschlossen wird?

 

In y wird die laufende Nummer des gesuchten Sheets angegeben. Und korrekt muss es natürlich heißen y = std_übersicht.monat.ListIndex + 3.
ListIndex von monat enthält die Nummer des gerade gewählten Monats (0-basiert) zu dem dann noch ein Offset von 3 zu addieren ist, um das richtige y zu erhalten.

Im Fall des Entladens kann die ganze Procedure weg.

 

Hi,

ah ok dnake für die Aufklärung *Smilie . Funktioniert wunderbar *grins