VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Suchbegriff-Fundstelle mit anderer Zelle multiplizieren

Gruppe

Allgemein

Bereich

Suchen

Thema

Suchbegriff-Fundstelle mit anderer Zelle multiplizieren

Problem

Wie kann ich die Zelle neben einer Suchbegriff-Fundstelle mit einem Wert in einem zweiten Arbeitsblatt multiplizieren und das Ergebnis in einer MessageBox anzeigen lassen?

Lösung

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




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