Userform schließt nicht ganz
18.01.2006 08:46:52
Gisela
ich verzweifele an folgendem Problem.
Bevor ein Makro gestartet wird, soll eine Zellabfrage stattfinden - die Hilfe habe ich hier aus dem Forum-. Das funktioniert auch. Wenn ich die Abfrage aber zweimal mache für verschiedene Makros wird am Schluß die Userform nicht ganz geschlossen. Auf dem Bildschirm bleibt ein Teil stehen und flackert. Wenn ich dann auf den Bildschirm klicke, schließt der Rest und es ist alles ok.
Hier der gesamte Click-Befehl
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
CommandButton4.Visible = True
'Daten verteilen nach Gruppe und für Stückauswahl bei Änderungen
Call QuellDatVerteilen
'Wenn Daten vorhanden, dann senden
.......Wenn jetzt nur eine Abfrage läuft funktioniert der Rest auch
Sheets("Stückl").Select
If Range("B3").Value <> "" Then
Call SendenTab60
End If
Sheets("Stückn").Select
If Range("B3").Value <> "" Then
Call SendenTab61
End If
'Altdaten löschen
Sheets(Array("Stück", "Stücknölting", "Stücklange")).Select
Sheets("Stück").Activate
Rows("3:103").Select
Selection.Delete Shift:=xlUp
[B9].Select
Sheets("Stück").Select
Sheets("Start").Select
Calculate
Call AnzahlFett
CommandButton3.Visible = False
UserForm16.Hide
Sheets("Start").Select
UserForm7.CommandButton20.Visible = False
UserForm7.Show
Application.ScreenUpdating = True
End Sub
Kann mir bitte jemand sagen wo der Fehler liegt oder was ich wie ändern muss.
Vielen Dank für jede Hilfe
Grüße
Gisela