ich habe ein bestehendes Programm seit mindestens zwei Jahren. Dieses Programm ist
sehr umfangreich. Es besteht aus mehreren Userforms und 70 Tabellen.
Bis heute lief das Programm einwandfrei. Jetzt taucht folgendes Problem auf. In einer UF befinden sich zwei Listboxes. Mittels Klick in Listbox1 wird eine Textbox gefüllt.
Beim Wechsel wird die Listbox2 gefüllt.
Sub Textbox_OnExit2()
If TextBox5.Value = "11" Then Call UserForm_Initialize_11 usw....
End Sub Das Ansehen der diversen Konten macht keinerlei Probleme.
Wird jedoch die ausgewählte Zeile gedruckt, tauchen folgende Probleme auf:
Der Ausdruck wird ausgeführt. Auch hier verwende ich folgendes Makro:
Private Sub CommandButton2_Click()
UserForm1_Einzelkonto.Hide
Textbox_OnExit3
End Sub
Sub Textbox_OnExit3()If TextBox5.Value = "11" Then Call Drucken_11 usw. ...
End Sub Der Druckauftrag wird ausgeführt und die Userform wieder geöffnet.
Das Schliessen der UF mit Öffnen der anderen UF:
Private Sub CommandButton1_Click()
Unload UserForm1_Einzelkonto
UserForm_Auswahl.Show
End Sub
funktioniert. Wird jedoch dann die zweite UF geschlossen mit Makro:Private Sub CommandButton3_Click()
Blattschutz
Sheets("10").Select
Unload Me
End Sub
öffnet sich die UserForm1_Einzelkonto wieder und der vorherige Druckauftrag wirderneut ausgeführt. D. h. die UF_Auswahl kann nicht geschlossen werden.
Weiteres Problem auf anderem Rechner in diesem Zusammenhang, dass mit jedem Drucken
die zweite Listbox immer grösser wird, bis die darunter befindliche Zeile verdeckt
ist.
Weiss mir hier jemand einen Rat?
Ich vermute, dass das Problem mit irgend einem Update in Verbindung steht, da dieses
Problem zuvor nicht aufgetreten war.
Vielleicht besteht auch die Möglichkeit, den Ausdruck mit einer anderen Variante als Textbox OnExit zu lösen, das die ohnehin extrem lange dauert.
Besten Dank für Eure Hilfe.
Gruss Peter