Datensatz löschen
08.09.2005 12:10:09
Rudi
In der Folge der Code, der im Sheet "Auswertung" einen Datensatz mit einer
Auftragsnummer löscht.
Wenn ich eine numerische Auftragsnummer (also nur Zahlen) eingebe funktioniert das super.
Nun kommt es vor, dass in der Auftragsnummer auch Buchstaben oder Sonerzeichen wie z.B. "#" sein können. Dann genau funktionierts nicht.
Kann mir jemand helfen?
Mein Code:
Sub DatensatzLoeschen1()
Application.ScreenUpdating = False
Sheets("Auswertung").Select
ActiveSheet.Unprotect
'Application.Goto Reference:="AW"
Dim rngFind As Range
Dim va As Variant
Dim sWkn As String
On Error GoTo ende
sWkn = Application.InputBox( _
prompt:="Wie lautet Auftragsnummer des zu löschenden Datensatz?", _
Title:="Löschung von Datensatz", _
Default:="")
If sWkn = "" Then Exit Sub
va = Application.Match(CLng(sWkn), Columns(2), 0)
If IsError(va) Then
Beep
MsgBox "Auftragsnummer falsch oder wurde nicht gefunden!"
Else
If MsgBox( _
prompt:="Soll der gefundene Datensatz gelöscht werden?", _
Buttons:=vbQuestion + vbYesNo _
) = vbNo Then Exit Sub
Rows(va).Delete
MsgBox ("Datensatz " & va & " wurde gelöscht")
End If
ende:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Maske").Select
Beep
Application.ScreenUpdating = True
Beep
End Sub
gruss rudiflei
Anzeige