Thema: Suchbegriff-Fundstelle mit anderer Zelle multiplizieren

StandardModule: basMain

Sub SeekAndMulti()
   Dim rng As Range
   Dim sSearch As String
   sSearch = InputBox( _
      prompt:="Suchbegriff:", _
      Default:="Zeile 5 - Spalte 1")
   If sSearch = "" Then Exit Sub
   Set rng = Columns("A").Find(sSearch, _
      lookat:=xlWhole, LookIn:=xlValues)
   If rng Is Nothing Then
      Beep
      MsgBox "Suchbegriff wurde nicht gefunden!"
   Else
      With Worksheets("Tabelle2")
         MsgBox "Die Multiplikation ergibt:" & vbLf & _
            rng.Offset(0, 1) & " * " & _
            .Cells(rng.Row, 2) & " = " & rng.Offset(0, 1) * _
            .Cells(rng.Row, 2)
      End With
   End If
End Sub

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