Wie kann ich in der inputBox z.B. auf einer Zelle A2 zugreifen und nach Zahlen nacheinander oder aneinander Folgende Wörter suchen? Geht das? Steht in Zelle a2 "123 555 text wort" soll er die Zelle in der inputBox übernehmen und dann den Inhalt in einem Arbeitsbaltt suchen.
Danke Gruß Michael
Mein Versuch aus Büchern
ohne Schleife funktioniert es dann ja auch nicht! Geht es einfacher und muss ich dabei etwas beachten?
Sub InputBoxRange()
Dim sFind As Range
Sheets("Tabelle1").Select
Range("A1").Select
On Error Resume Next
Set sFind = Application.InputBox("Geben Sie einen Bereich ein.", _
Default:="a2", Type:=8)
sFind.Select
End Sub