Code sollte umgebaut werden----ohne Select
Peter
Trotz der Applications bringe ich keine Ruhe in den Bildschirm...danke mal aufgrunde der .Select und .Activate Befehle.....Wer kann mir helfen den Code so umzubauen, dass diese "Störer" nicht mehr drin sind....oder liegt es doch an was anderm?
Private Sub cmdLoeschen_Click()
Application.ScreenUpdating = False
MsgBox ("Der Datensatz wird endgültig entfernt")
Sheets("Daten").Activate
Range("F4:K100").Select
With Selection
.Find(What:=txtEdit3).Select
With ActiveCell.EntireRow.Delete
End With
End With
Worksheets("Lizenz").Activate
cboNamen = ""
cboNamen.List = Range("Daten!F4:K100").CurrentRegion.Value
For iCounter = 1 To 5
Controls("txtEdit" & iCounter) = ""
Next iCounter
Application.ScreenUpdating = True
End Sub
Vielen Dank an Euch
Peter S.