Gruppe
Allgemein
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?
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