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