VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Suchbegriff über InputBox abfragen und Fundzeile löschen

Gruppe

Allgemein

Bereich

Suchen

Thema

Suchbegriff über InputBox abfragen und Fundzeile löschen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen