code beigefügt...eine kleine frage zum verständnis
12.05.2004 18:16:23
Peter
wenn ich mit untenstehendem code den datensatz nicht löschen, sondern überschreiben will.....muss ich dann "paste" statt "delete" einsetzen?
Private Sub cmdLoeschen_Click()
Dim myArr As Variant
Dim rng As Range
MsgBox ("Der Kundensatz wird endgültig entfernt")
Set rng = Sheets("Kunden").Range("A3:W1000").Find(What:=txtEdit1)
If Not rng Is Nothing Then rng.EntireRow.Delete
myArr = Sheets("Kunden").Range("A3:W1000")
cboNamen = ""
cboNamen.List = myArr
For iCounter = 1 To 23
Controls("txtEdit" & iCounter) = ""
Next iCounter
End Sub
Danke Peter S.