Gruppe
Allgemein
Problem
Wie kann ich einen Wert suchen und statt des gesuchten Wertes nur den Zellenindex ausgeben lassen
StandardModule: basMain
Sub ZelleSuchen()
Dim rng As Range
Dim sSearch As String
sSearch = InputBox(prompt:="Suchbegriff", _
Default:="Hallo!")
Set rng = Columns(1).Find( _
what:=sSearch, _
lookat:=xlWhole, _
LookIn:=xlValues)
If Not rng Is Nothing Then
MsgBox prompt:=rng.Address(ReferenceStyle:=xlR1C1)
Else
MsgBox prompt:="Suchbegriff wurde nicht gefunden!"
End If
End Sub