Excel nicht mehr "aktiv" nach UF
29.07.2003 07:50:51
Franz W.
habe heute nacht meine erste Userform gebastelt und da ist natürlich noch nicht alles so rosig. Eins meiner Probleme ist folgendes: Der Dialog tut exakt was er soll, aber im Anschluss daran ist Excel nicht mehr "aktiv" (weiß nicht wie cih es anders sagen soll). Das heißt, dass alles gemacht wird, am Schluss wird auch eine im Code vorgegebene Zelle selektiert, es ist auch alles im Vordergrund zu sehen. Aber das ganze Excel ist nicht aktiv: die Titelleiste von Excel ist nicht blau (aktiv), sondern grau (inaktiv). Und ich kann nicht mit der Tastatur weiterschreiben. Vorher muss ich mit der Maus ins Blatt klicken, dann kann ich schreiben.
Hier der Code:
Sub KundenAendern()
r = ActiveCell.Row
KdTitel = Cells(r, 3)
KdNName = Cells(r, 4)
KdVName = Cells(r, 5)
Kdco = Cells(r, 6)
KdStr = Cells(r, 7)
KdPLZ = Cells(r, 8)
KdOrt = Cells(r, 9)
If r <= 3 Then
Cells(4, c).Select
ActiveSheet.Protect
MsgBox "Bitte einen Kunden auswählen!", 64
Exit Sub
End If
If Range("B65536") = "" Then LoLetzte = Range("B65536").End(xlUp).Row _
Else: LoLetzte = 65536
If r > LoLetzte Then
Cells(LoLetzte, c).Select
MsgBox "Bitte einen Kunden auswählen!", 64
Exit Sub
End If
dlgKdAendern.Caption = "Kunden ändern"
dlgKdAendern.bezAenderKunde.Caption = "'" & KdTitel & " " & KdVName & " " & KdNName _
& "' ändern in:"
dlgKdAendern.txtTitel = KdTitel
dlgKdAendern.txtNName = KdNName
dlgKdAendern.txtVName = KdVName
dlgKdAendern.txtco = Kdco
dlgKdAendern.txtStrasse = KdStr
dlgKdAendern.txtPLZ = KdPLZ
dlgKdAendern.txtOrt = KdOrt
dlgKdAendern.Show
dlgKdAendern.txtTitel.SetFocus
Range(myStart).Select
Application.ScreenUpdating = False
If dlgKdAendern.result = False Then
Sheets("Daten").Activate
Range(myStart).Select
Exit Sub
Else
ActiveSheet.Unprotect
Cells(r, 3) = dlgKdAendern.txtTitel
Cells(r, 4) = dlgKdAendern.txtNName
Cells(r, 5) = dlgKdAendern.txtVName
Cells(r, 6) = dlgKdAendern.txtco
Cells(r, 7) = dlgKdAendern.txtStrasse
Cells(r, 8) = dlgKdAendern.txtPLZ
Cells(r, 9) = dlgKdAendern.txtOrt
End If
Application.ScreenUpdating = True
'Call Sortieren_nach_Namen
ActiveWorkbook.Save
End Sub
Könnt Ihr mir da bitte einen Tipp geben?
Vielen Dank im Voraus und Grüße
Franz
P.S.: Bin auch darüberhinaus für Änderungstipps und anderen Anregungen offen, wenn es irgendwas zu dem Code zu sagen gibt (und das gibt es sicherlich :-)))))))))