Gruppe
Allgemein
Problem
In Zeile 1 soll der Bereich rechts von der aktiven Zelle nach dem Wert in der aktiven Zelle durchsucht und eine Ergebnismeldung angezeigt werden
StandardModule: basMain
Sub Durchsuchen()
Dim rng As Range
Set rng = Range(ActiveCell.Offset(0, 1), _
ActiveCell.Offset(0, 256 - ActiveCell.Column)).Find( _
what:=ActiveCell.Value, _
lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
MsgBox "Fundstelle: " & rng.Address
Else
MsgBox "Wert wurde nicht gefunden!"
End If
End Sub