Office: Userform entladen/aktualisieren

Guten Morgen,

In einer Userform (U1) kann man ein bestimmtes Teil auswählen, dessen Daten dann in einer zweiten (U2) ausführlich angezeigt werden. In U2 kann man diese Daten dann löschen/ Ändern. Bis dahin funktioniert alles wunderbar.

Mein Problem ist nun folgendes: Nach dem Löschen soll die U1 aktualisiert angezeigt werden, also ohne das gelöschte Teil. Folgender Befehl funktioniert nicht (Laufzeitfehler 1004):

Private Sub CmdLöschen_Click
' Löschprozedur
Unload me
frmU1.Show
End Sub

Und das, obwohl ich U1 beim Aufrufen von U2 mit "Unload Me" schließe. In zwei weiteren, ähnlich aufgebauten Frames funktioniert dieses oben beschriebene Zusammenspiel fehlerfrei. Es muss also irgendetwas an U1 (oder U2) anders sein. Nach was muss ich Ausschau halten? Bei Bedarf schicke ich den Programmtext. Vielen Dank einstweilen für Eure Tipps.

Gruß, Sven

:)

 

Moin, Sven

ohne den gesamten Code liegt nahe, dass die Löschprozedur keinen Einfluss auf die Dateiliste hat bzw. dass nicht die geänderte Liste in UserForm_Initialize genutzt wird.

 

Hallo Jinx,

ich hoffe, mit dem aufgeführten Programmtext ist die Fehlersuche einfacher.
Ich habe nicht alle Prozeduren widergegeben, sondern nur die wie ich denke relevanten.

' Dies ist der Programmtext der Ausgangs-Userform (Name:
"frmÄndernHinzufügen"

Private Sub cmdÄndernHinzufügen_Click()
Unload Me ' HIER WIRD DER FEHLER AUSGEGEBEN
frmÄndern.Show ' Diese UserForm dient der eigentlichen
Aenderung der BAuteile

End Sub

Private Sub UserForm_Initialize()
Initialisieren
End Sub

Private Sub Initialisieren()
txtBox1.Text = Sheets("Datenbasis").Range("C6").Text
.........
txtBox20 = Sheets("Datenbasis").Range("C7").Text
End Sub

Private Sub cmdZurück_Click()
Unload Me
End Sub


' Jetzt kommt der Programmtext der Userform "frmÄndern"

Option Explicit
Public zeilen As Integer

Private Sub cmdZurück_Click()
Unload Me
End Sub

Private Sub cmdHinzufügen_Click()
Speichern 'Hiermit wird die Speicherungsprozedur aufgerufen
End Sub

Private Sub Speichern()
Dim i As Integer

i = MsgBox(Prompt:="Sollen die Änderungen wirklich hinzugefügt werden?", _
Buttons:=vbOKCancel)
If i = 2 Then
Exit Sub
Else
Speichern5
End If
End Sub

Private Sub Speichern5()
Sheets("Datenbasis").Cells(zeilen, 3).Value = txtBox1
Sheets("Datenbasis").Cells(zeilen, 12).Value = txtBox2
......
Sheets("Datenbasis").Cells(zeilen, 32).Value = txtBox20
Unload Me
frmÄndernHinzufügen.Show 'DIESES KOMMANDO SOLL DIE AUSGANGS-
USERFORM AUFRUFEN UND BEI DEREN
INITIALISIERUNG DIE GEÄNDERTEN WERTE
MITANZEIGEN;
End Sub

Private Sub UserForm_Initialize() 'Initialisierung von "frmÄndern"
If frmÄndernHinzufügen.OptionButton11.Value = True Then
zeilen = 6
frmÄndernHinzufügen.OptionButton11.Value = False
End If
......
End Sub

vielen dank duer deine Hilfe. Hasta luego

Sven

 

Moin, Sven,

nun habe ich (wegen fehlender Kenntnis des Aufbaus) nicht den gesamten "Parcours" aufgebaut und mich nur auf das Ausblenden bzw. Aufrufen der Formulare gekümmert - aber mit dem geposteten Code wird dies ohne Fehlermeldung sowohl bei Excel97 als auch bei ExcelXP durchlaufen. Der Fehler muss also in einem anderen Teil vorkommen.

 

Ich gehe mal davon aus, das alle benötigten Angaben zur Anzeige in U1 mittels Form_Initialize geladen werden.

Dann könntest Du doch einfach anstelle des .Show die Form neu initialisieren und somit auch komplett neu "bestücken". Oder verstehe ich da etwas fslhac?

 

Dank an Schrottie und Jinx, habe nach viel Probieren den Haken gefunden.

Servus!
Sven