Gruppe
Allgemein
Problem
Wie kann ich einen Suchbegriff über eine InputBox abfragen, diesen in der aktiven Tabelle suchen und die Fundzeile löschen?
StandardModule: basMain
Sub Loeschen()
Dim rngFind As Range
Dim var As Variant
Dim sWkn As String
sWkn = Application.InputBox( _
prompt:="Wie lautet die WKN des zu löschenden Papiers?", _
Title:="Löschung von Papieren", _
Default:="123461")
If sWkn = "" Then Exit Sub
var = Application.Match(CLng(sWkn), Columns(2), 0)
If IsError(var) Then
Beep
MsgBox "WKN-Nummer wurde nicht gefunden!"
Else
If MsgBox( _
prompt:="Soll dieses Papier gelöscht werden?", _
Buttons:=vbQuestion + vbYesNo _
) = vbNo Then Exit Sub
Rows(var).Delete
End If
End Sub