Datensatz löschen
12.09.2005 16:09:09
Rudi
ich lösche mit meinem Makro einen Datensatz im Sheet "Auswertung"
das funktiniert alles soweit prima bis auf folgende Ausnahme:
wenn ich nix in die InputBox schreibe und das O.K. Button betätige bleibt es im Sheet Auswertung stehen und macht weiter nix.
Es soll aber zurück zum Feld "MNAME" (steht im Sheet "MASKE)springen und den Hinweis bringen: "Auftrag nicht gefunden, Auftagsnummer fehlt"
kann mir da jemand helfen?
Mein aktueller 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:="Geben Sie bitte Auftragsart und Auftragsnummer ohne Leerzeichen ein und bestätigen Sie mit O.K !", _
Title:="Löschung von Datensatz", _
Default:="")
If sWkn = "" Then Exit Sub
va = Application.Match(CStr(sWkn), Columns(2), 0)
'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
ActiveWorkbook.Save
Beep
Application.ScreenUpdating = True
End Sub
gruss rudiflei