Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Suchbegriff über InputBox abfragen und Fundzeile löschen

Gruppe

Suchen

Problem

Wie kann ich einen Suchbegriff über eine InputBox abfragen, diesen in der aktiven Tabelle suchen und die Fundzeile löschen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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